Créer une feuille a partir d'un useform et ne pas activer cette feuille

Bonjour le forum

Par l'intermédiaire, entre autres instructions, je crée une feuille avec un nom précis. Je redimensionne une colonne et je remplis certaines cellules.

Cependant, dès que celle-ci est créée, elle s'active. Or, je désire ne pas faire apparaitre cette feuille derrière mon userform.

Quelle ligne d'instruction dois-je mettre ensuite pour empêcher cette ouverture de feuille?

            Sheets.Add(after:=Sheets(Sheets.Count)).Name = TextBox21.Value
            Sheets(TextBox21.Value).Range("A:A").EntireColumn.ColumnWidth = 25
            Sheets(TextBox21.Value).Cells(1, 1) = "ANNEE"
            Sheets(TextBox21.Value).Cells(2, 1) = "PART EAUX"
            Sheets(TextBox21.Value).Cells(3, 1) = "PART ELECTRICITE"
            Sheets(TextBox21.Value).Cells(4, 1) = "NOUVEL INDEX"

D'avance merci,

Donpopo

Bonjour,

En principe, l'ajout d'une feuille la rend automatiquement active. Mais la possibilité est de la "désactiver" ou de remettre le "focus" sur la précédente feuille active.

Exemple :

application.screenupdating = false            
with activesheet
    with Sheets.Add(after:=Sheets(Sheets.Count))
        .Name = TextBox21.Value
        .Range("A:A").EntireColumn.ColumnWidth = 25
        .range("A1:A4") = application.transpose(array("ANNEE", "PART EAUX", "PART ELECTRICITE", "NOUVEL INDEX"))
    end with
    .activate
end with
application.screenupdating = true

Cdlt,

Bonjour 3GB,

un grand merci pour l'explication et surtout pour la simplification de la procédure. Je n'avais absolument pas pensé à 'array'.

Bonne soirée