XL 2019 L'indice n'appartient pas à la sélection

  • Initiateur de la discussion Initiateur de la discussion farid
  • 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 !

farid

XLDnaute Occasionnel
Bonjour,
j'ai un souci avec cette macro sur la ligne rouge que je n'arrive pas à résoudre et j'aurai voulu que la valeur soit pécififi à 3 .
Car l'origine de la macro, c'est ce qu'il a après le Else et fonctionne très bien. Sauf que je voulais ajouter une condition.
Merci pour votre retour


La macro d'origine qui fonctionne très bien.


Sub Mai()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Range("c23")
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Range("c23")) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If
End Sub

la macro que je souhaite modifier et qui me pose un problème.


Sub Mai()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Range("c24")

If Sheets("Nomfeuille"). Range("Ae1"). Value <> "" Then

Call enregistrement
Else

Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Range("c24")) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If

End Sub
 
Dernière édition:
Bonjour Farid,
Nom Feuille est une variable et non le nom d'une feuille,donc je pense que les guillemets sont de trop. Essayez sans, comme fait par la suite.
Bonjour Sylvanu et merci pour votre retour.
J'ai bien essayé votre recommandation, mais malheureusement cela ne fonctionne pas ou alors je m'y prends très mal.
Sub Mai()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Range("c24")

If FeuilleExiste(Nomfeuille).Range("Ae1").Value <> "" Then


Call enregistrement
Else

Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Range("c24")) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If

End Sub


merci
 
- 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

Discussions similaires

Réponses
7
Affichages
106
Réponses
2
Affichages
423
Retour