message d'erreur

Pierrot93

XLDnaute Barbatruc

• 29 Octobre 2010

• #2

Re : message d'erreur

Bonjour,

essaye peut être ainsi :

Code:

If Ctrl.Value = True Then

A voir ensuite pour l'objet concerné, si la propriété "value" existe...

bonne journée
@+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Octobre 2010

• #3

Re : message d'erreur

Bonjour Apdf1, Pierrot, bonjour le forum,

Je pense que dans ton Frame1 tu dois avoir un contrôle qui n'accepte pas True comme propriété Value. Un Label, une textbox ou autre... Et comme tu boucles sur tous les contrôles sans distinction, ça provoque un plantage... À vérifier...

 

Dernière édition: 29 Octobre 2010

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 29 Octobre 2010

• #4

Re : message d'erreur

Bonjour, Robert et Pierrot,

Je vous remercie, j’ai du adapter les deux solutions pour réussir soit
If Ctrl.Value = True Then de pierrot
et j’ai supprimé un OptionButton qui me paresser un souci

Sur OptionButton j’avais supprimé le nom Option Button car je ne voulais rien, mais je vois que sa ne marche pas.

Y a-t-il une solution pour supprimer le nom?

@+
Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Octobre 2010

• #5

Re : message d'erreur

Re, bonjour Robert

Pas tout compris, peut être en testant le type d'objet...

Code:

    If TypeName(Ctrl) <> "OptionButton" Then

A voir, sinon un petit fichier avec ce que tu veux faire exactement ne serait pas de trop...

@+

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 29 Octobre 2010

• #6

Re : message d'erreur

bonjour apdf1,Robert,l'ami Pierrot

je le comprends comme cela optionbutton dans un frame??
exemple

si pas renommees!!

Code:

Private Sub CommandButton3_Click()
Dim i As Byte
For i = 1 To 3
If Frame1.Controls("OptionButton" & i) = True Then MsgBox "OptionButton" & i
Next i
End Sub

renommee

Code:

Private Sub CommandButton1_Click()
Dim j As Control
For Each j In Frame1.Controls
If TypeName(j) = "OptionButton" Then
If j = True Then MsgBox j.Name
End If: Next
End Sub

ou encore

Code:

Private Sub CommandButton2_Click()
Dim j As Control
For Each j In Frame1.Controls
If TypeOf j Is MSForms.OptionButton Then
If j = True Then MsgBox j.Name
End If: Next
End Sub

ton code a la place de msgbox

 

Dernière édition: 29 Octobre 2010

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 29 Octobre 2010

• #7

Re : message d'erreur

Re,

En fait dans mon frame j’ai plusieurs OptionButton et j’en ai un ou j’ai enlevé le nom Option Button car je ne voulais rien, plutôt je voulais mettre un label a la place mais des que je mets un label dans mon frame il plante. Y a-t-il une solution ? Si non le reste fonctionne.

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Octobre 2010

• #8

Re : message d'erreur

Re, bonjour Laetitia🙂

A noter, les labels ne possèdent pas de propriété "value"...

 

Vote positif 0 Vote négatif