Discussion :

[FouzYYY]

Bonjour le forum

coincé sur mon projet vba je revien vers vous pour que je puisse trouver une solution a mon problème,j'ai beau cherche dans les forum et le net mais sans résultat

voila mon projet est un useform avec un multipage tout marche bien les saisie les modification les listbox bref impeccable sauf je coin sur les option button

quand je saisi des donner et choisir les choix d'option button tout vas bien

mon souci c'est : j'aimerai quand je clique sur un enregistrement dans la list box récupérer la valeur choisi d'option button pour que je puisse modifie .

voici le code utilise pour inserare le choix d'option buuton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 For Each ctrlm In Energy.Controls
              If ctrlm.Value = True Then
                  FM.range("E6") = ctrlm.Caption
                        End If

pour récupéré les valeur d’enregistrement depuis la listbox le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
f plag = 1 Then Exit Sub
    For m = 6 To FM.range("c" & Rows.Count).End(xlUp).Row
        If UCase(FM.range("c" & m)) = UCase(LISTbox2) Then
            'quand on l'a trouvé, on reporte les indications dans les textbox
                TYPEV2 = FM.range("B" & m)
            IMMA2 = FM.range("C" & m)
            AFFECTA2 = FM.range("D" & m)
 
 
         'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True  '  C'est la ou je coince............
    'Else: ESSENCE2 = fr.range("e" & e) = "Go"
 
        End If
 
    Next m
    plag = 0

pour le button modifie j'utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
plag = 1
    For m = 6 To FM.range("c" & Rows.Count).End(xlUp).Row
        If UCase(FM.range("c" & m)) = UCase(LISTbox2) Then
 
            FM.range("B" & m) = TYPEV2
            FM.range("C" & m) = IMMA2
            FM.range("D" & m) = AFFECTA2
 
'                                         Manque  le code pour modifier les Option button
 
            End If
    Next m

Svp...Merci de m'aider

[FouzYYY]

UP

quelqu’un M'aide SVP

[Transitoire]

Bonjour, ça manque furieusement d'explications!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True  '  C'est la ou je coince............
          'Else: ESSENCE2 = fr.range("e" & e) = "Go"

Que veut dire "c'est la ou je coince..."? ça ne fait pas ce que vous voulez? ça bug? s'il y a un message d'erreur, il faut dire lequel? On n'est pas voyant extra-lucide.

Manque le code pour modifier les Option button

Qu'est-ce que ça veut dire? Si c'est remettre les boutons d'options a zéro voici un code, a mettre à la sauce de votre programme , sinon faudra donner des explications supplémentaires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For y = 1 To 3
 NomOption = "OptionButton" & y
 Controls(NomOption).Value = False
 Next y

Cordialement

[FouzYYY]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
f plag = 1 Then Exit Sub
    For m = 6 To FM.range("c" & Rows.Count).End(xlUp).Row
        If UCase(FM.range("c" & m)) = UCase(LISTbox2) Then
            'quand on l'a trouvé, on reporte les indications dans les textbox
                TYPEV2 = FM.range("B" & m)
            IMMA2 = FM.range("C" & m)
            AFFECTA2 = FM.range("D" & m)
 
 
         'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True  '  C'est la ou je coince............
    'Else: ESSENCE2 = fr.range("e" & e) = "Go"

ici j'ai besoin de code vba pour que quand je clik sur la list box je récupérer les donne

il me reste le code vba pour récupérer les valeur d'option button

exemple ::

je saisie les donne
nom =AZERTY
adresse=QWERTY
option biutoon ) male

je veu que quan je clique sur liste box je repure les donne saisie
pour ce exemple je dois recuperer

azerty
qwerty

et le choix option button c'est ici ou je coine le code vba pour recuperer les valeur option button..

j’espère que je suis tre claire dans mes explication

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'If ESSENCE2 = fr.range("e" & e) = "Ess" Then ESSENCE2.Value = True  '  C'est la ou je coince............
          'Else: ESSENCE2 = fr.range("e" & e) = "Go"

ceci c'est un commentaire pour vous explique ce que je veux


pour la modification c'est clair on modifier pas remettre les option button a zero !!!!!!!!!

modifier une saisie...

le code vba pour modifier le choix...