Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer automatiquement
des references a 6 chiffres dans une cellule, ceci a partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la liste
et il faut renvoyer le code de 2 chiffres correspondant a ce nom- liste
Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer automatiquement
des references a 6 chiffres dans une cellule, ceci a partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la liste
et il faut renvoyer le code de 2 chiffres correspondant a ce nom- liste
Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer automatiquement
des references a 6 chiffres dans une cellule, ceci a partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la liste
et il faut renvoyer le code de 2 chiffres correspondant a ce nom- liste
Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons
du userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de
la liste et il faut renvoyer le code de 2 chiffres correspondant a ce
nom- liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc <ns.jeanluc.laurent@free.fr.ns> said:
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons
du userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de
la liste et il faut renvoyer le code de 2 chiffres correspondant a ce
nom- liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons
du userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de
la liste et il faut renvoyer le code de 2 chiffres correspondant a ce
nom- liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le listbox
je voudrais obtenir 122366 dans une cellule. si 3eme bouton et lundi, alors
132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer automatiquement
des references a 6 chiffres dans une cellule, ceci a partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le listbox
je voudrais obtenir 122366 dans une cellule. si 3eme bouton et lundi, alors
132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc <ns.jeanluc.laurent@free.fr.ns> said:
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer automatiquement
des references a 6 chiffres dans une cellule, ceci a partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le listbox
je voudrais obtenir 122366 dans une cellule. si 3eme bouton et lundi, alors
132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer automatiquement
des references a 6 chiffres dans une cellule, ceci a partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonjour,
en supposant que tes boutons s'appellent optionbuttonx , ton listbox Listbox1
et qeu la feuille sur laquelle est la cellule A1 s'appelle toto.
Enfin, on suppose aussi que le listbox a été cliqué pour obtenir une valeur
et qu'un des optionbutton est cliqué.
A mettre dans le module du Userform bien sur.
with Me.
variable=(.OptionButton1.Value * -11+.OptionButton2.Value *
-12+.OptionButton3.Value * -13) & .ListBox1.value &sheets("toto").cells(1,1)
End With
A+Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le listbox
je voudrais obtenir 122366 dans une cellule. si 3eme bouton et lundi, alors
132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonjour,
en supposant que tes boutons s'appellent optionbuttonx , ton listbox Listbox1
et qeu la feuille sur laquelle est la cellule A1 s'appelle toto.
Enfin, on suppose aussi que le listbox a été cliqué pour obtenir une valeur
et qu'un des optionbutton est cliqué.
A mettre dans le module du Userform bien sur.
with Me.
variable=(.OptionButton1.Value * -11+.OptionButton2.Value *
-12+.OptionButton3.Value * -13) & .ListBox1.value &sheets("toto").cells(1,1)
End With
A+
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le listbox
je voudrais obtenir 122366 dans une cellule. si 3eme bouton et lundi, alors
132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc <ns.jeanluc.laurent@free.fr.ns> said:
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
Bonjour,
en supposant que tes boutons s'appellent optionbuttonx , ton listbox Listbox1
et qeu la feuille sur laquelle est la cellule A1 s'appelle toto.
Enfin, on suppose aussi que le listbox a été cliqué pour obtenir une valeur
et qu'un des optionbutton est cliqué.
A mettre dans le module du Userform bien sur.
with Me.
variable=(.OptionButton1.Value * -11+.OptionButton2.Value *
-12+.OptionButton3.Value * -13) & .ListBox1.value &sheets("toto").cells(1,1)
End With
A+Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le listbox
je voudrais obtenir 122366 dans une cellule. si 3eme bouton et lundi, alors
132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End SubBonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui
valent lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End Sub
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui
valent lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc <ns.jeanluc.laurent@free.fr.ns> said:
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End SubBonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui
valent lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End Sub
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End Sub
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End Sub
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Dans le listbox, l'index de la premiere entree est 0, la deuxieme 1...
Bonsoir,
Je ne comprends pas dans Range("A2") = bouton & Listbox1.ListIndex + 22 &
Range("A1"), pourquoi le +22? En fait les valeurs ne se suivent pas (j'ai un
tableau a 2 colonne sur une feuille pour les equivalences-jours dans la 1ere
et nombres dans le seconde...).
Là, il faut que je regarde plus loin.
Et pourquoi creer un bouton "Generer"? C'est pas possible automatiquement sur
la fermeture du userform?
Si, c'est faisable dans :
Pierre.M
On 2006-08-25 19:17:12 +0200, JLuc said:*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End SubBonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Dans le listbox, l'index de la premiere entree est 0, la deuxieme 1...
Bonsoir,
Je ne comprends pas dans Range("A2") = bouton & Listbox1.ListIndex + 22 &
Range("A1"), pourquoi le +22? En fait les valeurs ne se suivent pas (j'ai un
tableau a 2 colonne sur une feuille pour les equivalences-jours dans la 1ere
et nombres dans le seconde...).
Là, il faut que je regarde plus loin.
Et pourquoi creer un bouton "Generer"? C'est pas possible automatiquement sur
la fermeture du userform?
Si, c'est faisable dans :
Pierre.M
On 2006-08-25 19:17:12 +0200, JLuc <ns.jeanluc.laurent@free.fr.ns> said:
*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End Sub
Bonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc <ns.jeanluc.laurent@free.fr.ns> said:
*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))
Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Dans le listbox, l'index de la premiere entree est 0, la deuxieme 1...
Bonsoir,
Je ne comprends pas dans Range("A2") = bouton & Listbox1.ListIndex + 22 &
Range("A1"), pourquoi le +22? En fait les valeurs ne se suivent pas (j'ai un
tableau a 2 colonne sur une feuille pour les equivalences-jours dans la 1ere
et nombres dans le seconde...).
Là, il faut que je regarde plus loin.
Et pourquoi creer un bouton "Generer"? C'est pas possible automatiquement sur
la fermeture du userform?
Si, c'est faisable dans :
Pierre.M
On 2006-08-25 19:17:12 +0200, JLuc said:*Bonjour Pimu*,
Declare une variable (Dim bouton As Integer) en globale, dans
Sub B1_Clic()
bouton = 11
End Sub
Sub B2_Clic()
bouton = 12
End Sub
Sub B3_Clic()
bouton = 13
End Sub
Cree un bouton "Générer"
Sub Generer_clic()
Range("A2") = bouton & Listbox1.ListIndex + 22 & Range("A1")
End SubBonsoir, et merci de t'interesser a mon probleme.
En fait dans mon userform, j'ai 3 boutons B1,B2,B3 qui ont pour valeur
11,12,13. J'ai aussi un listbox avec les jours de la semaines qui valent
lundi", mardi#, mercredi$... Et en A1 j'ai 66.
Si je clique sur le 2eme bouton et que je selectionne mardi dans le
listbox je voudrais obtenir 122366 dans une cellule. si 3eme bouton et
lundi, alors 132266...etc
Est-ce plus clair comme ca?
Merci encore.
Pimu
On 2006-08-25 18:18:42 +0200, JLuc said:*Bonjour Pierre.M*,
C'est pas tres clair, pourrais tu mettre ton fichier sur www.cjoint.com ?
(Si les données ne sont pas confidentielles ;o))Bonsoir,
Quelqu'un saurait-il m'aider a bricoler un code pour creer
automatiquement des references a 6 chiffres dans une cellule, ceci a
partir d'un userform?
Mes 2 premiers chiffre sont renvoyes par le choix d'un des 3 boutons du
userform, chacun revoyant un code de 2 chiffres.
Mes 2 suivants dependent du choix d'un listbox (on choisi un nom de la
liste et il faut renvoyer le code de 2 chiffres correspondant a ce nom-
liste Feuil1 A1:B12).
Mes 2 derniers se trouvent en cellules A1.
Mon tout forme une reference a 6 chiffres ;-)
Merci d'avance pour vos toujours bonnes idees.
Pierre.M
En fait les valeurs ne se suivent pas (j'ai
un tableau a 2 colonne sur une feuille pour les equivalences-jours dans la
1ere et nombres dans le seconde...).
Là, il faut que je regarde plus loin.
En fait les valeurs ne se suivent pas (j'ai
un tableau a 2 colonne sur une feuille pour les equivalences-jours dans la
1ere et nombres dans le seconde...).
Là, il faut que je regarde plus loin.
En fait les valeurs ne se suivent pas (j'ai
un tableau a 2 colonne sur une feuille pour les equivalences-jours dans la
1ere et nombres dans le seconde...).
Là, il faut que je regarde plus loin.
En fait les valeurs ne se suivent pas (j'ai un tableau a 2 colonne sur
une feuille pour les equivalences-jours dans la 1ere et nombres dans le
seconde...).
Là, il faut que je regarde plus loin.
Ca y est, j'ai pris le temps de regarder plus avant. Dans la listbox,
tu defini ainsi les proprietes :
BoundColumn = 2
ColumnCount = 2
ColumnWidths = 60;0
RowSource = Feuil1!A1:B7
Dans le code de l'userform :
Private Sub UserForm_Terminate()
Range("A2") = bouton & Listbox1 & Range("A1")
End Sub
J'ai conserver la variable "bouton" car je ne sais pas exactement
comment tu gere tes trois boutons...
En fait les valeurs ne se suivent pas (j'ai un tableau a 2 colonne sur
une feuille pour les equivalences-jours dans la 1ere et nombres dans le
seconde...).
Là, il faut que je regarde plus loin.
Ca y est, j'ai pris le temps de regarder plus avant. Dans la listbox,
tu defini ainsi les proprietes :
BoundColumn = 2
ColumnCount = 2
ColumnWidths = 60;0
RowSource = Feuil1!A1:B7
Dans le code de l'userform :
Private Sub UserForm_Terminate()
Range("A2") = bouton & Listbox1 & Range("A1")
End Sub
J'ai conserver la variable "bouton" car je ne sais pas exactement
comment tu gere tes trois boutons...
En fait les valeurs ne se suivent pas (j'ai un tableau a 2 colonne sur
une feuille pour les equivalences-jours dans la 1ere et nombres dans le
seconde...).
Là, il faut que je regarde plus loin.
Ca y est, j'ai pris le temps de regarder plus avant. Dans la listbox,
tu defini ainsi les proprietes :
BoundColumn = 2
ColumnCount = 2
ColumnWidths = 60;0
RowSource = Feuil1!A1:B7
Dans le code de l'userform :
Private Sub UserForm_Terminate()
Range("A2") = bouton & Listbox1 & Range("A1")
End Sub
J'ai conserver la variable "bouton" car je ne sais pas exactement
comment tu gere tes trois boutons...
