Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3136 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Incompatibilité de type avec une boucle For

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Incompatibilité de type avec une boucle For

n°1598137
lestagiair​e
Posté le 10-08-2007 à 13:06:22  profilanswer
 

Bonjour forum, à toutes et à tous.
 
 
J'ai un petit programme qui doit supprimer les zéros sur une seule et même ligne d'un classseur exel.
Ces valeurs provenant d'un autre calsseur excel je les copie selon un nombre i de valeurs.
 
Mon problème est que je sais pas comment faire pour définir un nombre de cellules variables dans la valeurs des leurs Colonnes mais identiques pour leurs numéro de ligne.
 
 
Voici mon programme.
 

Code :
  1. Dim Cell1 As Range
  2. For Each Cell In ActiveSheet.Range(Worksheets("Feuil1" ).Cells(28, 3), Worksheets("Feuil1" ).Cells(28, i))
  3. If Cell1.Value = 0 Then Cell1.ClearContents
  4. Next


 
VB me marque "Incompatibilité de type" comme erreur.
 
Merci pour vos suggestions futures.
 
Julien.

mood
Publicité
Posté le 10-08-2007 à 13:06:22  profilanswer
 

n°1598169
seniorpapo​u
Posté le 10-08-2007 à 13:51:33  profilanswer
 

Bonjour,
 
on suppose que i est entier et a une valeur
et que les cellules concernées ne sont pas en texte
 
For each cell1........
 
Cordialement

n°1598172
lestagiair​e
Posté le 10-08-2007 à 13:58:19  profilanswer
 

Bonjour seniorpapou,  
 
Merci pour ta réponse mais pourrait tu la préciser un peu plus s'il te plait.
Cell1 doit prendre quel type ?
Et on ne précise pas le classeurs ni les cellules à comparées ?
 
Merci d'avance!

n°1598178
lestagiair​e
Posté le 10-08-2007 à 14:17:59  profilanswer
 

Ok d'accord j'avais pas vu ma faute........... :)
 
Merci seniorpapou!

n°1598181
seniorpapo​u
Posté le 10-08-2007 à 14:20:49  profilanswer
 

re,
je voulais simplement dire:
 
1) dans la ligne :"For Each Cell In ActiveSheet.Range(Worksheets("Feuil1" ).Cells(28, 3), Worksheets("Feuil1" ).Cells(28, i))"
 
     tu dois mettre: Cell1  et non Cell  
 
2) Ensuite, si le message incompatibilité de type apparaît, il se peut que ce soit parce que tu compares à 0 une des tes cellules qui contient du texte
Cordialement


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Incompatibilité de type avec une boucle For

 

Sujets relatifs
[c] Question sur une boucle do...whileproblème boucle until
Ecrire type=1 dans un fichierProblème de type sur Variable de formulaire
agument par default ( c'ets normal??) EDITOuverture fichier type pdf
[Javascript] Boucle for [résolu]Problème boucle à droite!
boucle if après findComment créer un formulaire type web en C/C++
Plus de sujets relatifs à : Incompatibilité de type avec une boucle For


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR