charette63
XLDnaute Occasionnel
bonjour à toutes et tous,
avec cette ligne de code:
je retranscris la valeur dans la cellule "j3" de la cellule "b" et le chiffre inscrit dans la cellule "h3". Ce code fonctionne
je tente d'adapter ce code pour les lignes de 1 à 200 comme ceci
et là, j'ai un message d'erreur: la methode range de l'objet à échoué
pouvez-vous m'aider
cordialement
Thierry
avec cette ligne de code:
Code:
Range("j3") = Range("b" & Range("h3").Value)
je retranscris la valeur dans la cellule "j3" de la cellule "b" et le chiffre inscrit dans la cellule "h3". Ce code fonctionne
je tente d'adapter ce code pour les lignes de 1 à 200 comme ceci
Code:
Dim i as Byte
For i = 1 to 200
Range("j" & i) = Range("b" & Range("h" & i).Value)
Next i
et là, j'ai un message d'erreur: la methode range de l'objet à échoué
pouvez-vous m'aider
cordialement
Thierry