Autres (RESOLU)Adapter un code IF

[chaelie2015]

Bonjour FORUM
je souhaite adapter ce code

If Sheets("fiche").Range("G9") = "" Then
MsgBox ("Veuillez saisir le nombre de jours précédents?")

'Renseigné la cellule G9 de la feuille "Fiche"
Sheets("fiche").Range("G9").Select

'une fois la cellule est renseignée exécuter le reste du code
Sheets("fiche").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nomfeuille
ActiveSheet.Buttons.Delete
Sheets("fiche").Range("C2") = ""
Sheets(Nomfeuille).Visible = xlSheetVeryHidden
End If

Renseigné la cellule G9 de la feuille "Fiche"
une fois la cellule est renseignée exécuter le reste du code
merci

 

[job75]

Bonjour chaelie2015,

On peut exécuter une boucle d'attente :

With Sheets("fiche")
    If .Range("G9") = "" Then
        MsgBox ("Veuillez saisir en G9 le nombre de jours précédents")
        'pour renseigner la cellule G9 de la feuille "Fiche"
        While .Range("G9") = "" 'attente
            .Visible = xlSheetVisible 'si la feuille est masquée
            Application.Goto .Range("G9")
            DoEvents
        Wend
        'une fois la cellule renseignée exécuter le reste du code
        .Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Nomfeuille
        ActiveSheet.Buttons.Delete
        .Range("C2") = "" '???
        Sheets(Nomfeuille).Visible = xlSheetVeryHidden
    End If
End With

A+

 

[Wayki]

Une autre approche ci-joint, évite les boucles.
Enlever les ' pour enlever les commentaires (N'ayant pas ton fichier j'ai adapté pour que ça marche sur une feuille vide)
Regarder dans module1 et dans feuil1 (pour le worksheet_Change)

A +

 

[chaelie2015]

Bonjour job
super c'est parfait.
Souci RESOLU
A+

 

[chaelie2015]

Une autre approche ci-joint, évite les boucles.
Enlever les ' pour enlever les commentaires (N'ayant pas ton fichier j'ai adapté pour que ça marche sur une feuille vide)

A +

Oups
je n'ai pas vu ton message.
merci