Visual basic
Résolu
Bonjour tout le monde,
En visual basic, j'ai fait le code suivant :
Private Sub Imprimer_Click()
If Sheets("SVC").Range("G3").Value = "##" Then
MsgBox "Vous n'avez pas entré le numéro de la semaine dans la cellule 'G3'.", vbOKOnly + vbExclamation
Else
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
Sheets("Feuil1 (2)").Visible = True
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Range("A4:A71").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = False
Sheets("Feuil1 (2)").Delete
Application.DisplayAlerts = True
End If
End Sub
Lorsque je l'exécute, il me dit "Erreur d'execution '1004': "
"Pas de cellules correspondantes"
Je cherche à comprendre pourquoi et je n'y arrive pas.
Pouvez-vous m'aider ?
En visual basic, j'ai fait le code suivant :
Private Sub Imprimer_Click()
If Sheets("SVC").Range("G3").Value = "##" Then
MsgBox "Vous n'avez pas entré le numéro de la semaine dans la cellule 'G3'.", vbOKOnly + vbExclamation
Else
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
Sheets("Feuil1 (2)").Visible = True
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Range("A4:A71").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = False
Sheets("Feuil1 (2)").Delete
Application.DisplayAlerts = True
End If
End Sub
Lorsque je l'exécute, il me dit "Erreur d'execution '1004': "
"Pas de cellules correspondantes"
Je cherche à comprendre pourquoi et je n'y arrive pas.
Pouvez-vous m'aider ?
5 réponses
-
Bonjour,
A qu'elle ligne l'erreur ? -
À la ligne :
Sheets("Feuil1 (2)").Range("A4:A71").SpecialCells(xlCellTypeBlanks).EntireRow.Delete -
Je ne comprends pas d'où vient le problème...
-
Re,
Pouvez mettre votre fichier a dispo
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage
https://mon-partage.fr/
-
-
ContributeurBonjour,
SpecialCells(xlCellTypeBlanks) génère une erreur s'il n'en trouve pas.
L'encadrer de :On error resume Next
...
On error goto 0
Merci d'utiliser l'icone <> pour garder la miser en forme du code lorsque tu en colles un ici.
eric
-
Ça fonctionne avec le :
On error resume Next
...
On error goto 0
Merci !
