Trouver le 2ème mot clef

Bonjour,

J'ai un tableau comme ceci :

Citation:

---

data1 : 2
data2 : 3
data3 : 1
TOTAL : 6

---

J'avais créé une macro à l'époque qui me retrouvait la ligne Total

Code:

---

Ligne = Application.Match("TOTAL", [B:B], 0)

---

Jusque la tout fonctionnait bien.

Hors ici j'ai du rajouter un 2ème tableau
Donc j'ai ceci :

Citation:

---

data1 : 2
data2 : 3
data3 : 1
TOTAL : 6

data1 : 4
data2 : 4
data3 : 2
TOTAL : 10

---

J'aimerai retrouver la ligne TOTAL correspondante au 2ème tableau.

Des avis ?

Bonjour, bonjour !

Cette question n'est pas du Général VBA mais bien spécifique à une application d'Office ! (Access, Excel, …)
Donc plus de chance d'obtenir une réponse en postant dans le bon forum ‼

Sinon la première solution simple est de différencier le second texte en "TOTAL 2 :" par exemple …

Merci pour la réponse,

Effectivement c'est l'option de facilité mais cela ne m'arrange pas.

Si un modo passe par ici il peut déplacer mon message ?

Sinon voir du côté de la méthode Find …

Bonjour,

une possibilité :

Code:

---

1 2 3 4 5

With [B:B] Set total1 = .Find("TOTAL", LookIn:=xlValues, lookat:=xlWhole) Set total2 = .FindNext(total1) End With MsgBox total1.Address & vbLf & total2.Address

---

eric

S'il n'y a que deux cellules TOTAL dans la colonne, la méthode Range.Find trouve directement la dernière
grâce à son paramètre SearchDirection à xlPrevious comme aussi expliqué dans la FAQ ou un tutoriel …

Maintenant si c'est le montant dans la dernière saisie de la colonne, c'est simple
soit par la méthode Range.Find (comme dans la FAQ ou un tutoriel) soit via la propriété Range.End …