le bouton que j'utilise est créer avec le bouton de la barre d'outil formulaire
je le positionne sur la cellule A15 (je ne sais pas si je peux le lié a cette cellule) ensuite je veux copier B15 à F15 dans B100 à F100 pour ensuite lancer l'impression d'une page qui a comme entete B100 à F100
je voudrais faire une seul macro sachant que j'ai 70 bouton (de A15 à A84)
la macro pour une ligne est simple mais je cherche une meme macro que je pourrais affecter a mes 70 boutons
je n'arrive pas lorsque je lance la macro en cliquant sur le bouton qui est positioné sur la case A30 (par exemple) à copier B30 à F30 en B100 à F100
la fonction que je cherche est de copier les cellules B30 F30 du simple fait que je clic sur un bouton qui se trouve sur la cellule A30
De quoi en avoir aussi
Un double-click sur la ligne ou l'ouverture d'une boîte de dialogue pour inscrire les valeurs de l'entête et lancer l'impression ne serait-ce pas plus rationnel ?
A+
kjin
essaye le code ci-dessous, à condition que tes boutons soient bien placés sur la feuile, à utiliser dans un module standard et à affecter à tous tes boutons :
Code:
Sub test()
Range("B" & Sheets("Feuil1").Shapes(Application.Caller).TopLeftCell.Row).Resize(, 5).Copy _
Range("B100:F100")
End Sub
essaye le code ci-dessous, à condition que tes boutons soient bien placés sur la feuile, à utiliser dans un module standard et à affecter à tous tes boutons :
Code:
Sub test()
Range("B" & Sheets("Feuil1").Shapes(Application.Caller).TopLeftCell.Row).Resize(, 5).Copy _
Range("B100:F100")
End Sub
tu as adapté le nom de la feuille ? sinon mets en pièce jointe un tout petit fichier avec juste 3 ou 4 boutons et le code utilisé, celui donné hier fonctionnait chez moi (excel 2003), mais je n'ai plus le fichier...
salut
je repond un peut tard
donc je suis nul en effet je n'avait pas changé le nom de la feuille
une fois corriger ça marche impecable et j'ai pu continuer le code pour obtenir ce que je voulais
encore merci pour vos reponses sans vous et ce forum je n'y serais pas parvenu