Erreur dans mon code

[aeque]

Bonjour le fofo

Voilà j'ai erreur dans mon code, cela me met "Incomptabilité de Type"

Quelqu'un à une idée?

Merci

Sub copier()
For I = 2 To Range("A1").End(xlDown)
If IsEmpty(Range("A_copier_RH" & I)) Then 'si dans la zone "A copier RH" des cellules sont vide
Range("A_copier_RH" & I) = "XXXXX" 'remplace par XXXXX
End If
Next I
End Sub

 

[aeque]

Re : Erreur dans mon code

Pierrot93 j'ai juste enregistré celui que j'ai envoyer en 2007 en 2003

 

[Guest]

Re : Erreur dans mon code

Hello tout le monde,

Chez moi aussi cela fonctionne, la méthode Pierrot ou la méthode hasco.

Essaie avec : ThisWorkBook.sheets("LaFeuille").Range("A_copier_RH")

Remplacer 'LaFeuille' par le nom de ta feuille.
A+

 

[Guest]

Re : Erreur dans mon code

Re,


A+

 

[aeque]

Re : Erreur dans mon code

ca marche sur le fichier mais quand le copie dans le mien ca marche plus argggggggg

 

[aeque]

Re : Erreur dans mon code

oupssss c bon Merci bcp Hasco!!!

 

[Guest]

Re : Erreur dans mon code

Re,

Vérifie que le nom soit bien construit:
Sur la feuille tu fais CTRL+T tu mets le nom tu valides. Si le nom est mal construit excel te le dira.

A+