rechercher une ligne grace à 2 données

Question

Bonjour,

Je recherche le code me permettant d'exprimer la phrase ci dessous:
"Selectionner la ligne contenant une certaine date et un certain fournisseur."
Pour être plus clair je veux selectionner une ligne en fonction de 2 cellules
Merci de votre aide,

Louis

melanie1324 · Answer

Bonjour,

je suppose que la date est en colonne 1, que le fournisseur est en colonne 2.
Qu'il existe toujours une valeurs dans la colonne 1.
je suppose également que je recherche la 01/01/2014 et le fournisseur Tartempion.

Sub rechercheavec2criteres()

Dim i, ligne as variant

i= 1

ligne = 0

do while cells(i,1) <> ""  'tant que la cellule de la ligne i et de la colonne 1 est non vide

if cells(i, 1) = "01/01/2014" and cells(i, 2) = "Tartempion" then  
    'si la cellule de la ligne i colonne 1 = 01/01/2014
    'et si la cellule de la ligne i colonne  2 = Tartempion alors
    ligne = i
  end if

i=i+1 'on passe à la ligne suivante
loop

If ligne > 0 ' si une ligne contenant 01/01/2014 et tartempion a été trouvée alors
  Rows(ligne).select 'sélection de la ligne
end if

end sub

Rechercher une ligne grace à 2 données

1 réponse

Discussions similaires

Newsletters