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

VBA - Plusieurs conditions If

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mikael2403
  • 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
M

mikael2403

Guest
Bonjour,

J'ai créé la macro suivante qui ne fonctionne pas.
Je souhaites ajouter plusieurs conditions mais ça bugg. Avec 1 condition ça fonctionne parfaitement.

Lorsque j'exécute la macro ci-dessous j'ai le message :
Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.

Code: 
If Sheets("Accueil").Range("B9:J9") = "Assistance Clients" And y <> "" Then
    Do
        y = Dir("T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
        m = m + 1
    Loop While y <> ""
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If
If Sheets("Accueil").Range("B9") = "Acquisition & développement" And z <> "" Then
    Do
        z = Dir("T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
        m = m + 1
    Loop While y <> ""
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If

Y-a-t-il une erreur dans mon code ou ai-je oublié quelque chose ?
J'ai essayé pleins de solutions mais c'est toujorus la même chose.

Merci d'avance pour votre aide.
 
Trier par date Trier par votes
Re : VBA - Plusieurs conditions If

Bonsoir Mikael2403,

Ceci n'est pas normal
Code: 
If Sheets("Accueil").Range("[COLOR=red][B]B9:J9[/B][/COLOR]")=

Que veux-tu tester !?
Il ne peut s'agir que d'une seule cellule, même si les cellules sont fusionnée.

A+
 
Vote positif 0 Vote négatif
Re : VBA - Plusieurs conditions If

Bonjour,

En effet je me suis trompé dans le nom de la cellule. Le bon code est ci-dessous mais maintenant j'ai un autre message d'erreur qui me dit :
Erreur de compilation
Else sans If
Il me surligne le 2e Else.

Comment puis-je mettre plusieurs conditions ?
En fait, je veux que si dans la cellule M24 il y a Assistance Clients mon tableau se sauvegarde dans le dossier ASSISTANCE CLIENTS et s'il y a Acquisition & Developement, il s'enregistre dans le dossier ACQ & DEV.
Dans les 2 cas, il faut, qu'avant de l'enregistrer, l'on véfie qu'un fichier de même nom n'existe pas.
Au final il y a 2 conditions et dans chacune de ces conditions, il y en a une autre.

Je n'arrive pas à trouver l'erreur et comment corriger mon code.

Merci d'avance pour votre aide.

Code: 
If Sheets("Propale").Range("M24").Value = "Assistance Clients" And y <> "" Then
    Do
        y = Dir("T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
        m = m + 1
    Loop While y <> ""
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
If Sheets("Propale").Range("M24") = "Acquisition & développement" Then
If z <> "" Then
    Do
        z = Dir("T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
        m = m + 1
    Loop While y <> ""
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If
End If
End If
 
Vote positif 0 Vote négatif
Re : VBA - Plusieurs conditions If

Voici la macro initiale qui fonctionne parfaitement.

Code: 
If y <> "" Then
    Do
        y = Dir("T:\PROPALE\" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
        m = m + 1
    Loop While y <> ""
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
    ActiveWorkbook.SaveAs Filename:="T:\PROPALE\" & Format(Date, "yymmdd") & " - " & x & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If

C'est sur ce code que je souhaites rajouter une conditions.

Dois-je changer toute la macro ou puis-je ajouter des conditions entre les lignes de ce code ?
Je ne sais pas si je suis clair dans mes explications. Ce n'est pas compliqué de visu mais plus compliqué à expliquer 🙂.

Merci encore.
 
Vote positif 0 Vote négatif
Re : VBA - Plusieurs conditions If

Salut Mickael2403,

En reprenant ton ancienne procédure qui fonctionnait très bien,
et en ajoutant l'idée de changement de chemin, voilà le code
Code: 
' Selon la valeur saisie dans la cellule M24
' Le chemin d'accès du fichier change
If Sheets("Propale").Range("M24").Value = "Assistance Clients" Then
  VPath = "T:\PROPALE\ASSISTANCE CLIENTS\"
ElseIf Sheets("Propale").Range("M24") = "Acquisition & développement" Then
  VPath = "T:\PROPALE\ACQ & DEV\"
Else
  VPath = ""
End If
' Si le chemin d'accès n'est pas vide
' Donc la valeur saisie en M24 a été reconnue
If VPath <> "" Then
  ' Ancienne procédure qui fonctionne très bien
  ' Alors, pourquoi en changer ;-)
  If y <> "" Then
    Do
      y = Dir(VPath & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
      m = m + 1
    Loop While y <> ""
    ActiveWorkbook.SaveAs Filename:=VPath & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
  Else
    ActiveWorkbook.SaveAs Filename:=VPath & Format(Date, "yymmdd") & " - " & x & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
  End If
End If

A+
 
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

L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
805
arnoldbrice19
A
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
Y
  • Résolu(e)
XL 2019 Enregistrer un classeur en supprimant une formule
Réponses
8
Affichages
865
YohanSC
Y
O
  • Question Question
Microsoft 365 transformation des dates FR en date ENG lors de l'export en .txt avec vba
Réponses
3
Affichages
908
or3ly74
O
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
6 K
ArnaudSi
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
E
  • Question Question
Microsoft 365 enregistrer un fichier avec des dates modulables
Réponses
2
Affichages
1 K
Etoto
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
L
  • Question Question
Microsoft 365 fermeture fichier excell
Réponses
2
Affichages
769
Hasco
C
  • Question Question
XL 2019 VBA - problèmes de guillemets dans un export d'Excel vers un fichier texte
Réponses
12
Affichages
7 K
CHL1234
C
L
  • Question Question
Microsoft 365 Optimiser export données vers nouveau classeur
Réponses
1
Affichages
1 K
Ludwig74
L
S
  • Question Question
XL 2016 Enregistrer feuille active dans un autre classeur
Réponses
0
Affichages
948
sams96
S
P
  • Question Question
XL 2019 Sauvegarde automatique
Réponses
1
Affichages
1 K
youky(BJ)
T
  • Question Question
XL 2016 Convertir plusieurs CSV UTF 8 en XLSX
Réponses
0
Affichages
1 K
Tony74
T
P
  • Question Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
S
  • Résolu(e)
Microsoft 365 automatiser macro pour copier/coller des données d´un classeur à un autre et sauver à chaque fois le classeur rempli
Réponses
8
Affichages
5 K
sevenkingdom
S
M
  • Question Question
XL 2013 Copier plusieurs onglets vers un autre classeur
2
Réponses
27
Affichages
3 K
MCMAL
M
L
  • Question Question
XL 2016 vba fichier qui ne va pas au chemin indiqué dans le code
Réponses
2
Affichages
828
la fifine
L
Y
  • Question Question
XL 2016 Macro copy paste & Save as
Réponses
0
Affichages
1 K
you25
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…