UN bouton pour pls feuilles

[Manon]

Bonsoir à tout le monde

Olivier m'a bien dépanné avec le code suivant .
Ca fonctionne super bien.....pour la feuille1

Y a t-il un moyen d'utiliser ce code sur 12 feuilles du même fichier sans refaire un Command Button sur chaque feuille.

Code de Olivier:

Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets('feuil1').Range('c65536').End(xlUp).Row + 1
Sheets('feuil1').Range('c' & L) = UserForm1.ComboBox1.Value

End Sub

Merci les AS

 

[deudecos]

Bonjour Manon, le forum,

Pour ca Manon, et a condition que le code concerne exactement la meme fonction, sur une feuille unique (Feuil1)
Tu reprends le bout de code que tu mets dans un module :

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

Ensuite, tu creer un bouton que tu te contente de recopier sur chaque feuille, en lui affectant cette macro. Mais la condition c'est que la fonction soit rigoureusement identique.

Bonne journee

Olivier

 

[Manon]

deudecos écrit:

Bonjour Manon, le forum,

Pour ca Manon, et a condition que le code concerne exactement la meme fonction, sur une feuille unique (Feuil1)
Tu reprends le bout de code que tu mets dans un module :

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

Ensuite, tu creer un bouton que tu te contente de recopier sur chaque feuille, en lui affectant cette macro. Mais la condition c'est que la fonction soit rigoureusement identique.

Bonne journee

Olivier

Bonjour à tous

Je me suis mal exprimée (la nuit porte conseil..)
Voici ce que j'ai:

Dans -- Feuil1

Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub


Dans --User Form1

Private Sub ListBox1_Click()
End Sub

Private Sub UserForm_Click()
End Sub

Private Sub CommandButton1_Click() ****je crois que mon problème est ici
Dim L As Integer
L = Sheets('Feuil1').Range('b65536').End(xlUp).Row + 1
Sheets('Feuil1').Range('b' & L) = UserForm1.ListBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub


Dans mon classeur, je dois avoir 12 feuilles identiques.
Étant donné la ref. ..Sheets('Feuil1')...je ne parviens pas à faire copier les valeurs de la liste dans le range des nouvelles feuilles.

J'ai essayé pls test avec le code que tu m'as donné en changeant 'combo pour list' mais je n'y arrive pas.

Merci Olivier

 

[deudecos]

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

Message édité par: Deudecos, à: 13/09/2005 18:53

 

[Manon]

deudecos écrit:

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

Merci mais comme une image vaut mille mots, je t'envoie le zip pour que tu puisses mieux voir à je veux en venir
[file name=test_20050913200442.zip size=15478]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050913200442.zip[/file]

 

[deudecos]

Bonjour Manon,

Ca y est, cette fois j'ai bien compris et je te renvois ton fichier modifie et avec quelques explications.

J'espere que cette fois sera la bonne

Bonne journee

Olivier

 

[Manon]

deudecos écrit:

Bonjour Manon,

Ca y est, cette fois j'ai bien compris et je te renvois ton fichier modifie et avec quelques explications.

J'espere que cette fois sera la bonne

Bonne journee

Olivier

Bonjour Olivier et tout le forum

Excuse moi, je n'ai peut-être pas très bien compris.
Mais il est où mon nouveau fichier???
J'ai essayé celui que je t'avais envoyé, mais il ne comporte aucun changement.

à bientôt

Manon

 

[deudecos]

Re Manon, le forum,

Oups ! toutes mes excuses, j'ai fais ca ce midi, un peu rapidement et je n'ai pas verifie si j'avais bien joint le fichier...
Oui, des fois, mon pseudo me va si bien... :silly:

Allez, cette fois c'est la bonne ! enfin j'espere... :unsure:

Bonne soiree

Olivier [file name=Manon_20050914161401.zip size=7100]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Manon_20050914161401.zip[/file]

 

[Manon]

deudecos écrit:

Re Manon, le forum,

Oups ! toutes mes excuses, j'ai fais ca ce midi, un peu rapidement et je n'ai pas verifie si j'avais bien joint le fichier...
Oui, des fois, mon pseudo me va si bien... :silly:

Allez, cette fois c'est la bonne ! enfin j'espere... :unsure:

Bonne soiree

Olivier [file name=Manon_20050914161401.zip size=7100]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Manon_20050914161401.zip[/file]

Bonjour Olivier, le forum

Il semble qu'on se soit un peu perdu.

Le fichier que tu m'as envoyé n'est pas mon programme mais il est identique au premier code que tu m'avais envoyé.

On recommence .... si tu es d'accord bien entendu!

A plus

Manon

 

[deudecos]

Bonjour Manon, le forum,

Un jour ou l'autre, il faudra que je me fasse greffer un autre cerveau...

Bon, cette fois, et apres verification, c'est le bon fichier.

Merci de ta patience !

Bonne journee

Olivier [file name=Manon_20050915044313.zip size=20868]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Manon_20050915044313.zip[/file]

 

[ya_v_ka]

Hello Manon, Olivier

je transmets le fichier joint, qui n'est qu'un retravail du fichier d'Olivier, je cherchais juste à comprendre si je pouvais tout mettre sur le même bouton pour éviter de ne remplir qu'une référence... seulement un exercice de style pour moi, juste pour comprendre, mais au cas ou cela pourrait servir à un autre neophyte...

ya'v [file name=testc.zip size=14376]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testc.zip[/file]

 

[Manon]

ya_v_ka écrit:

Hello Manon, Olivier

je transmets le fichier joint, qui n'est qu'un retravail du fichier d'Olivier, je cherchais juste à comprendre si je pouvais tout mettre sur le même bouton pour éviter de ne remplir qu'une référence... seulement un exercice de style pour moi, juste pour comprendre, mais au cas ou cela pourrait servir à un autre neophyte...

ya'v [file name=testc.zip size=14376]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testc.zip[/file]

Bonjour ya'v

je te remercie, tu as résolu mon problème.

Je n'avais qu'à changer Feuil1 pour 'ActiveSheet'.

Ton idée est super mais me cause quelques problèmes.Lorsque j'utilise la 2e réf il saute une ligne et mon list box ne reste pas affiché. Je vais quand même essayer de jouer un peu avec car j'aime bien l'idée.
Manon

 

[ya_v_ka]

hello

je n'ai rien résolu du tout, c'est deudecos qui a tout fait...

rendons à César ce qui est à César et à Dieu ce qui est à Dieu... comme ca ils ne se battrons pas !

ya'v

 

[deudecos]

Re Manon, Ya_v_ka, le forum,

Bon, Manon, je viens de regler ton probleme avec le fichier de Ya_v_ka (tu m'en veux pas hein Ya_v ? )
Maintenant tes entrees suivent la colonne comme tu le souhaites.

Si tu veux autre chose, profites en, je suis encore dispo jusqu'a mardi...

Bonne soiree

Olivier [file name=testc_20050915221928.zip size=14615]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testc_20050915221928.zip[/file]

Au fait, Manon, tu sais que pour repondre tu n'es pas obligee de citer celui qui t'ecris... Mais peut etre est ce voulu ?

Message édité par: Deudecos, à: 15/09/2005 22:22

 

[ya_v_ka]

re tout le monde

d'abord je ne t'en veux pas, c'était ton code depuis le départ
ensuite j'avais d'abord fait comme cela, mais ca m'a paru inutile de ne pas remplir les 2 colonnes en simultané, et j'ai cherché à contourner cela

et le jour ou j'en voudrais à quelqu'un qui cherche à aider les autres, je penses que je ferais mieux de ne plus trainer dans le coin !!!

;-)

ya'v