Macro d'extraction de donnees

[david]

la macro marche pour certaine valeurs de recherche commune a plusieurs cases. des que la valeur de la clef donne une réponse multiple mais identique je n'obtiens qu'un seul retour . Le test sur le fichier joint marche avec "te" mais plante avec "t" ou "m" si je donne le nom complet je n'ai qu'une reponse . Si au lieu de la bloucle -Do- je mets un -for to- pour couvrir tout le tableau j'obtiens bien mes resultats mais multiplier par le nombre de ligne .Si quelqu'un comprends merci de m'éclairer . Dans le cas contrire merci de m'avoir lu

G.David

 

[vincent]

Bonsoir

Corrige ta macro avec ces lignes

If Not c Is Nothing Then
lignecopie = 7
'On enregistre la premiere case trouvé
first = c.Address
'On repete temps que l'on ne revient pas à la premiére case trouvé
Do
ligneliste = c.Row
'On copie la ligne d'une feuille a l'autre
Sheets(2).Range("A" & lignecopie) = c.Offset(0, -1)
Sheets(2).Range("B" & lignecopie) = c
lignecopie = lignecopie + 1
'On recherche le suivant
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> first
End If

A plus

@+Vincent

 

[david]

Merci .
Mon fils m'a refilé la même solution comme quoi il ne devait pas y en avoir des masses il m'a fait remarqur également qu'il fallait un point devant une des instruction pour qu'elle soit prise en compte par un "wiz" (eexcuse mon anglais)
encore merci A+

 

[vincent]

Re

de rien

Bonne soirée

@+Vincent

Ps c'est quoi l'anglais lol !!!!.

 

[david]

On dit une potiche Anglaise
et un plat Anglais
Voilà comment en 1975 je me suis tiré 5/20 au BAC (surtout parce que j'ai une exelente prononciation seulement que répondre a ouatzikaractèreoffseine ? ben euh certes .5/20)
A+ G.David
PS 75 c'est une autre génération

 

[jmm]

je suis interessé par la macro modifiée pour bidoulle dans des fichiers importants.

salutations

jean marc

 

[david]

C'est comme une source celui qui a soif Boit
G.David