Bonsoir Manon, le forum,
La c'est moi qui me suis mal explique...
Donc je recapepete depuis le bedut...
Les deux premieres macros de ton code ne te servent a rien, tu peux les supprimer.
Private Sub ListBox1_click()
End Sub
Ca tu vires
Private Sub Userform_click()
End Sub
Ca aussi tu le vires.
C'est fou ce que l'on peut garder.... :unsure:
Ensuite, comme je te l'ai ecris plus haut, il faut que tu change Ta Private Sub CommanButton1 contre un :
Insertion\\Module
tu le nommes comme tu veux...
Exemple,
Sub ComboVal()
Dim L As Integer
L = Sheets('feuil1').Range('c65536').End(xlUp).Row + 1
Sheets('feuil1').Range('c' & L) = UserForm1.ComboBox1.Value
End Sub
Mais je suis la a essayer d'expliquer un truc qu'est limite plus facile a montrer...
Aller, j'te l'joint !
Bonne soiree
Olivier [file name=Manon_20050913184055.zip size=7100]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Manon_20050913184055.zip[/file]
Argh ! je viens de comprendre !
En fait tu veux copier la formule mais pour chaque feuille
Donc tu peux faire la meme chose que ce que je te propose dans le fichier joint, mais dans chaque feuille, tu cliques droit sur ton beau bouton tout neuf et tu fais Modifier, et tu change juste la partie 'Sheets('feuil1')' par Sheets(Feuil(le no de la feuille concernee))
Si tu comprends pas, ne t'inquiete pas, je viens de me perdre moi aussi...
Allez, si t'as un doute, dis le...
Message édité par: Deudecos, à: 13/09/2005 18:50<br><br>Message édité par: Deudecos, à: 13/09/2005 18:53