Création d'onglets

S

Softmama

XLDnaute Accro

• 28 Octobre 2012

• #2

Re : Création d'onglets

Bonjour,

une proposition sur mesure à adapter à ton fichier réel :

VB:

Private Sub CommandButton1_Click()
a = InputBox("Combien d'entreprises sur la situation ?", "", 1)
If a > 0 Then
  For t = 1 To a
    ThisWorkbook.Sheets("Onglet entreprises").Copy after:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = "nom entr " & t
    ActiveSheet.Range("A1") = "nom entr " & t
  Next t
End If
End Sub

 

Pièces jointes

• sophilo.xls

  37.5 KB · Affichages: 61

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Octobre 2012

• #3

Re : Création d'onglets

Bonjour

voir ici : Gestion des onglets et des classeurs

 

Vote positif 0 Vote négatif

S

sophilosophie

Guest

• 28 Octobre 2012

• #4

Re : Création d'onglets

Merci pour votre rapidité
par contre là j'ouvre avec 2007 et je ne peux rien faire (je clique sur le bouton maisl il ne se passe rien) Savez vous pourquoi?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Octobre 2012

• #5

Re : Création d'onglets

sophilosophie à dit:

Merci pour votre rapidité
par contre là j'ouvre avec 2007 et je ne peux rien faire (je clique sur le bouton maisl il ne se passe rien) Savez vous pourquoi?

Cliquez pour agrandir...

a l'ouverture du fichier activer les macros

 

Vote positif 0 Vote négatif

S

sophilosophie

Guest

• 28 Octobre 2012

• #6

Re : Création d'onglets

Je l'ai fait dès l'ouverture mais ça ne fonctionne pas... pas grave je vais essayer sur un autre PC
Merci

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 28 Octobre 2012

• #7

Re : Création d'onglets

Bonjour
J'ai juste une erreur si choix >1
corrigé avec
ActiveSheet.Name = "nom entr " & t+1
Merci

 

Vote positif 0 Vote négatif

S

sophilosophie

Guest

• 29 Octobre 2012

• #8

Re : Création d'onglets

bonjour
j'ai essayé maisle bouton ne semble pas lié à la macro.
Ca marche chez vous? A quoi cela peut il être dû?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Octobre 2012

• #9

Re : Création d'onglets

oui ça fonctionne

 

Vote positif 0 Vote négatif

S

sophilosophie

Guest

• 29 Octobre 2012

• #10

Re : Création d'onglets

super, j'ai repris le fichier initial et ça marche.
j'ai compris la macro.
Je voudrais qu'une fois qu'il me demande le nombre d'entreprises, il me demande aussi "nom de l'entreprise 1?" nom de l'entreprise 2? etc avec le nombre t d'entreprises et qu'il nomme les onglets (et la cellule A1) avec ces noms
ccomment l'insérer?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Octobre 2012

• #11

Re : Création d'onglets

sophilosophie à dit:

super, j'ai repris le fichier initial et ça marche.
j'ai compris la macro.
Je voudrais qu'une fois qu'il me demande le nombre d'entreprises, il me demande aussi "nom de l'entreprise 1?" nom de l'entreprise 2? etc avec le nombre t d'entreprises et qu'il nomme les onglets (et la cellule A1) avec ces noms
ccomment l'insérer?

Cliquez pour agrandir...

voilà une modification du fichier

 

Pièces jointes

• sophilo.xlsm

  24.8 KB · Affichages: 51
• sophilo.xlsm

  24.8 KB · Affichages: 52
• sophilo.xlsm

  24.8 KB · Affichages: 52

Vote positif 0 Vote négatif

S

sophilosophie

Guest

• 29 Octobre 2012

• #12

Re : Création d'onglets

Merci!
Ce n'est pas tout à fait ce que je voulais, je me suis sûrement mal exprimée :S
Là quand je saisis 3 entreprises par exemple, iil me demande le nom de la première, je saisis "bidule" et il me créé 3 onglets avec "bidule1" "bidule2" "bidule3"
J'aimerais que si je lui mets nombre d'entreprises : "3" il me demande dans 3 userbox successives "nom de l'entreprise 1", "nom de l'entreprise 2" "nom de l'entreprise 3"

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Octobre 2012

• #13

Re : Création d'onglets

c'est faisable avec ce qui a été produit
vous avez en gros la marche a suivre à vous maintenant de faire


Bon aller pour le fun

 

Pièces jointes

• sophilo.xlsm

  24.8 KB · Affichages: 63
• sophilo.xlsm

  24.8 KB · Affichages: 57
• sophilo.xlsm

  24.8 KB · Affichages: 54

Dernière édition: 29 Octobre 2012

Vote positif 0 Vote négatif

S

sophilosophie

Guest

• 29 Octobre 2012

• #14

Re : Création d'onglets

super, merci

Maintenant j'ai un autre sujet : je voudrais appuyer sur un bouton "ajouter un sous traitant" qui cherche la dernière ligne dans la colonne A dans laquelle il y a le mot "sous-traitant (x)", puis qui compte 3 cellules en dessous et qui là créé 3 lignes supplémentaires avec écrit dans la première ligne "Sous Traitant (x+1)"

quelle est la macro à faire?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Octobre 2012

• #15

Re : Création d'onglets

c'est dans le même fichier?

svp un petit exemple simple de ce que vous voulez obtenir

 

Vote positif 0 Vote négatif