Discussion :

[JimJames23]

Bonjour à tous,

Voila j'ai une macro qui utilise un Vlookup :

Code :

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

1
2
3
4
5
For i = 6 To curseur
        With Sheets("affectation")
            .Cells(i, 2).Value = WorksheetFunction.VLookup(.Cells(i, 12).Value, Sheets("informations").Range("A5:C400"), 3, False)
        End With
    Next i

Tout marche très bien quand je lance la macro.
Seulement voila, si je change par exemple la valeur paramètre en L10 (Cells(10,12)) directement dans Excel, la cellule B10 ne se met pas à jour. (Forcément ce n'est pas un RECHERCHEV Excel mais un VLOOKUP VBA).
Est ce qu'il y a un possibilité pour qu'il retienne que c'est un VLOOKUP au niveau de la macro pour qu'il recharge à chaque fois ?

Merci d'avance

[mercatog]

Bonjour
Tu as un amalgame entre une macro et une fonction appelée de la feuille.
Les macros sont lancé soit automatiquement (suite à un évènement) ou par l'utilisateur (action sur un bouton par exemple)

Pour ton cas précis, utilise l'évènement Change de ta feuille. Dès lors, dès que l'utilisateur change une valeur de la colonne L, la macro est appelée.
Attention quand même, la cellule modifiée en colonne L ne doit pas contenir une formule
Code à mettre dans le module de la feuille (évènement Change)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("L6:L100")) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    On Error Resume Next
    Cells(Target.Row, 2).ClearContents
    Cells(Target.Row, 2).Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets("informations").Range("A5:C400"), 3, False)
    On Error GoTo 0
    Application.EnableEvents = True
End If
End Sub

[JimJames23]

Merci pour ta réponse, ca fonctionne.
Autre question, si je met un déroulant dans cette case pour choisir la valeur (ce que je ne sais pas faire pour l'instant en VBA), est ce que le code fonctionnera toujours ? (parce que tu dis qu'il ne faut pas de formule dans la cellule)

[mercatog]

Bonjour

J'entends par formule, une formule Excel. par exemple en L10, tu as la formule =K10 + 5
Si tu changes la valeur de K10, la valeur de L10 change par formule, le code précédent n'est pas appelé.
Maintenant, si tu change la valeur de L10 directement dans la cellule L10, le code sera exécuté.
Le changement direct de la valeur de L10 peut se faire d'au moins 3 manière:
1. L'utilisateur écrit en L10 une valeur
2. L'utilisateur choisit une valeur à partir d'une liste de validation en L10
3. Ecriture en L10 par code vba, exemple

Code :

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

Sheets("Feuil1").Range("L10").value="Toto"

[JimJames23]

Merci pour tes réponses.
Je passe en résolu