XL pour MAC FONCTION RECHERCHE EN VBA

[mcj1997]

Bonjour,

Dans le fichier joint, ma fonction recherche ne se fait que sur une ligne, je n'arrive pas à étirer dans le programme et il faut également lancer la macro "manuellement", comment l'automatiser dès que la saisie est faite ?

Merci d'avance,

 

[Phil69970]

Bonjour MCJ1997 , le forum

Je te propose ceci avec une boucle.

Sub test()
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
    End With
Next i
End Sub

Edit :
Pour lancer en automatique à la place de sub Test

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
    End With
Next i
End Sub

@Phil69970

 

[mcj1997]

Merci, toutefois il faut lance la macro pour l'exécution, est-il possible que dès qu'un chiffre est saisi le jour remonte ?

 

[Phil69970]

Voir mon edit qui remplace la procédure sub Test
Donc ==> cela donne cela comme je l'ai déjà écrit plus haut

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
    End With
Next i
End Sub

@Phil69970

 

[mcj1997]

ok parfait, merci

 

[mcj1997]

Si je rajoute des éléments dans la feuil2 en colonne 3 comment les remonter en colonne 3 de la feuil1 ?

 

[Phil69970]

Je te propose ceci si j'ai bien compris:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig
    With Sheets("Feuil1")
        .Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:C100"), 2, False)
        .Range("C" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil2").Range("A1:C100"), 3, False)
    End With
Next i

End Sub

@Phil69970

 

[mcj1997]

Super merci beaucoup, je vois que je peux le faire sur un nombre x de colonnes,

 

[mcj1997]

une précision si dans ma feuil1, je veux commencer ma saisie par exemple à partir de A10 ? j'ai essayé de mettre dans le code A10 à la place des A mais cela ne fonctionne pas, ce n'est peut-être pas aussi simple que cela ?

 

[Phil69970]

Le 10 correspond à la ligne de départ de la boucle
Tu mets 20 pour commencer à la ligne 20 etc....

For i = 10 To DerLig

@Phil69970

 

[mcj1997]

MERCI TOP !