Erreur dans mon code

phlaurent55

Nous a quittés en 2020

Repose en paix

• 16 Février 2011

• #2

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #3

Re : Erreur dans mon code

Bonjour,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Février 2011

• #4

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:

Code:

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😕

 

Vote positif 0 Vote négatif

A

aeque

XLDnaute Occasionnel

• 16 Février 2011

• #5

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

 

Pièces jointes

• test.xlsm

  27 KB · Affichages: 49
• test.xlsm

  27 KB · Affichages: 52
• test.xlsm

  27 KB · Affichages: 51

Vote positif 0 Vote négatif

A

aeque

XLDnaute Occasionnel

• 16 Février 2011

• #6

Re : Erreur dans mon code

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #7

Re : Erreur dans mon code

Re, bonjour Philippe🙂, Hasco🙂

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

 

Vote positif 0 Vote négatif

A

aeque

XLDnaute Occasionnel

• 16 Février 2011

• #8

Re : Erreur dans mon code

voilà en 2003

 

Pièces jointes

• test.zip

  17.8 KB · Affichages: 20
• test.zip

  17.8 KB · Affichages: 23
• test.zip

  17.8 KB · Affichages: 19

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #9

Re : Erreur dans mon code

Re,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Février 2011

• #10

Re : Erreur dans mon code

Re bonjour,

Code:

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+

 

Vote positif 0 Vote négatif

A

aeque

XLDnaute Occasionnel

• 16 Février 2011

• #11

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é

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 16 Février 2011

• #12

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

 

Vote positif 0 Vote négatif

A

aeque

XLDnaute Occasionnel

• 16 Février 2011

• #13

Re : Erreur dans mon code

Hasco dsl cela ne fait rien, rien ne se lance

 

Vote positif 0 Vote négatif

A

aeque

XLDnaute Occasionnel

• 16 Février 2011

• #14

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))

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #15

Re : Erreur dans mon code

Re,

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

 

Vote positif 0 Vote négatif