Pb Range("alpha").Value avec alpha=plusieurs cellules....

[azerty6767]

Bonjour,

En fait je souhaite (simplement) renvoyer des valeurs "X" d'un groupe de cellules dans des cases Option d'un UserForm :

J'ai nommé une plage de cellules : alpha

J'écris le code suivant :
_____________________________
If Range("alpha").Value="X" then
Option_case1=true
End if
_____________________________

Or il y a un bug. J'ai réussi à déterminer pourquoi cela ne fonctionne pas. C'est parce que "alpha" est une plage de cellules et non pas une seule et unique cellule.



Par contre, je ne vois pas la solution !


Qelqu'un pourrait-il m'aider ?


.Cells ?




D'avance merci pour votre aide,



Olivier

 

[Cousinhub]

Re : Pb Range("alpha").Value avec alpha=plusieurs cellules....

Bonjour,
je comprends que si toutes les cellules de ta zone Alpha sont égales à X, l'optionbutton1 prend la valeur vraie?

Si cela, à l'initialize, tu peux mettre ceci :

Private Sub UserForm_Initialize()
If [alpha].Count = Application.CountIf([alpha], "X") Then Me.OptionButton1 = True
End Sub

 

[Spitnolan08]

Re : Pb Range("alpha").Value avec alpha=plusieurs cellules....

Bonjour,

Je n'ai pas compris la même chose :

Private Sub UserForm_Initialize()
For i = 1 To 3
If Range("alpha")(i) = "x" Then
Controls("Checkbox" & i) = True
End If
Next
End Sub

Coche les Checkbox correspondant à chaque case avec un x
Ici fait pour une plage Alpha s'étendant de A1 à C3 et 3 Checkbox

Cordialement

Edit : Mais je me suis peut être trompé car cela ne fonctionne pas avec des optionbuttons....

 

[azerty6767]

Re : Pb Range("alpha").Value avec alpha=plusieurs cellules....

Bonjour,

Merci à vous deux !

Par contre, la réponse que j'attendais a été donnée par "bhbh" !
Cela fonctionne avec
_______________
Private Sub UserForm_Initialize()
If [alpha].Count = Application.CountIf([alpha], "X") Then Me.OptionButton1 = True
End Sub
_________________

merci !!




Olivier