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

 

[phlaurent55]

Re : Erreur dans mon code

Bonjour aeque,

ton erreur est sans doute ici:

For I = 2 To Range("A1").End(xlDown)

mais sans plus d'explications de ta part................

peut-être avec
For I = 2 To Range("A1").Value

à+
Philippe

 

[Pierrot93]

Re : Erreur dans mon code

Bonjour,

comprends pas trop, pourquoi mettre & I, tu as prusieurs plages nommées ???

If IsEmpty(Range("A_copier_RH" & I))

bon après midi
@+

 

[Guest]

Re : Erreur dans mon code

Bonjour,

C'est quoi "A_copier_RH"? Une plage de cellules nommée?

Si cela pourrait être, mais il faut voir un exemple sur fichier pour être sûr:

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

La i ème cellule de la plage.

Quand tu donnes une erreur indique également sur quelle ligne elle est retournée.

A+

[Edit] Salut pierrot Ta pas de boule de cristal non plus

 

[aeque]

Re : Erreur dans mon code

bon je crois qu'avec un fichier ca ira mieux.

Je souhaite que lorsqu'on clique sur le bouton toutes les cellules vides de la zone A copier RH soient remplacé par des XXXX

 

[aeque]

Re : Erreur dans mon code

dsl justement cela ne me met pas de ligne d'erreur juste incomptabilité de type

 

[Pierrot93]

Re : Erreur dans mon code

Re, bonjour Philippe, Hasco

perso pas 2007, je ne peux donc ouvrir ton fichier...

 

[aeque]

Re : Erreur dans mon code

voilà en 2003

 

[Pierrot93]

Re : Erreur dans mon code

Re,

pas sûr d'avoir tout compris, mais pour boucler sur une plage nommée :

Dim c As Range
For Each c In Range("A_copier_RH")
    If IsEmpty(c) Then c.Value = "XXXXX"
Next c

bon après midi
@+

 

[Guest]

Re : Erreur dans mon code

Re bonjour,

Sub copier()
On Error Resume Next 'Si aucune cellule n'est vide .SpecialCells lèvera une erreur
With Sheets("1ere uti")
     .Range("A_copier_RH").SpecialCells(xlCellTypeBlanks).Cells = "XXXX"
End With
End Sub

Remplit toutes les cellules vides de 'A_Copier_RH' par des XXXX

A+

 

[aeque]

Re : Erreur dans mon code

erreur à ce niveau là

For Each c In Range("A_copier_RH")

La méthode Range de l'objet à échoué

 

[phlaurent55]

Re : Erreur dans mon code

Re,

je viens d'ouvrir le fichier et ai constaté qu'il n'y a pas de plage nommée

à+
Philippe

 

[aeque]

Re : Erreur dans mon code

Hasco dsl cela ne fait rien, rien ne se lance

 

[aeque]

Re : Erreur dans mon code

phlaurent 55 si il y a un plage nommé A_copier_RH (=DECALER('1ere uti'!$A$2;0;0;NBVAL('1ere uti'!$A:$A)-1;10))

 

[Pierrot93]

Re : Erreur dans mon code

Re,

pas de problème chez moi (sous 2003) dans le fichier que tu as joint...