Discussion :

[valouche]

Bonjour à tous,
alors voila mon problème, j'ai une liste déroulant qui se trouve dans un feuille Excel et qui contient des types de projet, j'aimerais que selon le type de projet, une nouvelle feuille Excel s'ouvre mais avec le nom du projet qui est saisie dans le cellule C8 de la premiere feuille. Et lorsque le nouvel onglet s'ouvre, il faut qu'il soit déjà rempli avec les information contenu dans la feuille nommée "evaluation risque". Le code que j'ai saisie fonctionne uniquement pour le type progiciel et donne le nom "progiciel" à la nouvelle feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Valider_Click()
If Sheets("Couverture").ComboBox1.Text <> "" Then
  Sheets.Add.Name = Sheets("Couverture").ComboBox1.Text
End If
If Sheets("Couverture").ComboBox1.Text = "Progiciel" Then
    Sheets("Evaluation risque").Range("A1:H42").Copy Destination:=Sheets("Progiciel").Range("A1")
    ActiveWindow.SmallScroll Down:=-39
    Selection.Copy
    Sheets("Progiciel").Select
End If
End Sub

Vous avez tout compris???
Merci à ceux qui m'aiderons
Bonne journée

[tonton fred]

Bonjour,
Si les donnees que tu copies sont les memes pour toutes les feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Valider_Click()
If Sheets("Couverture").ComboBox1.Text <> "" Then
Sheets.Add.Name = Sheets("Couverture").ComboBox1.Text
Sheets("Evaluation risque").Range("A1:H42").Copy Destination:=Sheets(Sheets("Couverture").ComboBox1.Text).Range("A1")
Sheets(Sheets("Couverture").ComboBox1.Text).Select
End If
End Sub

Si les donnees varient en fonction du projet, il va falloir donner des exemples (les coordonnees des donnees sources et destinations en particulier).

[valouche]

c'est nikel! par contre comment faire pour que le nom donné à l'onglet soit celui saisi en C8?
Je te remercie (encore une fois)
Bonne journée

[tonton fred]

Tu sais, il faut essayer de comprendre un code, pas seulement le copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.Add.Name= Sheets("Couverture").ComboBox1.Text

Le nom de la feuille ajoutee est le texte contenu dans la combobox1 de la feuille "couverture".
Je te laisse reflechir a comment faire pour que le nom de la feuille ajoutee soit la valeur contenue dans la cellule C8 de la feuille "quelque chose"

[valouche]

C'est bon j'ai trouvé, je te remercie encore une fois!!
Tu m'a appris plus de chose que mon maitre de stage!!!!
Bonne journée
Merci encore