Autres (RESOLU)Adapter un code IF

chaelie2015 · 6 Août 2021

Bonjour FORUM
je souhaite adapter ce code

VB:

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 · 6 Août 2021

Bonjour chaelie2015,

On peut exécuter une boucle d'attente :

VB:

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 · 6 Août 2021

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 · 6 Août 2021

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

chaelie2015 · 6 Août 2021

Wayki à dit:
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

Autres (RESOLU)Adapter un code IF

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

Wayki

XLDnaute Impliqué

Pièces jointes

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires