Discussion :

[valouche]

Bonjour à tous,
J'ai un petit soucis!!! J'ai créée une liste dans Excel avec la boite à outil de controle (ComboBox), cette liste contient des types de projet, je souhaiterais que selon le type de projet séléctionné, il y ait un nouvel onglet qui s'ouvre qui porte le nom du projet qui aura était saisi en Feuil1.
Vous avez compris ce que je veux??
Vous pouvez m'aider???!!!
Merci d'avance à ceux qui m'apporterons leur aide!
Bonne journée

Pour l'instant mon code ressemble à ça, mais ça ne fais qu'ouvrir un nouvel onglet si c'est "Progiciel" qui a été séléctionné.

Code :

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

1
2
3
4
5
Private Sub Valider_Click()
If Sheets("Couverture").ComboBox1.Text = "Progiciel" Then
  Sheets.Add , Worksheets(2)
End If
End Sub

Une autre question, est-il possible, en même temps que l'ouglet s'ouvre, de le remplir automatiquement avec des données qui sont sur une autre feuille Excel nommée "Evaluation risque".
Desolé ça fais beaucoup en une seule fois!!!!
Merci encore à ceux qui m'aiderons.
Bonne journée

[tonton fred]

Bonjour Valouche ,

Pour creer l'onglet:

Code :

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

1
2
3
4
5
Private Sub Valider_Click()
If Sheets("Couverture").ComboBox1.Text <> "" Then 'verifie qu'une valeur est bien selectionnee
  Sheets.Add.Name = Sheets("Couverture").ComboBox1.Text
End If
End Sub

Pour copier les donnees, le principe est le suivant:

Code :

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

Sheets("dest").range("A1:B10").value = sheets("Evaluation risque").range("C1:D10").value

A adapter a ton cas bien sur

[valouche]

Merci beaucoup, la partie pour créer l'onglet fonctionne très bien, c'est génial!!!!
Pour copier les données, à quoi correspond dest?
Lorsque je test, ça affiche une message d'erreur "L'indice n'appartient pas à la selection", tu sais ce que ça veux dire?
Merci, t'es vraiment sympa!!!

[tonton fred]

Oui bon c'est vrai que pour le coup j'ai pas ete super clair
"dest" est le nom de la feuille (ou onglet si tu veux) de destination.

[valouche]

Ok merci!
ça me met toujours un message d'erreur!!! "Erreur définie par l'application ou par l'objet" mais qu'est ce que ça peut bien vouloir dire???!!!!!!!!
Un dernier problème, quand on copie les données dans une autre feuille est-ce qu'on peux garder la mise en forme???

[tonton fred]

Alors il faudrait que tu copies le code et que tu mettes en evidence la ligne ou il y a l'erreur, l'editeur te la met en jaune si tu fais "debug" au moment de l'erreur (pas sur du nom, j'ai excel en anglais...). Sinon c'est impossible de dire pourquoi il y a cette erreur.


Pour garder la mise en forme, il y a (au moins) deux possibilites:
-Ou tu copies les donnees comme je t'ai marque puis tu changes la mise en forme avec une macro ou pas (ou mise en forme puis copie)
-Ou tu fais un copie colle des donnees

Ca a peut etre l'air pareil mais au niveau du code pas du tout

Pour avoir la syntaxe de ces deux trucs (formatage et copier coller), utilise l'enregistreur de macro (bouton rouge):
-tu le lances une premiere fois puis tu modifies le format d'une ou plusieurs cases, stoppe l'enregistreur,
-tu le relances une deuxieme fois et tu copies des cellules a la main (copier coller).
Ensuite tu vas voir dans l'editeur, tu essayes de comprendre ce que veut dire le code qu'a fabrique Excel grace a la touche F1 et a l'execution pas a pas (F8), puis tu reviens poser des questions sur ce que tu auras pas compris

[valouche]

Alors j'ai fais comme tu m'a dis (très bien dis d'ailleurs!!!) et voila le code qui en est ressorti:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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
    Range("A1:H42").Select
    ActiveWindow.SmallScroll Down:=-39
    Selection.Copy
    Sheets("Progiciel").Select
    ActiveSheet.Paste
End If
End Sub

Mais il me met en message d'erreur comme quoi la méthode Select de la classe Range a échoué. J'ai essayé de mettre ça à la place:
Sheets("Evaluation risque").Range("A1:H42").Select
mais il me dis la même chose!!!!

[tonton fred]

Select et activate c'est le meilleur moyen d'avoir des problemes , et l'enregistreur de macro en met partout. Heureusement il est toujours possible de s'en passer.

Code :

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

Sheets("Evaluation risque").Range("A1:H42").Copy Destination:=Sheets("Progiciel").Range("A1")

Remplace A1 par la case que tu veux en haut a gauche de la destination et dis si ca marche.

[valouche]

Yes ça marche!!!!!!Merci beaucoup beaucoup beaucoup!!!!!
Si j'ai de nouveau besoin d'aide je saurais à qui m'adresser!
Merci encore.
Passe une très bonne journée!!

[tonton fred]

Mais de rien de rien

[AlainTech]

Quand on a reçu une réponse qui convient, on clique sur le bouton Résolu en bas de discussion.
Merci.