Checkbox et Textbox

4 réponses

Michel

13/05/2005 à 14:13

Bonjour
J'ai 4 checkbox, 4 textbox sur un userform, et une cellule D18
Je saisis des noms dans chaque textbox : ex : DURAND Marie
Je souhaite que si je clique sur 1 checkbox puis sur le bouton Valider,
cela envoie le contenu du textbox dans la cellule.
Mais si je clique sur Checkbox2 Checkbox3 etc. Cela envoie dans la cellule
le contenu des Textbox correspondant dans la cellule D18 avec / comme
séparation.
Merci beaucoup
Michel

4 réponses

isabelle

13/05/2005 à 16:22

bonjour Michel,

For i = 1 To 4
If Me.Controls("Checkbox" & i) Then
resultat = resultat & "/" & Me.Controls("TextBox" & i)
End If
Next i
Sheets("Feuil1").Range("D18") = resultat

isabelle

Bonjour
J'ai 4 checkbox, 4 textbox sur un userform, et une cellule D18
Je saisis des noms dans chaque textbox : ex : DURAND Marie
Je souhaite que si je clique sur 1 checkbox puis sur le bouton Valider,
cela envoie le contenu du textbox dans la cellule.
Mais si je clique sur Checkbox2 Checkbox3 etc. Cela envoie dans la cellule
le contenu des Textbox correspondant dans la cellule D18 avec / comme
séparation.
Merci beaucoup
Michel

Michel

13/05/2005 à 17:13

Merci beaucoup Isabelle
Il y a juste un petit souci,
comment enlevez le / devant le premier nom ?
Michel

"isabelle" a écrit dans le message de news:
%

bonjour Michel,

For i = 1 To 4
If Me.Controls("Checkbox" & i) Then
resultat = resultat & "/" & Me.Controls("TextBox" & i)
End If
Next i
Sheets("Feuil1").Range("D18") = resultat

isabelle

Bonjour
J'ai 4 checkbox, 4 textbox sur un userform, et une cellule D18
Je saisis des noms dans chaque textbox : ex : DURAND Marie
Je souhaite que si je clique sur 1 checkbox puis sur le bouton Valider,
cela envoie le contenu du textbox dans la cellule.
Mais si je clique sur Checkbox2 Checkbox3 etc. Cela envoie dans la
cellule le contenu des Textbox correspondant dans la cellule D18 avec /
comme séparation.
Merci beaucoup
Michel

isabelle

13/05/2005 à 18:08

re bonjour Michel,

voilà,
Sheets("Feuil1").Range("D18") = Right(resultat, Len(resultat) - 1)

isabelle

Merci beaucoup Isabelle
Il y a juste un petit souci,
comment enlevez le / devant le premier nom ?
Michel

"isabelle" a écrit dans le message de news:
%

bonjour Michel,

For i = 1 To 4
If Me.Controls("Checkbox" & i) Then
resultat = resultat & "/" & Me.Controls("TextBox" & i)
End If
Next i
Sheets("Feuil1").Range("D18") = resultat

isabelle

Bonjour
J'ai 4 checkbox, 4 textbox sur un userform, et une cellule D18
Je saisis des noms dans chaque textbox : ex : DURAND Marie
Je souhaite que si je clique sur 1 checkbox puis sur le bouton Valider,
cela envoie le contenu du textbox dans la cellule.
Mais si je clique sur Checkbox2 Checkbox3 etc. Cela envoie dans la
cellule le contenu des Textbox correspondant dans la cellule D18 avec /
comme séparation.
Merci beaucoup
Michel

Michel

13/05/2005 à 18:21

Super !!!
C'est parfait Isabelle
Mille merci
Michel

"isabelle" a écrit dans le message de news:
ub$

re bonjour Michel,

voilà,
Sheets("Feuil1").Range("D18") = Right(resultat, Len(resultat) - 1)

isabelle

Merci beaucoup Isabelle
Il y a juste un petit souci,
comment enlevez le / devant le premier nom ?
Michel

"isabelle" a écrit dans le message de news:
%

bonjour Michel,

For i = 1 To 4
If Me.Controls("Checkbox" & i) Then
resultat = resultat & "/" & Me.Controls("TextBox" & i)
End If
Next i
Sheets("Feuil1").Range("D18") = resultat

isabelle

Bonjour
J'ai 4 checkbox, 4 textbox sur un userform, et une cellule D18
Je saisis des noms dans chaque textbox : ex : DURAND Marie
Je souhaite que si je clique sur 1 checkbox puis sur le bouton Valider,
cela envoie le contenu du textbox dans la cellule.
Mais si je clique sur Checkbox2 Checkbox3 etc. Cela envoie dans la
cellule le contenu des Textbox correspondant dans la cellule D18 avec /
comme séparation.
Merci beaucoup
Michel

Checkbox et Textbox

4 réponses

Veuillez sélectionner un problème