Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MuscatMimi

XLDnaute Accro
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
 
Re : hoix dans 1 Cbx et affiche suivant item, 1,2,3,4 autreCbx et Validation

Bonjour vaucluse immo, à tous


Avec ce code les données vont se superposer dans la même cellule : .Cells(LigModif, 9)
Cordialement
JP
 
Dernière édition:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…