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

**valouche** · 07/06/2007, 09h17

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 :

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

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

**ouskel'n'or** · 07/06/2007, 10h25

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

Code :

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

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+

**valouche** · 07/06/2007, 11h32

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

**ouskel'n'or** · 07/06/2007, 12h26

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

A+

**valouche** · 07/06/2007, 13h49

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??!!

**caloumaya** · 07/06/2007, 15h49

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

**valouche** · 07/06/2007, 15h58

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

**caloumaya** · 07/06/2007, 16h48

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

comment l'utilisateur sélectionne le type de projet

**valouche** · 07/06/2007, 17h14

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

**caloumaya** · 07/06/2007, 17h18

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

**caloumaya** · 07/06/2007, 18h07

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 :

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

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

**ouskel'n'or** · 07/06/2007, 19h50

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

Code :

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

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

)

**valouche** · 08/06/2007, 09h44

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

**valouche** · 08/06/2007, 13h56

J'y arrive pas!!!!

**valouche** · 08/06/2007, 14h38

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()
'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.

**valouche** · 11/06/2007, 10h18

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.

**tonton fred** · 11/06/2007, 10h34

Bonjour,

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

**valouche** · 11/06/2007, 10h57

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 :

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

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

**tonton fred** · 11/06/2007, 11h51

Pourrais tu s'il te plait mettre ton code en... code

? 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 :

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

Range("C2:C10").Select

c'est pourquoi ?

**valouche** · 11/06/2007, 13h40

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 :

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