Bonjour,
je souhaiterai intégrer ma fonction "Recherche " ci-dessous dans une macro :  
 
=RECHERCHEV(C3;Tables!$A$3:$B$26;2;FAUX)
 
Merci de votre aide

Salut,un tuto sur RECHERCHEV http://fauconnier.developpez.com/t [...] rchev/#LVI

Effectivement complet, mais je démarre dans les macros alors entre worksheetFunction et Evaluate, quelqu'un pour m'aider à démarrer cette macro
Merci de votre aide

Re,qqch comme ceci

ou encore

Merci, je regarde cela de près

La macro ci-joint retourne par le msgbox la valeur :
Sub Tst()
Dim s As String
    s = Application.WorksheetFunction.VLookup(Sheets("Importation_Données" ).Range("B3" ), Sheets("Tables" ).Range("A3:B26" ), 2, False)
    MsgBox s
End Sub
 
j'imagine qu'il me faut maintenant une boucle pour passer en revue l'ensemble des données, mais de quelle type ?
Merci

Re,un filtre automatique semble plus approprié si tu veux avoir toutes les valeurs

L'objectif est de récuperer la donnée par la fonction WorksheetFunction.VLookup et de la copier dans la colonne (A:A)
je pense qu'il faut une boucle While, mais je ne maitrise pas encore le VBA

Re,brut de fonderie

 
ou

 
et en ajoutant ceci dans Feuil1 pour déclencher Tst3 si changement dans C3

Merci

PS : dépend de la casse ( ABc <>ABC <>abc )

Bonjour à tous,
le problème du test de cette macro est que mm si la cellule Bi est vide, j'ai un message d'erreur.
Le test à blanc d'une cellule ne fonctionne pas ?
 
Sub Tst()
Dim s As String
Dim i As Integer
 
i = 3
     
    Range("A3" ).Select
     
        While Not (IsEmpty("B" & i))
        'MsgBox "" + "B" & i
         s = Application.WorksheetFunction.VLookup(Sheets("Importation_Données" ).Range("B" & i), Sheets("Tables" ).Range("A3:B27" ), 2, False)
                 
          Selection.Value = s
          i = i + 1
          Range("A" & i).Select
            Wend
             
    MsgBox ("Traitement terminé" )
      End Sub
 
 
Merci de votre aide

Salut,ceci fonctionne parfaitment,à toi de l'adapter à ton contexte
Balise ton code : Clic icône Editer le message puis sélection du code et clic sur icône Fixe

Merci, cela fonctionne parfaitement: voila ma solution :  
Sub ClassDir()
Dim s As String, i As Integer, p As Integer, LastRow As Long
 
 LastRow = Sheets("Importation_Données" ).Range("B" & Rows.Count).End(xlUp).Row
 
 i = 3
 p = 3
     
    Range("A3" ).Select
     
     For p = 3 To LastRow
       If (("B" & i) <> "" ) Then
          'MsgBox "" + "B" & i
          s = Application.WorksheetFunction.VLookup(Sheets("Importation_Données" ).Range("B" & i), Sheets("Tables" ).Range("A3:B27" ), 2, False)
          Selection.Value = s
          i = i + 1
          Range("A" & i).Select
           
        End If
      Next p
    MsgBox ("Traitement terminé" )
End Sub

Salut,cela m'étonnerait que ton code fonctionne,enfin bref , balise ton code : Clic icône Editer le message puis sélection du code et clic sur icône Fixe