Discussion :

[dan03]

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 :

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

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

[anasecu]

Bonjour,

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

[dan03]

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

[mfoxy]

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 :

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

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 :

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

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

[anasecu]

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 :

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

   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.

[dan03]

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