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

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:

farid

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
315 093
Messages
2 116 139
Membres
112 669
dernier inscrit
Guigui2502