Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA: petits problèmes if et enregistrement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion willnet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

willnet

Guest
Bonjour,

je suis un novice en VBA et un projet scolaire me demande de créer un pseudo logiciel de fiche de paie et je bloque sur quelques points.

Tout d'abord, ici je souhaite afficher un message lorsque l'utilisateur n'a pas rempli tous les champs.

Il me sort une erreur : un manque de "End If" pour ce code et je ne comprend pas pourquoi.

Sheets("edition").Select
Range("B6,D6,B8,B13").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else GoTo Afficher


Ensuite je souhaiterai savoir si il est possible d'enregistrer une feuille (et non l'ensemble du document, donc pas de macro) en PDF dans un répertoire spécifique, en utilisant comme nom de fichier des cellules de cette feuille.
Si oui auriez vous une idée du code que cela demanderait?

Merci d'avance.

Willnet
 
Trier par date Trier par votes
Re : VBA: petits problèmes if et enregistrement

Bonsoir,

Il me sort une erreur : un manque de "End If" pour ce code et je ne comprend pas pourquoi.

Sheets("edition").Select
Range("B6,D6,B8,B13").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else GoTo Afficher
Cliquez pour agrandir...

bah oui, on dirait...
Code: 
Sheets("edition").Select
Range("B6,D6,B8,B13").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else 
GoTo Afficher
End if

comprends pas trop ceci :
Code: 
Range("B6,D6,B8,B13").Select

car seulement une seule cellule sera active...

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : VBA: petits problèmes if et enregistrement

Cependant il me met la même erreur lorsque je détail:

Sheets("edition").Select
Range("B6").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else
Sheets("edition").Select
Range("D6").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else
Sheets("edition").Select
Range("B8").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else
Sheets("edition").Select
Range("B13").Select
If ActiveCell.Value = "" Then
UserForm5.Show
Else GoTo Afficher
 
Vote positif 0 Vote négatif
Re : VBA: petits problèmes if et enregistrement

Bonjour,

A noter que l'on pourrait tester l'ensenble des cellules ainsi :
Code: 
If WorksheetFunction.CountA(Range("B6,D6,B8,B13")) < 4 Then MsgBox "1 cellule au moins est vide"

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
565
firecarl
F
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
688
marie3107
M
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
948
marie3107
M
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
  • Résolu(e)
Microsoft 365 compter le temps passé sur une ligne et cumuler tous les temps passés
2
Réponses
17
Affichages
2 K
Usine à gaz
K
  • Question Question
XL 2016 script vba pour sécurise et personnalise les pages
Réponses
0
Affichages
676
kheiro31
K
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
G
  • Question Question
XL 2013 Trois petits problèmes dans Excel et VBA
Réponses
2
Affichages
1 K
GeoLek
G
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
M
  • Question Question
Tri personnalisé et mise en forme VBA.
Réponses
4
Affichages
1 K
xUpsilon
W
  • Question Question
XL 2019 VBA msgbox IF ELSE et END IF
Réponses
0
Affichages
1 K
watt3211
W
E
  • Question Question
XL 2019 VBA Afficher toutes les feuilles et remasquer l'ensemble en fonction d'une variable
Réponses
4
Affichages
2 K
E5kobar
E
C
  • Question Question
XL 2010 Mise à jour macro et éxécution de celle ci à l'ouverture du doc
Réponses
2
Affichages
1 K
candice**
C
A
  • Question Question
Recherche entre date et extraction de données vers une autre feuille (VBA)
Réponses
6
Affichages
3 K
Arnaud dit Citro
A
  • Question Question
Modification code vba
Réponses
4
Affichages
1 K
bennisay
R
  • Question Question
Aide sur USERFORM et VBA
Réponses
7
Affichages
2 K
tbft
  • Question Question
(résolu par bebere et chti160)modifier ligne de code pour ajouter l'année et mois en cours
2 3
Réponses
40
Affichages
5 K
grisan29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…