Bonjour à toutes et tous
J'ai un problème avec l'initialize de mes listbox,
lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en
revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné
Ci-joint :
http://cjoint.com/?hDw2rwEw4J
Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider
Merci
Flo riant
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
rajoute la 1 ere ligne dans ton module1 cela permet de conserver l'adresse de départ "a" Youky
Public a As String Sub montrer() a = Selection.Address 'ici en plus UserForm1.Show End Sub
Private Sub CommandButton1_Click() If ListBox1.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If If ListBox2.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If Feuil1.Range(a).Value = ListBox1.Text 'modifié Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié Unload Me End Sub
Private Sub UserForm_Initialize() ListBox1 = ActiveCell.Value ListBox2 = ActiveCell.Offset(0, 1).Value End Sub
"Florian" a écrit dans le message de news:
Bonjour à toutes et tous J'ai un problème avec l'initialize de mes listbox, lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné Ci-joint : http://cjoint.com/?hDw2rwEw4J Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider Merci Flo riant
rajoute la 1 ere ligne dans ton module1
cela permet de conserver l'adresse de départ "a"
Youky
Public a As String
Sub montrer()
a = Selection.Address 'ici en plus
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
If ListBox1.Text = "" Then
MsgBox "Désolé, vous devez choisir un mois !"
Exit Sub
End If
If ListBox2.Text = "" Then
MsgBox "Désolé, vous devez choisir un mois !"
Exit Sub
End If
Feuil1.Range(a).Value = ListBox1.Text 'modifié
Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1 = ActiveCell.Value
ListBox2 = ActiveCell.Offset(0, 1).Value
End Sub
"Florian" <florian@toto.fr> a écrit dans le message de news:
OKP84LOlFHA.2396@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous
J'ai un problème avec l'initialize de mes listbox,
lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en
revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation,
seul,
le listbox1 est sélectionné
Ci-joint :
http://cjoint.com/?hDw2rwEw4J
Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider
Merci
Flo riant
rajoute la 1 ere ligne dans ton module1 cela permet de conserver l'adresse de départ "a" Youky
Public a As String Sub montrer() a = Selection.Address 'ici en plus UserForm1.Show End Sub
Private Sub CommandButton1_Click() If ListBox1.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If If ListBox2.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If Feuil1.Range(a).Value = ListBox1.Text 'modifié Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié Unload Me End Sub
Private Sub UserForm_Initialize() ListBox1 = ActiveCell.Value ListBox2 = ActiveCell.Offset(0, 1).Value End Sub
"Florian" a écrit dans le message de news:
Bonjour à toutes et tous J'ai un problème avec l'initialize de mes listbox, lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné Ci-joint : http://cjoint.com/?hDw2rwEw4J Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider Merci Flo riant
Youky
Oups !!!à remplacer par cela initialize
Private Sub UserForm_Initialize() ListBox1 = Feuil1.Range(a).Value ListBox2 = Feuil1.Range(a).Offset(0, 1).Value End Sub
"Youky" a écrit dans le message de news:
rajoute la 1 ere ligne dans ton module1 cela permet de conserver l'adresse de départ "a" Youky
Public a As String Sub montrer() a = Selection.Address 'ici en plus UserForm1.Show End Sub
Private Sub CommandButton1_Click() If ListBox1.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If If ListBox2.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If Feuil1.Range(a).Value = ListBox1.Text 'modifié Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié Unload Me End Sub
Private Sub UserForm_Initialize() ListBox1 = ActiveCell.Value ListBox2 = ActiveCell.Offset(0, 1).Value End Sub
"Florian" a écrit dans le message de news:
Bonjour à toutes et tous J'ai un problème avec l'initialize de mes listbox, lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné Ci-joint : http://cjoint.com/?hDw2rwEw4J Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider Merci Flo riant
Oups !!!à remplacer par cela initialize
Private Sub UserForm_Initialize()
ListBox1 = Feuil1.Range(a).Value
ListBox2 = Feuil1.Range(a).Offset(0, 1).Value
End Sub
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
evJL8KRlFHA.2852@TK2MSFTNGP15.phx.gbl...
rajoute la 1 ere ligne dans ton module1
cela permet de conserver l'adresse de départ "a"
Youky
Public a As String
Sub montrer()
a = Selection.Address 'ici en plus
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
If ListBox1.Text = "" Then
MsgBox "Désolé, vous devez choisir un mois !"
Exit Sub
End If
If ListBox2.Text = "" Then
MsgBox "Désolé, vous devez choisir un mois !"
Exit Sub
End If
Feuil1.Range(a).Value = ListBox1.Text 'modifié
Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1 = ActiveCell.Value
ListBox2 = ActiveCell.Offset(0, 1).Value
End Sub
"Florian" <florian@toto.fr> a écrit dans le message de news:
OKP84LOlFHA.2396@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous
J'ai un problème avec l'initialize de mes listbox,
lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en
revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation,
seul,
le listbox1 est sélectionné
Ci-joint :
http://cjoint.com/?hDw2rwEw4J
Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider
Merci
Flo riant
Private Sub UserForm_Initialize() ListBox1 = Feuil1.Range(a).Value ListBox2 = Feuil1.Range(a).Offset(0, 1).Value End Sub
"Youky" a écrit dans le message de news:
rajoute la 1 ere ligne dans ton module1 cela permet de conserver l'adresse de départ "a" Youky
Public a As String Sub montrer() a = Selection.Address 'ici en plus UserForm1.Show End Sub
Private Sub CommandButton1_Click() If ListBox1.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If If ListBox2.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If Feuil1.Range(a).Value = ListBox1.Text 'modifié Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié Unload Me End Sub
Private Sub UserForm_Initialize() ListBox1 = ActiveCell.Value ListBox2 = ActiveCell.Offset(0, 1).Value End Sub
"Florian" a écrit dans le message de news:
Bonjour à toutes et tous J'ai un problème avec l'initialize de mes listbox, lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné Ci-joint : http://cjoint.com/?hDw2rwEw4J Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider Merci Flo riant
Florian
Merci beaucoup Youki Cela fonctionne très bien Bonne soirée Flo riant
"Youky" a écrit dans le message de news:
Oups !!!à remplacer par cela initialize
Private Sub UserForm_Initialize() ListBox1 = Feuil1.Range(a).Value ListBox2 = Feuil1.Range(a).Offset(0, 1).Value End Sub
"Youky" a écrit dans le message de news:
rajoute la 1 ere ligne dans ton module1 cela permet de conserver l'adresse de départ "a" Youky
Public a As String Sub montrer() a = Selection.Address 'ici en plus UserForm1.Show End Sub
Private Sub CommandButton1_Click() If ListBox1.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If If ListBox2.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If Feuil1.Range(a).Value = ListBox1.Text 'modifié Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié Unload Me End Sub
Private Sub UserForm_Initialize() ListBox1 = ActiveCell.Value ListBox2 = ActiveCell.Offset(0, 1).Value End Sub
"Florian" a écrit dans le message de news:
Bonjour à toutes et tous J'ai un problème avec l'initialize de mes listbox, lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné Ci-joint : http://cjoint.com/?hDw2rwEw4J Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider Merci Flo riant
Merci beaucoup Youki
Cela fonctionne très bien
Bonne soirée
Flo riant
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
OFDWMVRlFHA.3148@TK2MSFTNGP09.phx.gbl...
Oups !!!à remplacer par cela initialize
Private Sub UserForm_Initialize()
ListBox1 = Feuil1.Range(a).Value
ListBox2 = Feuil1.Range(a).Offset(0, 1).Value
End Sub
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
evJL8KRlFHA.2852@TK2MSFTNGP15.phx.gbl...
rajoute la 1 ere ligne dans ton module1
cela permet de conserver l'adresse de départ "a"
Youky
Public a As String
Sub montrer()
a = Selection.Address 'ici en plus
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
If ListBox1.Text = "" Then
MsgBox "Désolé, vous devez choisir un mois !"
Exit Sub
End If
If ListBox2.Text = "" Then
MsgBox "Désolé, vous devez choisir un mois !"
Exit Sub
End If
Feuil1.Range(a).Value = ListBox1.Text 'modifié
Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1 = ActiveCell.Value
ListBox2 = ActiveCell.Offset(0, 1).Value
End Sub
"Florian" <florian@toto.fr> a écrit dans le message de news:
OKP84LOlFHA.2396@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous
J'ai un problème avec l'initialize de mes listbox,
lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais
en
revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation,
seul,
le listbox1 est sélectionné
Ci-joint :
http://cjoint.com/?hDw2rwEw4J
Il n'y a que le listbox1 qui est sélectionner lorsque je veux
re-valider
Merci
Flo riant
Merci beaucoup Youki Cela fonctionne très bien Bonne soirée Flo riant
"Youky" a écrit dans le message de news:
Oups !!!à remplacer par cela initialize
Private Sub UserForm_Initialize() ListBox1 = Feuil1.Range(a).Value ListBox2 = Feuil1.Range(a).Offset(0, 1).Value End Sub
"Youky" a écrit dans le message de news:
rajoute la 1 ere ligne dans ton module1 cela permet de conserver l'adresse de départ "a" Youky
Public a As String Sub montrer() a = Selection.Address 'ici en plus UserForm1.Show End Sub
Private Sub CommandButton1_Click() If ListBox1.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If If ListBox2.Text = "" Then MsgBox "Désolé, vous devez choisir un mois !" Exit Sub End If Feuil1.Range(a).Value = ListBox1.Text 'modifié Feuil1.Range(a).Offset(0, 1).Value = ListBox2.Text 'modifié Unload Me End Sub
Private Sub UserForm_Initialize() ListBox1 = ActiveCell.Value ListBox2 = ActiveCell.Offset(0, 1).Value End Sub
"Florian" a écrit dans le message de news:
Bonjour à toutes et tous J'ai un problème avec l'initialize de mes listbox, lorsque je valide après clic sur les 2 listbox, cela fonctionne, mais en revanche, si j'appelle ceux-ci, avec l'initialize, pour la validation, seul,
le listbox1 est sélectionné Ci-joint : http://cjoint.com/?hDw2rwEw4J Il n'y a que le listbox1 qui est sélectionner lorsque je veux re-valider Merci Flo riant
