maval
XLDnaute Barbatruc
Bonjour,
Voila j'ai un classeur avec une feuille "Trie"ou se trouve une centaine d'équipes de belote, une autre feuille "Feuille de marque" ou l'on rempli les feuilles des équipes (voir fichier joint).
J'ai un code qui fonctionne très bien, qui me permet de remplir cet dernier mais j'aimerai simplifier mon code car j'ai plus de cents équipes et je trouve mon code un peut lourd a mon gout.
Voir le code pour 6 équipes:
Merci de votre aide
Cordialement
Maval
Voila j'ai un classeur avec une feuille "Trie"ou se trouve une centaine d'équipes de belote, une autre feuille "Feuille de marque" ou l'on rempli les feuilles des équipes (voir fichier joint).
J'ai un code qui fonctionne très bien, qui me permet de remplir cet dernier mais j'aimerai simplifier mon code car j'ai plus de cents équipes et je trouve mon code un peut lourd a mon gout.
Voir le code pour 6 équipes:
Code:
' Copie vers feuille de marque
Private Sub CommandButton1_Click()
Sheets("Feuille de marque").Select ' Aller a la feuille marque
Selection.Font.ColorIndex = 1
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Size = 16
'Table
Worksheets("Trie").Range("H3").Copy
Worksheets("Feuille de marque").Range("D2").PasteSpecial xlPasteValues '1
Worksheets("Trie").Range("H5").Copy
Worksheets("Feuille de marque").Range("D27").PasteSpecial xlPasteValues '2
Worksheets("Trie").Range("H7").Copy
Worksheets("Feuille de marque").Range("D52").PasteSpecial xlPasteValues '3
' N° de la Partie
Worksheets("Trie").Range("I3").Copy
Worksheets("Feuille de marque").Range("E3").PasteSpecial xlPasteValues '1
Worksheets("Trie").Range("I3").Copy
Worksheets("Feuille de marque").Range("E28").PasteSpecial xlPasteValues '2
Worksheets("Trie").Range("I3").Copy
Worksheets("Feuille de marque").Range("E53").PasteSpecial xlPasteValues '3
'N°d'équipes
Worksheets("Trie").Range("F3").Copy 'Equipe 1
Worksheets("Feuille de marque").Range("E5").PasteSpecial xlPasteValues '1
Worksheets("Trie").Range("F4").Copy 'Equipe 2
Worksheets("Feuille de marque").Range("J5").PasteSpecial xlPasteValues '1
Worksheets("Trie").Range("F5").Copy 'Equipe 1
Worksheets("Feuille de marque").Range("E30").PasteSpecial xlPasteValues '2
Worksheets("Trie").Range("F6").Copy 'Equipe 2
Worksheets("Feuille de marque").Range("J30").PasteSpecial xlPasteValues '2
Worksheets("Trie").Range("F7").Copy 'Equipe 1
Worksheets("Feuille de marque").Range("E55").PasteSpecial xlPasteValues '3
Worksheets("Trie").Range("F8").Copy 'Equipe 2
Worksheets("Feuille de marque").Range("J55").PasteSpecial xlPasteValues '3
'Nom
Worksheets("Trie").Range("G3").Copy Worksheets("Feuille de marque").Range("D4:F4") 'Equipe 1
Worksheets("Trie").Range("G4").Copy Worksheets("Feuille de marque").Range("I4:K4") 'Equipe 2
Worksheets("Trie").Range("G5").Copy Worksheets("Feuille de marque").Range("D29:F29") 'Equipe 1
Worksheets("Trie").Range("G6").Copy Worksheets("Feuille de marque").Range("I29:K29") 'Equipe 2
Worksheets("Trie").Range("G7").Copy Worksheets("Feuille de marque").Range("D54:F54") 'Equipe 1
Worksheets("Trie").Range("G8").Copy Worksheets("Feuille de marque").Range("I54:K54") 'Equipe 2
'sélectionne une autre cellule
Sheets("Feuille de marque").Range("L3").Select
End Sub
Cordialement
Maval