Macro VBA imprimer une plage sélectionnée par REFEDIT
Résolu
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
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
9 réponses
-
OK, le code fonctionne à merveille.
Merci infiniment
Moi 49 -
Bonjour,
En testant votre fichier j'ai trouvé d'autres erreurs.
J'ai corrigé les codes , votre fichier : https://www.cjoint.com/?3JexMnxGGCk
-
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
-
Voici le lien pour un fichier d'essai:
https://www.cjoint.com/c/CJexd3ljp78 -
Bonjour,
En marge, contrôler que le bouton d'option [OptionButton4] existe sur le formulaire [Userform3] .... !
-
Bonjour,
Ce sera plus simple de vous aider si vous pouvez mettre le fichier sur https://www.cjoint.com/ et poster le lien !
-
Bonjour,
Merci, dans la ligne de définition :
Dim OptionButton4_Click As Action
Supprimer leAs Action
Essayer pour voir si c'est OK... !
-
If OptionButton4.Value = True Then
est en jaune (message: erreur de compilation, variable non définie)
merci de t'intéresser à ma demande -
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 !
