recherche de mot dans colonne

Bonjour
A vue de nez dans ton cas la solution serait le TCD.
Ceci étant, vu que les données sont "éclatées" sur plusieurs feuilles je ne
pense pas cela possible.
Donc autre possibilité avec utilisation des fonctions telles que NB.SI,
SOMME.SI, INDEX, EQUIV, SOMMEPROD et les autres !
Cordialement
Pascal


"Larsene" <mailbox@monmail.com> a écrit dans le message de
news:ehCh0grqEHA.3288@TK2MSFTNGP12.phx.gbl...

Bonjour,

Faisant mes tout 1er pas en vba, je cherche a faire le traitement suivant.
Après 2jours de recherche je pose ma question, oui quand même deux jours
lolll.

bon voila : un classeur avec 3 feuilles (pour le moment) 1 par mois, avec
pour chacune les éléments suivants :
a1 b1 c1
d1

.....etc
nom rep1, mois 01, quantité commandée, quantité livrée, temps trajet
livraison..........
nom rep2.....
nom rep3.......

la même chose sur feuille 2 pour mois 02
" " " 3 " "
03................... etc

Ce que je souhaite faire : regrouper sur une feuille 'recap' l'ensemble
des

mois d'un représentant donné

J'ai déjà fait la sélection du représentant avec une liste déroulant, et
je

récupère le nom du rep désiré dans une cellule, ou zone de travail.

Voilà exposé mon souci, un peu d'aide pour me dire comment faire cette
recherche et cette recopie de cellules sur la feuille recap.

Merci a tous de cet aide et bonne journée

Bonjour,

Vit'fait avant de partir (je ne verrai tes conclusions que ce soir bien
tard;..)

En supposant que la feuille récap s'appelle Recap
et que les feuille mois commence toutes par Mois XX
et que la cellule où le nom du représentant est sélectionnée s'appelle Repre

Sub RecapGlobale()
Dim oSheet As Worksheet
Dim i As Integer
Dim oCell As Range
Dim sRep As String
sRep = Worksheets("Recap").Range("Repre").Value
Worksheets("Recap").Range(Worksheets("Recap").Range("A2"), _
Worksheets("Recap").Range("A1").SpecialCells(xlCellTypeLastCell)).ClearContents
For Each oSheet In Worksheets
If Left(oSheet.Name, 4) = "Mois" Then
For Each oCell In oSheet.Range(oSheet.Range("A1"),
oSheet.Range("A65536").End(xlUp))
If sRep = oCell.Value Then
Worksheets("Recap").Range("A65536").End(xlUp).Offset(1, 0).Value = _
oCell.Offset(0, 0).Value
For i = 1 To oSheet.Range("A1").CurrentRegion.Columns.Count
Worksheets("Recap").Range("A65536").End(xlUp).Offset(0, i).Value
= _
oCell.Offset(0, i).Value
Next
End If
Next
End If
Next
End Sub

Bon courage

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Larsene" <mailbox@monmail.com> a écrit dans le message de news:
ehCh0grqEHA.3288@TK2MSFTNGP12.phx.gbl...

Bonjour,

Faisant mes tout 1er pas en vba, je cherche a faire le traitement suivant.
Après 2jours de recherche je pose ma question, oui quand même deux jours
lolll.

bon voila : un classeur avec 3 feuilles (pour le moment) 1 par mois, avec
pour chacune les éléments suivants :
a1 b1 c1 d1
.....etc
nom rep1, mois 01, quantité commandée, quantité livrée, temps trajet
livraison..........
nom rep2.....
nom rep3.......

la même chose sur feuille 2 pour mois 02
" " " 3 " "
03................... etc

Ce que je souhaite faire : regrouper sur une feuille 'recap' l'ensemble
des
mois d'un représentant donné

J'ai déjà fait la sélection du représentant avec une liste déroulant, et
je
récupère le nom du rep désiré dans une cellule, ou zone de travail.

Voilà exposé mon souci, un peu d'aide pour me dire comment faire cette
recherche et cette recopie de cellules sur la feuille recap.

Merci a tous de cet aide et bonne journée

merci Joel
Je teste et te tiens au courant, surement que demain.

bonne journée

"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:416273e5$0$25429$8fcfb975@news.wanadoo.fr...