Visual basic
Résolu
jcdepot
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
jcdepot -
jcdepot -
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 ?
A voir également:
- Visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
5 réponses
Bonjour,
SpecialCells(xlCellTypeBlanks) génère une erreur s'il n'en trouve pas.
L'encadrer de :
Merci d'utiliser l'icone <> pour garder la miser en forme du code lorsque tu en colles un ici.
eric
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
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/
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/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question