hoix dans 1 Cbx et affiche suivant item, 1,2,3,4 autreCbx et Validation

[MuscatMimi]

Bonjour a tout le Forum

J'ai dans un Usf
1 "CbxN°Cpte" dans laquelle je sélectionne un item, 4 Items permanent
Cpte1,Cpte2,Cpte3,Cpte4
item Cpte1 affiche Cbx N°deChéque1
Item Cpte2 affiche Cbx N°deChéque2
Item Cpte3 affiche CbxN°deChéque3
Item Cpte4 affiche CbxN°deChéque4, la tout fonctionne bien
dans ma Validation je note

Private Sub CommandButton4_Click() 'Valider Modification sur
'--feuille"INTERVENTIONS"Base de Données
With Worksheets("INTERVENTIONS")
.Cells(LigModif, 9) = CbxN°Chéque1.Value
.Cells(LigModif, 9) = CbxN°Chéque2.Value
.Cells(LigModif, 9) = CbxN°Chéque3.Value
.Cells(LigModif, 9) = CbxN°Chéque4.Value

+la suite du code,les autres lignes validation fonctionne bien
Mais ça ne fonctionne pas avec les 4 Cbx,je dois mettre planté quelque part
mais ou????

Merci pour tout a l'avance
Bon dimanche a tous

 

[jp14]

Re : hoix dans 1 Cbx et affiche suivant item, 1,2,3,4 autreCbx et Validation

Bonjour vaucluse immo, à tous

Bonjour a tout le Forum

With Worksheets("INTERVENTIONS")
.Cells(LigModif, 9) = CbxN°Chéque1.Value
.Cells(LigModif, 9) = CbxN°Chéque2.Value
.Cells(LigModif, 9) = CbxN°Chéque3.Value
.Cells(LigModif, 9) = CbxN°Chéque4.Value

Bon dimanche a tous

Avec ce code les données vont se superposer dans la même cellule : .Cells(LigModif, 9)
Cordialement
JP

 

[MuscatMimi]

Re : hoix dans 1 Cbx et affiche suivant item, 1,2,3,4 autreCbx et Validation

Salut JP

oui ça j'ai constaté, pour la supperposition

si j'ai bien compris ton explique
faut que je note .Cells(LigModif, 9) ,tout simplement???oui,non

Merci quand pour ta réponse Bon dimanche

 

[jp14]

Re : hoix dans 1 Cbx et affiche suivant item, 1,2,3,4 autreCbx et Validation

Bonjour

Il faut soit des valeurs différentes
.Cells(LigModif, 9) = CbxN°Chéque1.Value
.Cells(LigModif, 10) = CbxN°Chéque2.Value
.Cells(LigModif, 11) = CbxN°Chéque3.Value
.Cells(LigModif, 12) = CbxN°Chéque4.Value

ou utiliser le code suivant
for i = 1 to 4

if me.controls("CbxN°Chéque" & i).value <> "" then
.Cells(LigModif, 9) = me.controls("CbxN°Chéque" & i).value
exit for
end if
next i
Dans ce cas seul le combo qui à une valeur est utilisé.

A tester

JP

 

[MuscatMimi]

Re : hoix dans 1 Cbx et affiche suivant item, 1,2,3,4 autreCbx et Validation

OK merci je vais tester je te tiens au courant si ça fonctionne

Merci JP