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

azerty6767 · 5 Avril 2008

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 · 5 Avril 2008

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 :

Code:

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

Spitnolan08 · 5 Avril 2008

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

Bonjour,

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

Code:

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 · 5 Avril 2008

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

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

azerty6767

XLDnaute Junior

Cousinhub

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

azerty6767

XLDnaute Junior

Discussions similaires