Problème de validation de Boucle
Bonjour à tous,
Je suis nouveau dans le monde de la programmation et j'ai un petit problème de code sur une boucle.
J'ai un onglet "nom Marché" qui contient deux colonnes avec les noms des onglets que je veux travailler
et j'ai la macro suivante :
Sub Copierr()
Dim nommarche1 As String, nommarche2 As String, ligne As Integer 'Définition de la variable nommarche1 et nommarche2
ligne = 2 'Définition du numéro de ligne de départ
While ligne < 94 'Tant que la cellule est remplie
Sheets("nom marche").Activate 'activation de la feuille marché
nommarche2 = Cells(ligne, 3) 'Définition variable marché
nommarche1 = Cells(ligne, 2) 'Définition variable marché
' Essai
Worksheets(nommarche2).Range("C8:C135").Copy Destination:=Worksheets(nommarche1).Range("D5")
ligne = ligne + 1
Wend
End Sub
Cependant elle ne fonctionne pas elle me dit que l'indice n'appartient pas à la selection pour la dernière ligne :
Worksheets(nommarche2).Range("C8:C135").Copy Destination:=Worksheets(nommarche1).Range("D5")
Cependant je ne comprends pas l'erreur car mes deux variables sont définies.
Merci à vous
Une idée,
Essai de remplacer worksheets par sheets
En étant sûr des noms d'onglets (:
Cdlt
J'avais déjà essayé !
Malheureusement cela ne marche pas
Bonjour
personnellement je ferrais comme ceci
'aller de la ligne 2 à la dernière ligne occupé dans la colonne B
For ligne = 2 to Range("B65536").End(xlUp).Row
nommarche2 = Sheets("nom marche").Cells(ligne, 3) 'Définition variable marché
nommarche1 = Sheets("nom marche").Cells(ligne, 2) 'Définition variable marché
With Sheets(nommarche1)
.Activate
Sheets(nommarche2).Range("C8:C135").Copy .Range("D5")
end with
next ligne 'on passe a ligne suivantefred
Un grand merci à toi Fred !
Cela marche de façon parfaite maintenant =)
ne pas oublier de mettre le sujet comme résolu
Merci
Fred