Incompatibilité de type avec une boucle For

Incompatibilité de type avec une boucle For - VB/VBA/VBS - Programmation

Marsh Posté le 10-08-2007 à 13:06:22    

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.

Reply

Marsh Posté le 10-08-2007 à 13:06:22   

Reply

Marsh Posté le 10-08-2007 à 13:51:33    

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

Reply

Marsh Posté le 10-08-2007 à 13:58:19    

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!

Reply

Marsh Posté le 10-08-2007 à 14:17:59    

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

Reply

Marsh Posté le 10-08-2007 à 14:20:49    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed