Problème avec une macro faisant apel à un tableau Excell

Bonjour à tous,
j'ai un petit soucis!
Voilà j'ai une macro qui ouvre un onglet selon le type de projet selectionné dans une liste déroulante. Ca donne ça:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Valider_Click() If Sheets("Couverture").ComboBox1.Text <> "" Then Sheets.Add.Name = Sheets("Couverture").Range("C8").Text Sheets("Evaluation risque").Range("A1:H50").Copy _ Destination:=Sheets(Sheets("Couverture").Range("C8").Text).Range("A1") Sheets(Sheets("Couverture").Range("nomprojet").Text).Select End If End Sub

---

Et maintenant je voudrais que selon le type de projet, quand je clic sur le bouton, il ne selectionne pas tout le tableau mais qu'il ne selectionne que le cellules que je lui indique dans la feuille nommé "type de projet".
Avez-vous tout compris?
Merci à ceux qui m'apporterons leur aide.
Bonne journée à tous
Val

Je ne sais pas si ça va répondre à ta question mais si tu fais

Code:

---

1 2	Worksheets("type de projet").select Range(La cellule que tu veux).select

---

ça correspond assez à la question que tu poses telle que tu l'as posée (!?!) Non ?
A+

Non ça répond pas tellement à ma question ais je te remercie quand même, c'est gentil.
Bonne journée

Et si tu précisais ce que tu veux obtenir (sans le chemin pour le faire) ;)
A+

Ba alors je te resume mon programme et je te dirais après ce que je veux modifier.
J'ai une liste déroulante dans laquelle il y a différents types de projet(ils sont repertoriés dans le meme classeur Excell dans l'onglet "Types de projets"), et j'ai un bouton, quand tu cliques dessus, un nouvel onglet s'ouvre déjà rempli, le programme copie entierement un tableau présent dans l'onglet "Evaluation risque" dans le nouvel onglet.
Dans l'onglet "Types de projets" j'ai un petit tableau avec les différents types de projets et les cellules du tableau qui corresponde au type.
Ce que je veux c'est que quand le nouvel onglet s'ouvre le programme aille voir dans le petit tableau quelle cellule il doit copier et qu'il ne copie que celle indiquées.
C'est compréhensible??!!

Bonjour,
je veux bien essayer de te répondre, mais j'ai besoin de comprendre.

le type de projet apparait à quel endroit. C'est à dire comment l'utilisateur sélectionne le type de projet.
les données correspondantes au projet se trouve en lignes, en colonnes ou les deux.

merci de ces précisions

Les données correspondant au type de projet sont en colonne.
c'est gentil de bien vouloir m'aider

tu n'as pas répondu à la question la plus importante

comment l'utilisateur sélectionne le type de projet

excuse moi,avec une liste déroulante (qui fais appel à la feuille "Types de projet" dans laquelle il y a les types de projet)

ok merci de ta réponse je m'occupe de ça demain matin

désolé de ne pas être plus rapide mais je dois quitter tôt ce soir

Pascale

et voilà une réponse
la feuille choix est la feuille où se trouve la liste déroulante (en A1)
Pour la feuille type de projet on trouve le nom des projet en A1 B1 C1 D1 et les éléments correspondant à chaque projet sur les lignes 2 à 7
Enfin j'ai collé le résultat sur la feuille "nom de projet" à partir de A1
J'espère avoir été assez claire et surtout avoir répondu à ta question

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Macro2() 'déclaration des variables Dim a As String Dim i As Integer 'sélection de la feuille où se trouve la liste déroulante Sheets("choix").Select ' la variable "a" est égale au choix de l'utilisateur dans la liste déroulante a = Range("A1").Value 'sélection de la feuille "Type de projet" Sheets("Type de projet").Select 'on fait une boucle pour trouver la valeur "a" dans la feuille type de projet For i = 1 To 5 If a = Cells(1, i).Value Then 'quand la condition est vrai on copie les cellules qui nous intéresse Range(Cells(1, i), Cells(7, i)).Copy 'et on les copie où on veut sur la feuille "nom du projet" Sheets("nom du projet").Select Range("A1").Select ActiveSheet.Paste End If Next i End Sub

