Utilisation de la Fonction Find

Bonjour,

Dans l'extrait de fichier ci-après, je voudrais chercher la variable "AChaineDate", mais la recherche s'effectue toujours depuis le début de la colonne
S'il y a 2 variables identiques, je voudrais chercher la deuxième et non la première et ainsi de suite
Une sorte d' incrémentation
Merci de m'aider Cordialement

Code:

---

1 2 3 4 5 6 7 8

If strSeparateur = "/" And Right(AChaineDate, 4) > 1900 Then Dim Ligne, An DateRepublicaine = Left(AChaineDate, 6) Ligne = Columns(2).Find(AChaineDate, lookat:=xlWhole).Row An = Cells(Ligne, 1).Value DateRepublicaine = DateRepublicaine & An Exit Function End If

---

Bonjour,

Citation:

---

Envoyé par dan03

je voudrais chercher la deuxième et non la première et ainsi de suite

---

Il suffit d'utiliser la fonction adéquate dont tu as un exemple chez microsoft
https://docs.microsoft.com/fr-fr/off...6)%26rd%3Dtrue

Bonjour,
Merci de ta réponse
En fait, je voudrais utiliser la fonction Find, mais en ajoutant l'argument After
Comme je suis débutant en VBA, je n'ai pas réussi à utiliser cet argument
Merci de transformer mon code, avec quelques explications
Cordialement

Bonjour,

(sans être certain d'avoir bien cerné le problème)

Et avec cette Info : "S'il y a 2 variables identiques, je voudrais chercher la deuxième et non la première et ainsi de suite"
Donc si 3 identiques la 3em, 4 identiques la 4em,... soit : qu'il faudrait simplement trouver la dernière ligne de la colonne B contenant la date en question ?

Suivant cette hypothèse, si la date est 01/01/2020 , ce code retourne la dernière ligne de la colonne B où l'on retrouve la date 01/01/2020.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub FindLastRowContainSpecificDate()   Dim LastRowPFW As Long Dim MyDate As Date   MyDate = "01/01/2020" If WorksheetFunction.CountIf(Range("B:B"), CDate(MyDate)) > 0 Then LastRowPFW = Range("B:B").Find(what:=CDate(MyDate), after:=Range("B1"), searchdirection:=xlPrevious).Row   MsgBox LastRowPFW   End Sub

---

Ce qui donnerai dans le bout de code que tu as fournis ( et pour peu que ta colonne soit en format date) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If strSeparateur = "/" And Right(AChaineDate, 4) > 1900 Then Dim Ligne as long Dim An as Integer Dim DateRepublicaine as String   DateRepublicaine = Left(AChaineDate, 6)   If WorksheetFunction.CountIf(Range("B:B"), CDate(AChaineDate)) > 0 Then Ligne= Range("B:B").Find(what:=CDate(AChaineDate), after:=Range("B1"), searchdirection:=xlPrevious).Row An = Cells(Ligne, 1).Value DateRepublicaine = DateRepublicaine & An Exit Function End If

---

Attention aussi a bien typer tes variables

Bonjour,

Si tu veux avoir la ligne la plus grande de la date cherchée comme pense mfoxy (salue à toi), il suffit de paramétrer la fonction "find" comme ceci :

Code:

---

Ligne = Columns(2).Find(AChaineDate, Cells(Rows.Count, 2), xlValues, xlWhole, xlByRows, xlPrevious).Row

---

La recherche se fait depuis le bas sur les lignes de la colonne de recherche.

Si par contre tu veux parcourir toutes les valeurs il faut utiliser "findnext" comme dans l'exemple que je t'ai donné sur Microsoft.

Cela ne résout pas mon problème
J'ai du mal le présenter
Je vais totalement modifier le code pour éviter cette procédure
Merci à tous ceux qui m'ont aidé
Je mets le post en résolu