TheHighFlying
XLDnaute Nouveau
Salut a tous !
Voila j'ai un probleme sur mon code VBA.
Il fonctionne parfaitement pour quelques lignes d'un tableau excel mais j'aimerai le faire fontionner sur une infinité de lignes ...
Il s'agit juste d'un bouton sur ma feuille excel servant a transposer un tableau sur une autres feuille !
Donc au lieu de rentrer A1:F1 et A2:F2 et A3:F3 etc
j'aimerai mettre des variables mais il ne me les prends pas...
Voici le code
Voici ma premiere feuille excel "Sheet1"
Le but est de prendre les donné de ce tableau et en appuyant sur transposé obtenir le résultat ci apres
http://www.casimages.com
Voici ma feuille 2 "sheet2" ou je transpose mon tableau
Avant d'appui sur le bouton :
http://www.casimages.com
Et apres avoir appuyé sur le bouton
http://www.casimages.com
Donc on peu voir ici que ca fonctionne parfaitement
Maintenant j'aimerai reproduire la meme chose sur un infinité de ligne et colonne...
Et pas faire copier coller le code en changeant les numéro de ligne et colonne sinon je m'en sors pu
Merci a tous pour votre aide
Voila j'ai un probleme sur mon code VBA.
Il fonctionne parfaitement pour quelques lignes d'un tableau excel mais j'aimerai le faire fontionner sur une infinité de lignes ...
Il s'agit juste d'un bouton sur ma feuille excel servant a transposer un tableau sur une autres feuille !
Donc au lieu de rentrer A1:F1 et A2:F2 et A3:F3 etc
j'aimerai mettre des variables mais il ne me les prends pas...
Voici le code
Code:
Private Sub CommandButton2_Click()
Range("B4:F4").Copy 'Plage à adapter
Sheets("Sheet2").Range("C22").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B5:F5").Copy 'Plage à adapter
Sheets("Sheet2").Range("C17").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B6:F6").Copy 'Plage à adapter
Sheets("Sheet2").Range("C12").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B7:F7").Copy 'Plage à adapter
Sheets("Sheet2").Range("C7").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B8:F8").Copy 'Plage à adapter
Sheets("Sheet2").Range("C2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Voici ma premiere feuille excel "Sheet1"
Le but est de prendre les donné de ce tableau et en appuyant sur transposé obtenir le résultat ci apres
http://www.casimages.com
Voici ma feuille 2 "sheet2" ou je transpose mon tableau
Avant d'appui sur le bouton :
http://www.casimages.com
Et apres avoir appuyé sur le bouton
http://www.casimages.com
Donc on peu voir ici que ca fonctionne parfaitement
Maintenant j'aimerai reproduire la meme chose sur un infinité de ligne et colonne...
Et pas faire copier coller le code en changeant les numéro de ligne et colonne sinon je m'en sors pu
Merci a tous pour votre aide
Dernière édition: