Recherche d'une cellule par rapport à 2 colonnes

[jb25350]

Bonjour à Toutes et à Tous,

J'aimerai faire une recherche sur un N° de Devis

InputBox Recherche sur l'année désirée
InputBox Choix du N° de Devis

Afficher le Numéro de la ligne Trouvée pour récupération des données

Colonne A Date du Devis
Colonne B Numéro du Devis

Je suis coincé sur ce morceau de code,
Voici ce que j'essaie de faire :

Apparemment le code NumLigne = ActiveCell.Row ne fonctionne pas

J'ai essayé également avec Find

Merci beaucoup
Amicalement

Dim AnneeActuelle As String
    Dim NumeroDevis As String

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
      
    Windows("compta.xls").Activate
    Sheets("LigneComptable").Select

    FinFichier = Range("A65535").End(xlUp).Row
    AnneeActuelle = Year(Date)  ' AnneeActuelle contient 2011.
     
     AnneeActuelle = Application.InputBox("Année Recherchée", _
    "Entrer l'Année Recherchée", AnneeActuelle)
    
        NumeroDevis = Application.InputBox("Numero Devis", _
    "Entrer le Numero de Devis")
    
    
    For I = 2 To FinFichier
            DateDevis = Range("A" & I).Value
            NumDevis = Range("B" & I).Value

            If NumDevis = NumeroDevis And Year(DateDevis) = AnneeActuelle Then

               NumLigne = ActiveCell.Row
                Range("B" & NumLigne).Activate
                Exit For
            End If
            If Year(DateDevis) > AnneeActuelle Then

                Exit Sub
            End If
    Next I
 
    If NumeroDevis = 0 Then
        MsgBox ("Aucun N° de Devis n'a été saisi")
        Windows("Devis-Facture.xls").Activate
        Sheets("Accueil").Select
        Exit Sub
    End If

    DateDevis = Range("A" & NumLigne).Value
    NumDevis = Range("B" & NumLigne).Value


    '------- Lit les Informations du Devis dans le Classeur compta.xls -------------------------
    Windows("compta.xls").Activate
    Sheets("LigneComptable").Select
    DateDevis = Range("A" & NumLigne).Value
    NumDevis = Range("B" & NumLigne).Value

 

[Guest]

Re : Recherche d'une cellule par rapport à 2 colonnes

Bonjour,

NumLigne = i

A+

 

[jb25350]

Re : Recherche d'une cellule par rapport à 2 colonnes

Bonjour Hasco,


Forcément reprendre le I de la boucle For

Si je vous disais depuis combien de temps je suis là-dessus !!!!


Merci infiniment pour votre réponse

Bon Week End
nanard25