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