message d'erreur

[apdf1]

Bonjour,

Encore besoin de vous ! J'ai une erreur quand je valide, et quand je Débogage il me surligne la partie rouge ci-dessous.

Si quelqu'un pouvez m'aider sa me rendrai un grand service.

"erreur 438 "propriété ou methode non gérée par cet objet"

Private Sub CommandButton3_Click()
 Dim Ctrl As Control
    For Each Ctrl In Frame1.Controls
[COLOR="Red"]If Ctrl.Object.Value = True Then[/COLOR]   
 With Sheets("Adresse")          
 L = .Range("B65000").End(xlUp).Row + 1                     
            Cells(L, 2) = LabelID            
            Cells(L, 3) = Ctrl.Caption & " " & TextBox1.Value 
            Cells(L, 4) = TextAdresse.Value 
            Cells(L, 5) = TextCP.Value 
            Cells(L, 6) = TextVille.Value 
            Cells(L, 7) = TextTelFix.Value 
            Cells(L, 8) = TextTelMob.Value 
            Cells(L, 9) = TextFax.Value 
            Cells(L, 10) = TextEmail1 & "@" & TextEmail2.Value    
End With
      End If

Next Ctrl
IniLabelID
Unload Me
End Sub

Cordialement

Max

 

[Pierrot93]

Re : message d'erreur

Bonjour,

essaye peut être ainsi :

If Ctrl.Value = True Then

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

bonne journée
@+

 

[Robert]

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...

 

[apdf1]

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

 

[Pierrot93]

Re : message d'erreur

Re, bonjour Robert

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

    If TypeName(Ctrl) <> "OptionButton" Then

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

@+

 

[laetitia90]

Re : message d'erreur

bonjour apdf1,Robert,l'ami Pierrot

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

si pas renommees!!

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

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

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

 

[apdf1]

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.

@+

 

[Pierrot93]

Re : message d'erreur

Re, bonjour Laetitia🙂

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