Bonsoir, ce message est un peu ciblé....pour daniel.
Alors voilà je me suis servit de la macro du dernier classeur que tu
m'as envoyé et cela donne ce qui suit. Tout fonctionne à l'exception de
ma deuxième ListBox situé dans le UserForm "concurrent". Comment faire
donc pour récupérer dans deux colonnes différentes deux données choisi
dans un même UserForm ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 20 Then
petit_materiel.Show
If Var = "!!!" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & ", veuillez
confirmer.", vbOKCancel)
If rep = 2 Then Exit Sub
Range("C" & Target.Row) = Var
ElseIf Target.Column = 22 Then
If Target.Value <> 5 Then Exit Sub
concurrent.Show
If Var = "!!!" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & " et " & Var2 & ",
veuillez confirmer.", vbOKCancel)
If rep = 2 Then Exit Sub
Range("A" & Target.Row) = Var
Range("B" & Target.Row) = Var2
End If
Var = ""
End Sub
L'un des UserForm appelé "concurrent" dispose de 2 ListBox
Je souhaite que la valeur de la ListBox1 appelé "liste_bioch" aille se
ranger dans la colonne A de ma feuille et que la valeur de la ListBox2
appelé "liste_hemato" aille se ranger dans la colonne B
Sachant que cela marchait pour une valeur avec "Var" je me suis dit que
avec Var2, Excel se comprendrait ma démarche...que neni !!!
Seul la valeur de la listeBox 1 est correctement rangé en colonne A, our
l'autre, rien ne se passe, et je n'ai aucun message d'erreur. Précison
que je débute et que j'ai surement commis une boulette, mais laquelle ?
Ci-dessous le code de mon UserForm qui comprend également un bouton OK,
un un bouton Annuler :
Private Sub cbAnnul_Click()
Unload concurrent
Var = ""
End Sub
Private Sub cbok_Click()
Var = liste_bioch.Value
Var2 = liste_hemato.Value
Unload concurrent
End Sub
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
Daniel
Bonsoir. Mauvais titre, moi, quand je vois qu'un post s'adresse à quelqu'un d'autre que moi, je ne regarde pas. Ceci dit, Ca serait plus facile si tu mettais ton classeur à disposition sur www.cjoint.com. Cordialement. Daniel "Soupull" a écrit dans le message de news: O%
Bonsoir, ce message est un peu ciblé....pour daniel.
Alors voilà je me suis servit de la macro du dernier classeur que tu m'as envoyé et cela donne ce qui suit. Tout fonctionne à l'exception de ma deuxième ListBox situé dans le UserForm "concurrent". Comment faire donc pour récupérer dans deux colonnes différentes deux données choisi dans un même UserForm ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 20 Then petit_materiel.Show If Var = "!!!" Then Exit Sub rep = MsgBox("Vous avez choisi " & Var & ", veuillez confirmer.", vbOKCancel) If rep = 2 Then Exit Sub Range("C" & Target.Row) = Var ElseIf Target.Column = 22 Then If Target.Value <> 5 Then Exit Sub concurrent.Show If Var = "!!!" Then Exit Sub rep = MsgBox("Vous avez choisi " & Var & " et " & Var2 & ", veuillez confirmer.", vbOKCancel) If rep = 2 Then Exit Sub Range("A" & Target.Row) = Var Range("B" & Target.Row) = Var2 End If Var = "" End Sub
L'un des UserForm appelé "concurrent" dispose de 2 ListBox Je souhaite que la valeur de la ListBox1 appelé "liste_bioch" aille se ranger dans la colonne A de ma feuille et que la valeur de la ListBox2 appelé "liste_hemato" aille se ranger dans la colonne B Sachant que cela marchait pour une valeur avec "Var" je me suis dit que avec Var2, Excel se comprendrait ma démarche...que neni !!! Seul la valeur de la listeBox 1 est correctement rangé en colonne A, our l'autre, rien ne se passe, et je n'ai aucun message d'erreur. Précison que je débute et que j'ai surement commis une boulette, mais laquelle ? Ci-dessous le code de mon UserForm qui comprend également un bouton OK, un un bouton Annuler :
Private Sub cbAnnul_Click() Unload concurrent Var = "" End Sub
Private Sub cbok_Click() Var = liste_bioch.Value Var2 = liste_hemato.Value Unload concurrent End Sub
Merci.
Soupull
Bonsoir.
Mauvais titre, moi, quand je vois qu'un post s'adresse à quelqu'un d'autre
que moi, je ne regarde pas. Ceci dit, Ca serait plus facile si tu mettais
ton classeur à disposition sur www.cjoint.com.
Cordialement.
Daniel
"Soupull" <soupull@wanadoo.fr> a écrit dans le message de news:
O%23KuntjPGHA.2472@TK2MSFTNGP11.phx.gbl...
Bonsoir, ce message est un peu ciblé....pour daniel.
Alors voilà je me suis servit de la macro du dernier classeur que tu m'as
envoyé et cela donne ce qui suit. Tout fonctionne à l'exception de ma
deuxième ListBox situé dans le UserForm "concurrent". Comment faire donc
pour récupérer dans deux colonnes différentes deux données choisi dans un
même UserForm ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 20 Then
petit_materiel.Show
If Var = "!!!" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & ", veuillez confirmer.",
vbOKCancel)
If rep = 2 Then Exit Sub
Range("C" & Target.Row) = Var
ElseIf Target.Column = 22 Then
If Target.Value <> 5 Then Exit Sub
concurrent.Show
If Var = "!!!" Then Exit Sub
rep = MsgBox("Vous avez choisi " & Var & " et " & Var2 & ",
veuillez confirmer.", vbOKCancel)
If rep = 2 Then Exit Sub
Range("A" & Target.Row) = Var
Range("B" & Target.Row) = Var2
End If
Var = ""
End Sub
L'un des UserForm appelé "concurrent" dispose de 2 ListBox
Je souhaite que la valeur de la ListBox1 appelé "liste_bioch" aille se
ranger dans la colonne A de ma feuille et que la valeur de la ListBox2
appelé "liste_hemato" aille se ranger dans la colonne B
Sachant que cela marchait pour une valeur avec "Var" je me suis dit que
avec Var2, Excel se comprendrait ma démarche...que neni !!!
Seul la valeur de la listeBox 1 est correctement rangé en colonne A, our
l'autre, rien ne se passe, et je n'ai aucun message d'erreur. Précison que
je débute et que j'ai surement commis une boulette, mais laquelle ?
Ci-dessous le code de mon UserForm qui comprend également un bouton OK, un
un bouton Annuler :
Private Sub cbAnnul_Click()
Unload concurrent
Var = ""
End Sub
Private Sub cbok_Click()
Var = liste_bioch.Value
Var2 = liste_hemato.Value
Unload concurrent
End Sub
Bonsoir. Mauvais titre, moi, quand je vois qu'un post s'adresse à quelqu'un d'autre que moi, je ne regarde pas. Ceci dit, Ca serait plus facile si tu mettais ton classeur à disposition sur www.cjoint.com. Cordialement. Daniel "Soupull" a écrit dans le message de news: O%
Bonsoir, ce message est un peu ciblé....pour daniel.
Alors voilà je me suis servit de la macro du dernier classeur que tu m'as envoyé et cela donne ce qui suit. Tout fonctionne à l'exception de ma deuxième ListBox situé dans le UserForm "concurrent". Comment faire donc pour récupérer dans deux colonnes différentes deux données choisi dans un même UserForm ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 20 Then petit_materiel.Show If Var = "!!!" Then Exit Sub rep = MsgBox("Vous avez choisi " & Var & ", veuillez confirmer.", vbOKCancel) If rep = 2 Then Exit Sub Range("C" & Target.Row) = Var ElseIf Target.Column = 22 Then If Target.Value <> 5 Then Exit Sub concurrent.Show If Var = "!!!" Then Exit Sub rep = MsgBox("Vous avez choisi " & Var & " et " & Var2 & ", veuillez confirmer.", vbOKCancel) If rep = 2 Then Exit Sub Range("A" & Target.Row) = Var Range("B" & Target.Row) = Var2 End If Var = "" End Sub
L'un des UserForm appelé "concurrent" dispose de 2 ListBox Je souhaite que la valeur de la ListBox1 appelé "liste_bioch" aille se ranger dans la colonne A de ma feuille et que la valeur de la ListBox2 appelé "liste_hemato" aille se ranger dans la colonne B Sachant que cela marchait pour une valeur avec "Var" je me suis dit que avec Var2, Excel se comprendrait ma démarche...que neni !!! Seul la valeur de la listeBox 1 est correctement rangé en colonne A, our l'autre, rien ne se passe, et je n'ai aucun message d'erreur. Précison que je débute et que j'ai surement commis une boulette, mais laquelle ? Ci-dessous le code de mon UserForm qui comprend également un bouton OK, un un bouton Annuler :
Private Sub cbAnnul_Click() Unload concurrent Var = "" End Sub
Private Sub cbok_Click() Var = liste_bioch.Value Var2 = liste_hemato.Value Unload concurrent End Sub
