Variable objet non définie

[mfb]

Bonjour à Tous,
L'insertion, en l'état, de l'instruction du bouton B1 de l'Usf de la Pj dans une instruction d'un autre fichier
génère une erreur d'exécution 91 "Variable objet ou variable de bloc with non définie"
Cette erreur n'existe pourtant pas dans l'instruction de l'Usf joint .
Cette absence de définition semble porter sur "l.Name"
Peut être pourrez vous me dépanner sans le fichier qui Bug.
Je reste dispo
Merci d'avance
A+
daniel

 

[pierrejean]

Re : Variable objet non définie

Bonjour mfb

Il serait préférable d'avoir le fichier ou se produit le bug ( ou du moins une copie après avoir ôté les éléments non concernés) !!!!

 

[ChTi160]

Re : Variable objet non définie

Bonjour mfb
Bonjour le Fil (Oupss Un Bonjour particulier à Pierrejean)
Bonjour le Forum

je ne sais pas si j'ai bien compris la demande !
Mais peut être qu'en affectant la valeur de K directement à la propriété Tag du Control OptionButton
ex OptionButton1,tu mets dans la propriété Tag de ce control la valeur voulue.
puis tu la récupères , lors du Clic .

Private Sub CommandButton1_Click()

Dim l As Control
 For Each l In Me.Frame1.Controls
    If TypeName(l) = "OptionButton" And l.Value = True Then
       TextBox1.Value = l.Tag
       Exit For
    End If
 Next l
 
End Sub

Bonne journée
Amicalement
Jean Marie

 

[Robert]

Re : Variable objet non définie

Bonjour le fil, bonjour le forum,

Comme ChTi et PierreJean, que je salue au passage, je n'ai pas vraiment compris ton problème. Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim K As Variant
Dim I As Byte

K = Array(46, 4, 32, 27, 48)
For I = 1 To 5
    If Me.Controls("OptionButton" & I) = True Then Me.TextBox1.Value = K(I - 1): Exit Sub
Next I
End Sub

 

[mfb]

Re : Variable objet non définie

Re,
J' ai réussi à me dé... patouiller avec la proposition de Robert.
Ca marche.
Alors PierreJean, Chti 160 et Robert MERCI.
A+
Daniel