Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb de boucle et IF

Pb de boucle et IF

2 réponses
Avatar
Shewy du 80 !!
Bonjour à tous

Besoin d'aide, je ne parviens jamais à entrer dans mon IF car la cde
OptionButtonI.value n'est pas lu comme telle

MErci de votre aide


For i = 1 To 8
MsgBox "TEST : OptionButton" & i & ".Value"
If (OptionButton & i & .Value) = True Then
MsgBox "Bouton Teste :" & i
End If
Next


--
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Pascal Engelmajer
Salut,
If (me.controls("OptionButton" & i ).value = True Then


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Shewy du 80 !!" <not> a écrit dans le message de news:

Bonjour à tous

Besoin d'aide, je ne parviens jamais à entrer dans mon IF car la cde
OptionButtonI.value n'est pas lu comme telle

MErci de votre aide


For i = 1 To 8
MsgBox "TEST : OptionButton" & i & ".Value"
If (OptionButton & i & .Value) = True Then
MsgBox "Bouton Teste :" & i
End If
Next


--





Avatar
Shewy du 80 !!
Toi : je t'aime !!!!

Merki bcp !!!!!!! je me suis pris la tete dessus ....

bonne prog' à toi
@++

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
If (me.controls("OptionButton" & i ).value = True Then


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Shewy du 80 !!" <not> a écrit dans le message de news:

Bonjour à tous

Besoin d'aide, je ne parviens jamais à entrer dans mon IF car la cde
OptionButtonI.value n'est pas lu comme telle

MErci de votre aide


For i = 1 To 8
MsgBox "TEST : OptionButton" & i & ".Value"
If (OptionButton & i & .Value) = True Then
MsgBox "Bouton Teste :" & i
End If
Next


--