---

Pour que ça fonctionne mieux, tu peux faire ça ;)

Code:

---

1 2 3 4

If a = Cells(1, i).Value Then Range(Cells(1, i), Cells(7, i)).Copy _ destination:=Sheets("nom du projet").Range("A1").Paste End If

---

(je n'ai pas lu la question et "on" insiste pour que je vienne diner :mouarf: )

Merci je vais tester ça et je vous direz si ça marche.
merci encore
Bonne journée

J'y arrive pas!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Valider_Click() 'condition:si c'est un élément vide qui a été selectionné dans la liste déroulente If Sheets("Couverture").ComboBox1.Text <> "" Then 'Alors le nouvel onglet est renommé avec la cellule nommé "nomprojet" Sheets.Add.Name = Sheets("Couverture").Range("nomprojet").Text 'et la totalité de la feuille "evaluation risque" est copié dans la nouvelle feuille Sheets("Evaluation risque").Range("A1:H42").Copy Destination:=Sheets(Sheets("Couverture").Range("nomprojet").Text).Range("A1") 'la nouvelle feuille est ouverte. Sheets(Sheets("Couverture").Range("nomprojet").Text).Select End If End Sub

---

et en fait à la place de séléctionné les cellules A1à H42 de la feuille évaluation risque, je veux copier que certaines cellules. La liste de ces cellules sont repertoriés dans la feuille "Types de projet" en colonne selon le type de projet et ça commence à la colonne C.

Je suis desolé, desfois je comprend pas bien ce que tu veux savoir je crois!!! Je n'ai pas de message d'erreur, le programe se contente d'ouvrir un nouvel onglet avec rien dedans, il ne copie rien.

Bonjour,

Chez moi ton code marche tres bien, il ajoute la feuille, copie les valeurs A1 a H42 et la selectionne...

Bonjour tonton fred,
moi aussi cette partie marche très bien chez moi, c'est l'autre étape qui me donne du fil à retordre!!!

Voila mon code, après les modifications que j'ai apporté en suivant vos conseil mais j'ai peut être pas tout compris! Je ne suis vraiment pas douée, je suis desolé ça doit vous embêter! Merci de vouloir m'aider, c'est pas simple je l'ai bien compris!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Valider_Click() Dim i As Integer Sheets("Couverture").Select If Sheets("Couverture").ComboBox1.Text <> "" Then Sheets.Add.Name = Sheets("Couverture").Range("C8").Text If Sheets("Couverture").ComboBox1.Text = "Progiciel" Then Sheets("Types de projets").Select For i = 1 To 5 If Sheets("Couverture").ComboBox1.Text = Cells(1, i).Value Then Range("C2:C10").Select Sheets("Evaluation risque").Range("(Cells(1, i), Cells(7, i)").Copy Destination:=Sheets(Sheets("Couverture").Range("nomprojet").Value).Range("A1") End If Next i End If End If End Sub

---

Pourrais tu s'il te plait mettre ton code en... code :P ? C'est plus facile a lire ;)

Concernant ton probleme:
Je ne suis pas sur de comprendre pas comment sont ordonnees tes donnees (celles specifiques a chaque projet et que tu veux copier).

Ce que je comprends:
Tu ajoutes une feuille si elle n'existe pas, avec le nom du projet dans une cellule (a ce propos un inputbox serait peut etre plus indiquee mais on verra plus tard).
Dans la feuille "Type de projet" tu as sur la ligne 1 le nom des projets (colonne i).
Tu veux copier les lignes 1 a 7 de la colonne i de la feuille "Evaluation risque" vers la feuille "nom du projet".

J'ai bon ?

et ca

Code:

---

Range("C2:C10").Select

---

c'est pourquoi ?

Non c'est pas tout à fait ça. Je veux pas copier les lignes 1 a 7 de la colonne i de la feuille "Evaluation risque" vers la feuille "nom du projet". Je veux que les cellules indiquées dans les cellules de la colonne i de la feuille "Type de projets" soit copiées vers "nom du projet".
Et ça

Code:

---

Range("C2:C10").Select

---

c'est rien , je l'ai recopier alors qu'il fallait pas