Macro : Insertion Onglet

[morgan44]

Bonjour à tous,

Est ce que quelqu'un connaît une formule sous VBA pour insérer des onglets en fonction d'un nombre sur une feuille : par exemple, sur la feuil1 la cellule C11, j'y ai rempli le nombre 3 j'aimerais via une macro, lorsque je clique sur un bouton, avoir 3 nouvelles feuilles.


Merci d'avance,

Cordialement,

Morgan44

 

[Catrice]

Re : Macro : Insertion Onglet

Bonjour,

voir l'exemple dans le fichier joint :

Sub Test()
Sheets.Add after:=Sheets(Sheets.Count), Count:=Sheets("Feuil1").Range("C11").Value
End Sub

 

[Robert]

Re : Macro : Insertion Onglet

Bonjour Morgan, Catrice, bonjour le forum,

Autre solution avec la macro événementielle Change ci-dessous, à placer dans le composant Worksheet correspondant (Feuil1(Feuil1)) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer 'déclare la variable n
 
If Target.Address <> "$C$11" Then Exit Sub 'si la changement a lieu ailleurs qu'en C11, sort de la procédure
On Error GoTo fin 'gestion des erreurs (si on tape de l'alphabétique par exemple)
n = CInt(Range("C11")) 'définit la variable n
For x = 1 To n 'boucle n fois
    Sheets.Add after:=Sheets(Sheets.Count) 'ajoute un onglet en dernier
Next x 'prochaine fois de la boucle
fin: 'étiquette de gestion des erreurs
End Sub

l'ajout se fait dès que l'on tape le nombre dans la cellule C11 de l'onglet Feuil1.

 

[morgan44]

Re : Macro : Insertion Onglet

Merci à vous 2, vos réponses m'ont été très utile.

Bonne journée

Morgan