Recopie d'une ligne entière si "X" contenu dans la colonne C

Question

Bonjour, 

J'aimerais un peu (beaucoup) d'aide pour la création d'une macro.
Je précise je n'ai jamais utilisé VBA et j'ai peu de temps pour rendre le dit document terminé.

Il faudrait que lorsque qu'il y a écrit "X" dans la colonne C de la feuille 1 alors que ça copie toute la ligne associé dans la feuille 2, puis si c'est écrit "Y" dans la colonne C de la feuille 1 ça copie dans la feuille 3, et ainsi de suite avec beaucoup de variantes différentes présentes dans la colonne C. Autant de variantes que de feuilles à créer.

Merci beaucoup pour votre aide !!!

yg_be · Answer

bonjour,
comment faire la correspondance entre les valeurs en colonne C et les noms des feuilles de destination?
où copier dans les feuilles de destination?
"peu de temps", c'est quoi?  quand est-ce trop tard?

yg_be · Answer

ceci copie, s'arrete dès que la colonne C est vide, et suppose que les feuilles de destination existent:
Sub etna()
Dim nomdest As Range, fdep As Worksheet
Set fdep = Sheets("dep")
Set nomdest = fdep.[c1]
Do While nomdest <> ""
    nomdest.EntireRow.Copy (Sheets(nomdest.Value).Cells(nomdest.Row, 1))
    Set nomdest = nomdest.Offset(1)
Loop
End Sub

Recopie d'une ligne entière si "X" contenu dans la colonne C

2 réponses

Votre réponse

Discussions similaires

Newsletters