Beug sur optionbutton
Bonjour
J'ai un beug avec ce code (erreur d’exécution1004 erreur définie par l'application ou part l'objet)
Ce que je cherche a faire c'est en cochant la case que le mot Payé se mette dans la colonne F
Si vous avez une idée sur mon erreur je suis preneur
Cordialement
Private Sub OptionButton4_Click()
Dim L As Integer
If Me.OptionButton4 = True Then
With Worksheets("Inscriptions")
.Range("F" & L) = "Payé" 'beug sur cette ligne
End With
Me.OptionButton4 = ""
End If
End SubBonjour
On est toujours sur le même problème de votre variable L et que je vous ai déjà signalé à multiples reprises dans les fils précédents. Vous persistez là...
https://forum.excel-pratique.com/s/goto/1052402
https://forum.excel-pratique.com/s/goto/1052414
Crdlt
Bonjour,
Tu as déclaré L en integer, mais elle n'est pas initialisée. Sa valeur est donc égale zéro.
Cdlt.
Bonjour et merci à tous les 2
Je me passionne au VBA depuis pas trés longtemps et en plus 73 ans,d'ou mes difficultés
J'ai modifier mon code et j'ai une erreur
Private Sub OptionButton4_Click()
Dim L As Integer
L = .Range("F" & Rows.Count).End(xlUp).Row + 1 'erreur sur le L=.Range
If Me.OptionButton4 = True Then
With Worksheets("Inscriptions")
.Range("F" & L) = "Payé"
End With
Me.OptionButton4 = ""
End If
End SubJ'ai trouvé ce morceau de code était mal placé
L = .Range("F" & Rows.Count).End(xlUp).Row + 1Je me passionne au VBA depuis pas trés longtemps et en plus 73 ans,d'ou mes difficultés
J'ai modifier mon code et j'ai une erreur
Oui c'est normal car le code attend que vous définissiez l'objet feuille devant le point de Range
Essayez comme ceci
L = Worksheets("Inscriptions").Range("F" & Rows.Count).End(xlUp).Row + 1 Edit :
J'ai trouvé ce morceau de code était mal placé
parfait vous avez trouvé !
Crdlt