Macro VBA imprimer une plage sélectionnée par REFEDIT
Résolu
Moi49
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
Moi49 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
Moi49 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro VBA imprimer une plage sélectionnée par REFEDIT
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Comment imprimer en a5 - Guide
- Imprimer tableau excel sur une page - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
9 réponses
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 !
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 !
If OptionButton4.Value = True Then
est en jaune (message: erreur de compilation, variable non définie)
merci de t'intéresser à ma demande
est en jaune (message: erreur de compilation, variable non définie)
merci de t'intéresser à ma demande
Bonjour,
Merci, dans la ligne de définition :
Merci, dans la ligne de définition :
Dim OptionButton4_Click As ActionSupprimer le
As ActionEssayer pour voir si c'est OK... !
Bonjour,
Ce sera plus simple de vous aider si vous pouvez mettre le fichier sur https://www.cjoint.com/ et poster le lien !
Ce sera plus simple de vous aider si vous pouvez mettre le fichier sur https://www.cjoint.com/ et poster le lien !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
En marge, contrôler que le bouton d'option [OptionButton4] existe sur le formulaire [Userform3] .... !
En marge, contrôler que le bouton d'option [OptionButton4] existe sur le formulaire [Userform3] .... !
Bonjour,
Merci.
Le bouton d'option [OptionButton4] n'existe pas sur votre formulaire.
Donc vous supprimer les lignes :
Merci.
Le bouton d'option [OptionButton4] n'existe pas sur votre formulaire.
Donc vous supprimer les lignes :
If OptionButton4.Value = True ThenEt aussi, plus bas :
End if
Bonjour,
En testant votre fichier j'ai trouvé d'autres erreurs.
J'ai corrigé les codes , votre fichier : https://www.cjoint.com/?3JexMnxGGCk
En testant votre fichier j'ai trouvé d'autres erreurs.
J'ai corrigé les codes , votre fichier : https://www.cjoint.com/?3JexMnxGGCk