Macro VBA imprimer une plage sélectionnée par REFEDIT Résolu/Fermé

Question

Bonjour le forum

Je cherche à imprimer une plage de cellule sélectionnée par un RefEdit.

J'ai élaboré le code suivant, VB me crée une erreur (OptionButton4 non définie) au lancement du Userform.

pouvez-vous m'aider SVP...
Merci d'avance


Private Sub CommandButton4_Click()

'sélection cellule pr plage à imprimer
Dim plage As String


plage = UserForm3.RefEdit3.Value
If plage = "" Then
  MsgBox "vous n'avez rien sélectionné, recommencez !"
  Exit Sub
End If
Range(plage).Select
 Dim OptionButton4_Click As Action
If OptionButton4.Value = True Then

'Imprimer la fiche
  ActiveSheet.PageSetup.PrintArea = "plage"
  ActiveWindow.SelectedSheets.PrintPreview
  
End If
'déchargement du Userform
Unload Me
End Sub

Le Pingou · Answer

Bonjour,
Lors de l'erreur, qu'elle est la ligne de code surlignée en jaune ... !
A défaut, mettre le fichier sur https://www.cjoint.com/ et poster le lien !

Moi49 · Answer

If OptionButton4.Value = True Then 
est en jaune (message: erreur de compilation, variable non définie)
merci de t'intéresser à ma demande

Le Pingou · Answer

Bonjour,
Merci, dans la ligne de définition :
 Dim OptionButton4_Click As Action
Supprimer le 
As Action
Essayer pour voir si c'est OK... !

Le Pingou · Answer

Bonjour,
Ce sera plus simple de vous aider si vous pouvez mettre le fichier sur https://www.cjoint.com/ et poster le lien !

Le Pingou · Answer

Bonjour,
En marge, contrôler que le bouton d'option [OptionButton4] existe sur le formulaire [Userform3] .... !

Moi49 · Answer

Voici le lien pour un fichier d'essai:	
https://www.cjoint.com/c/CJexd3ljp78

Le Pingou · Answer

Bonjour,
Merci.
Le bouton d'option [OptionButton4] n'existe pas sur votre formulaire. 
Donc vous supprimer les lignes :
If OptionButton4.Value = True Then
Et aussi, plus bas :
End if

Le Pingou · Answer

Bonjour,
En testant votre fichier j'ai trouvé d'autres erreurs.
J'ai corrigé les codes , votre fichier :  https://www.cjoint.com/?3JexMnxGGCk

Moi49 · Answer

OK, le code fonctionne à merveille.
Merci infiniment
Moi 49

Macro VBA imprimer une plage sélectionnée par REFEDIT

9 réponses

Discussions similaires