Discussion :

[neGo33]

Bonjour,
Je travaille sur un classeur Excel 2010 qui comporte 3 feuilles.

Dans la première (Feuil1) j'ai un tableau avec plus de 6000 lignes,
Dans la seconde (Feuil2) j'ai un tableau avec plus de 10000 contacts,
la dernière feuille (Feuil3) va me servir de tableau temporaire.

Pour chaque ligne de la feuille 1, je dois chercher le contact correspondant dans la feuille 2 (pour ça j'utilise la fonction VBA "Find" sur un code en commun entre les 2 feuilles sur la colonne 1).
Le problème c'est que j'ai plusieurs contacts possible, et j'aimerai prendre la dernière occurrence que l'on puisse trouver.
Cependant avec la fonction Find je n'ai que la première valeur trouvée dans ma feuille 2.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
ligneCourante = ThisWorkbook.Worksheets("Feuil1").Columns(1).Cells.Find(valSearch, LookIn:=xlValues)
If Not ligneCourante Is Nothing Then
 
    lastIdFeuil3 = ThisWorkbook.Worksheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row - 1
    Set tmp_rowDest = ThisWorkbook.Worksheets("Feuil1").Rows(lastIdFeuil3 + 1)
    tmp_rowSource.Copy tmp_rowDest
 
    ThisWorkbook.Worksheets("Feuil3").Range("Z" & lastIdFeuil3 + 1).Value = ThisWorkbook.Worksheets("Feuil2").Cells(ligneDUT.Row, 6) 
 
End If

Comment je peux faire pour trouver la dernière occurrence de contact?

Merci d'avance de vos réponses.

[lesaintnuage]

Tu peux faire une boucle sur toute tes lignes de la feuille 1 (bien que je trouve cette solution assez moche) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim indiceDerniereOccurence as Integer
indiceDerniereOccurence=-1
 
for i=0 to 6000 'ta dernière ligne
    if ThisWorkbook.Worksheets("Feuil1").cells(i,1)=valSearch then
    indiceDerniereOccurence = i
    EndIf
Next
 
 
If indiceDerniereOccurence>-1 then
...

[goldstar]

Bonjour,

Voir du coté de la fonction FindNext.

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
 
Dim premiereLigne As Integer, derniereligne As Integer
 
Set ligneCourante = ThisWorkbook.Worksheets("Feuil1").Columns(1).Cells.Find(valSearch, LookIn:=xlValues)
If Not ligneCourante Is Nothing Then
 
    With ThisWorkbook.Worksheets("Feuil2").Range("a1:a500")
 
        Set c = ThisWorkbook.Worksheets("Feuil2").Columns(1).Cells.Find(valSearch, LookIn:=xlValues)
        If Not c Is Nothing Then
            premiereLigne = c.Row
            Do
                derniereligne = c.Row
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Row <> premiereLigne
        End If
    End With
End If

[Marc-L]

Bonjour, bonjour !

La méthode Range.Find permet du premier coup de trouver le dernier élément (sans FindNext)
et c'est pourtant simple, juste en lisant son aide VBA ‼

Si son paramètre After n'est pas renseigné ou indique la première cellule de la plage de recheche,
il suffit donc de bien définir son paramètre SearchDirection !

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[goldstar]

Comme quoi on en apprends tous les jours... Merci Marc pour la leçon ( ... et c'est pourtant simple, juste en lisant son aide VBA ‼) .

[Denis la Malice]

Bonjour,
si le problème est résolu, indique-le et n'oublie pas de cliquer sur les pouces verts de ceux qui t'ont aidé. C'est leur seule récompense et ça ne te coute pas très cher.