Discussion :

[MelissaJoubert]

Bonjour à tous ,

J'ai un problème sur mon fichier excel, je n'arrive pas a creer le macro qu'il me faut.
Je vous met en lien mon fichier car ce sera plus facile pour vous de m'aider

Alors voila, on va s'interesser seulement a l'onglet feuil2 et feuil4.
J'aimerai associer les lignes de mon tableau dans l'onglet feuil4 au numero qui a dans la cellule.
Par exemple 2017 est associé a toute les case suivant la ligne.

Parce que ce que j'aimerai faire c'est que lorsque je vais dans l'onglet feuil2, et que je rentre 2017 dans la cellule D21, toute les donnée du tableau feuil4 associer a 2017 ce met dans les emplacement spécifique sur la tableau de la feuil2

J"espere que vous comprenez mon problème

Et j'ai également un autre problème, c'est que lorsque je masque la premiere affaire, et que je clique sur affaire elle ce masque elle aussi alors que je ne veux pas


Merci en tout cas pour votre aide

test6 (2).xlsm

[riaolle]

Bonjour et bienvenue au forum
Pour qu'on puisse répondre au mieux à ta quesiton, il faut que tu suives les règles du forum.
Ne donne pas de pieces jointes. Beaucoup de personnes ne les lisent pas par soucis de sécurité (ou autre). Il vaut mieux que tu nous décrives ton problème et que tu nous donnes les bouts de codes où tu bloques.
Pour qu'on puisse t'aider, il faut que tu nous dises ce que tu as déjà fait, où est-ce que tu bloques. As-tu une erreur et tu ne sais pas d'où elle vient? Est-ce que tu ne sais pas quelle fonction utiliser pour faire quelque chose en particulier? Ton code tourne, mais ne fait pas ce que tu veux? Que fait-il àce moment là? Etc...

A lire :
http://club.developpez.com/regles/#LIV-N
https://www.developpez.net/forums/d8...s-discussions/

[MelissaJoubert]

Bonjour et merci

Oui je comprend qu'il y a des régles mais c'est vrai qu'avec un exemple concret je trouve ça plus facile pour les gens pour qu'ils puissent mieux comprendre.
Sinon j'ai du mal à expliquer sans pièce jointe.
Je ne savais pas donc je suis désolé

[riaolle]

C'est comme ça qu'on apprend

J'ai pas lu ton fichier, donc je ne suis pas 100% sûre de ce qu'il te faut, mais de ce que tu nous dis dans ton premier message :

Parce que ce que j'aimerai faire c'est que lorsque je vais dans l'onglet feuil2, et que je rentre 2017 dans la cellule D21, toute les donnée du tableau feuil4 associer a 2017 ce met dans les emplacement spécifique sur la tableau de la feuil2

Pas forcément besoin de VBA : interesses-toi à la fonction BDLIRE() qui permet de retrouver des données dans une base de données. Tu peux aussi regarder vers RECHERCHEV().

[MelissaJoubert]

Pas forcément besoin de VBA : interesses-toi à la fonction BDLIRE() qui permet de retrouver des données dans une base de données. Tu peux aussi regarder vers RECHERCHEV().

Le probème c'est que je veux que cela se fasse automatiquement et que quand je rajoute des tableau cela se mette automatiquement aussi donc je suis obligé de mettre un macro pour cela

[riaolle]

Que veux tu dire par "quand je rajoute des tableaux"? Est-ce que cela veut dire que tu vas créer de nouvelles feuilles avec d'autres tableaux? A quoi cela te sert-il?
D'autre part, dans ta Feuil2, il y a plusieurs endroit où tu as écrit 2017, cela veut-il dire qu'il pourrait y avoir plusieurs fois 2017 dans ton tableau de la Feuil4?

Je comprend pas tout à fait ce que tu veux

Est-ce que tu pourrais me dire où exactement dans ton code tu bloques? Ecris-moi ton code et dis-moi là où tu ne sais plus faire.

J'ai parcouru trèès rapidement ton code et j'ai vu :

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
If Target.Column = 4 And Target.Interior.ColorIndex <> xlColorIndexNone Then 'colonne D sur une cellule colorée...
    'on cherche la position du tableau dans la feuille données
    With Sheets("Données").Range("B:B")
        'MsgBox Target.Item(1)
        Set c = .Find(Target.Item(1)) ', LookIn:=xlValues, XlLookAt:=xlWhole)
        On Error Resume Next
        If Not c Is Nothing Then
            If c.Value <> "" Then
                'recopie du tableau
                .Range("B" & c.Row & ":F" & c.Row + 4).Copy Destination:=Target.Offset(0, 1) 'va comprendre pourquoi il faut mettre B et F pour copier CG......?????
            Else
                Target.Offset(0, 1).Resize(4, 5).ClearContents 'si numéro pas trouvé: on efface
            End If
        Else
            Target.Offset(0, 1).Resize(4, 5).ClearContents 'si numéro pas trouvé: on efface
        End If
    End With
End If

Avec le With... End With, cette ligne équivaut à:

Code :

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

Sheets("Données").Range("B:B").Range("B" & c.Row & ":F" & c.Row + 4).Copy Destination:=Target.Offset(0, 1)

Donc, tu mets 2 Range à la suite --> Excel est perdu