Macro nettoyer cellule [Résolu]

Aline - 30 nov. 2017 à 16:51 - Dernière réponse :  aline
- 1 déc. 2017 à 12:21
Bonjour à tous,

J'ai fait une macro qui me permet d'enregistrer ma feuille en PDF.
Le souci : je souhaite ajouter à cette macro un nettoyage du tableau une fois l'enregistrement fait.
Pour ce qui concerne le nettoyage des cases à cocher, cela fonctionne mais pas les cases textes.

Voici ma macro :
Sub PDF()
Dim Chemin As String, NomFichier As String

NomFichier = Range("B5").Value & " - " & "Analyse de l'opportunité" & ".pdf"
'NomFichier = Range("B5").Value & " - " & "Analyse de l'opportunité" & ".pdf"

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ' Clic sur Ok
Chemin = .SelectedItems(1)
Else
' Clic sur Annuler
Exit Sub
End If
End With

Worksheets("Analyse de l'opportunité").Range("A1:U48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True


With ActiveSheet
For Each CheckBoxes In .CheckBoxes
If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff
.Range("B10,B14,B18,B22,B26,B30,B34").Clear
Next
End With


Merci d'avance pour votre aide !
Afficher la suite 

2 réponses

Répondre au sujet
gbinforme 14411 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 30 nov. 2017 à 22:20
+1
Utile
Bonjour,

Plutôt comme ceci, non ?
With ActiveSheet
For Each CheckBoxes In .CheckBoxes
    If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff
Next
.Range("B10,B14,B18,B22,B26,B30,B34").Clear
End With

Commenter la réponse de gbinforme
0
Utile
Merci beaucoup, visiblement j'y ai passé un peu trop de temps, au point de ne plus voir l'erreur basique !
Commenter la réponse de aline