maval
XLDnaute Barbatruc
Bonjour,
Voila je recherche une façon de copier et de coller sur une autre feuille, un peu spécial.
Je m'explique: j'ai un code qui m'a été réaliser par Job75 que je salut et remercie au passage qui fonctionne très bien, mais vue l'évolution de mon projet j'aimerai lui apporter une modification un peut spécial.
J'aimerai que les N° et les noms des équipes avec un fond jaune généralement sont de "1 à 3" se trouvant dans l'onglet "Inscription", lorsqu'il se copie il se colle dans l'onglet "Trie" dans les cellules les cellules "F3:G3, F5:G5, F7:G7"si bien sur il y a 3 N° et les noms des équipes avec un fond jaune si il n'y a que deux "F3:G3, F5:G5" ect..
Mon code:
Je joint un exemple.
Je vous remercie de votre aide
Cordialement
Maval
Voila je recherche une façon de copier et de coller sur une autre feuille, un peu spécial.
Je m'explique: j'ai un code qui m'a été réaliser par Job75 que je salut et remercie au passage qui fonctionne très bien, mais vue l'évolution de mon projet j'aimerai lui apporter une modification un peut spécial.
J'aimerai que les N° et les noms des équipes avec un fond jaune généralement sont de "1 à 3" se trouvant dans l'onglet "Inscription", lorsqu'il se copie il se colle dans l'onglet "Trie" dans les cellules les cellules "F3:G3, F5:G5, F7:G7"si bien sur il y a 3 N° et les noms des équipes avec un fond jaune si il n'y a que deux "F3:G3, F5:G5" ect..
Mon code:
Code:
Sub Copier_Coller()
With Sheets("Inscription").[C3:D200] 'Copie
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value 'Coller
Sheets("Trie").Activate
End With
End Sub
Je joint un exemple.
Je vous remercie de votre aide
Cordialement
Maval
Pièces jointes
Dernière édition: