Bonjour à tous,
 
Je débute en VBA et après des recherches je n'arrive pas à faire ce que je veux.
Je m'explique.
 
Voici, les extraits de mes 2 tableaux :
 

 

 
Ce que je veux faire c'est :
- récuper la valeur de A4 dans tab1 : Activesheet.Range("A4" ).value ??
- faire une boucle :  
              - en comparant la valeur récupéree precedemment avec les valeurs de la colonne 3 de tab2 ( tab2 étant dans une autre feuille)
              - quand les 2 valeurs concordent alors je veux créer une ligne en dessous de "LYON" dans tab1
              - remplir cette ligne avec les cellule associés de tab2
              - idealement je souhaiterai grouper ces lignes (arborescence) "+" comme dans l'explorateur windows (données / groupe ...)
 
Voilà, c'est simple mais bon ...
 
Merci de votre aide.
Bonne fin de WE

je vous en supplie ...

Bah si c'est simple pourquoi tu le fais pas ?

parce que je pense que pour des gens doués en VBA cela doit etre assez simple, mais pour moi cela n'a rien de simple.

C'est donc le moment de lire la faq, du côté de "on fait pas les exercices pour vous" et/ou de se sortir les doigts du cul.

je suis en train de me sortir les doigts du cul puisque je le fais tout seul mais bon c pas évident quand ton boss te dis tu me fais ca pour mardi alors que tu n'a jamais fais de macro ...
Mais ce n'est pas grave je vais me débrouiller.
Garde tes compétence, ceci est tellement representatif de la France actuelle ...

Ben poste ton travail qu'on voit au moins ce qui a été fait, histoire de faire avancer le bordel.
 
Et merci de ne pas disgresser, c'est pas un forum politique ici.

Je suis désolé d'etre aussi nul :
Voila mon travail .... ca ne marche bien evidemment pas
 

en fait ce qu'il me manque c'est juste de savoir dire ma boucle de parcours de la collone de ma feuille
for each ...

debut = ce_que_tu_as_envie
'Numero de la derniere ligne non vide de la colonne A
nb_lignes =  sheets(1).Range("A65536" ).End(xlUp).Row
for i = debut to nb_lignes
...
next i

et comment je peux récupere la valeur texte d'une cellule donnée ??
par ex ds A11 j'ai LYON je veux mettre lyon dans une variable

strVille = cells(1,11).value ?
 
D'ailleurs, tes Dim au début du programme t'évitent les erreurs de l'option Explicit mais sont quasi inutiles si tu ne les typent pas
Dim motcherche as string, L as long, C as long...

oui mais moi je veux recuperer le texte d'une cellule d'une de mes feuilles donc il faut que je précise la feuille non ?

sheets(nomFeuille) ou sheets(index) puis .cells(x,y).value

et ca marche pas cela me renvoit "" quand je regarde dans le debug
pourtant jai bien déclaré comme tu me l'a dis en string

bon c'est bon j'arrive à récuperer ma valeur à comparer
maintenant il faut que je trouve comment la comparer à ma colonne dans l'autre feuille ...