Discussion :

[eric_1000]

Bonjour

Je recherche la solution au problème suivant :
Si j'encode des "références produits" dans les cellules à partir de A50 jusqu'à An (n n'est pas défini au départ)
Dans les cellules voisines
- colonne C : j'active une fonction "Vlookup"
- colonne D : une autre fonction "Vlookup"
- colonne E : une formule de calcul

L'activation des routines doit se faire via la touche ENTER ou autre.

Merci d'avance pour votre aide

[Daniel.C]

Bonjour,

Si j'encode des "références produits" dans les cellules à partir de A50 jusqu'à An (n n'est pas défini au départ)

Il faut pourtant que "n" soit défini pour savoir si on est dans ou hors de la plage.

[78chris]

Bonjour

C'est ce que fait naturellement le tableau au sens Excel 2007-2013 : déclare ta plage de données en tableau et tout se fera tout seul si les formules existent déjà dans les colonnes...

[Daniel.C]

Bonjour Chris,

Oui, à condition de ne pas avoir deux tableaux l'un au dessus de l'autre.

[eric_1000]

Bonjour,

Il faut pourtant que "n" soit défini pour savoir si on est dans ou hors de la plage.

Bonjour Daniel,

Peut on mettre la longueur de la colonne en variable ?
Si non ! on peut la définir sur longueur maximale (ex: 200 références)

Merci pour votre aide.

Bonjour

C'est ce que fait naturellement le tableau au sens Excel 2007-2013 : déclare ta plage de données en tableau et tout se fera tout seul si les formules existent déjà dans les colonnes...

Bonjour Daniel,

Peux tu me donner un peu plus d'info sur la déclaration de tableau.

Bàt

[Daniel.C]

Mets cette macro dans le module de la feuille. Elle se déclenche quand tu entres (ou effaces) une valeur dans la plage A50:A200 :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A50:A200]) Is Nothing Then Exit Sub
    'cells(target.Row,3).formula=applicatiion.vlookup
    'cells(target.Row,4).formula=applicatiion.vlookup
    'cells(target.Row,4).formula=???
End Sub

[eric_1000]

Bonjour Daniel,

Voici ce que j'ai fait comme test

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:A200]) Is Nothing Then Exit Sub
    Cells(Target.Row, 3).Formula = Application.VLookup(Target.Row, 1, "'Tarif'!$A$2:$E$12000", 2, False)    
End Sub

Ça ne fonctionne pas !

Cordialement

[Daniel.C]

Bonjour,

Tu n'étais pas loin :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:A200]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, 3).Formula = "=VLookup(" & Cells(Target.Row, 1).Value & ", 'Tarif'!$A$2:$E$12000, 2, False)"
    Application.EnableEvents = True
End Sub

En valeur recherchée, j'ai mis Cells(Target.Row, 1).Value modifie au besoin.

[eric_1000]

Daniel

J'ai essayé mais ça ne fonctionne pas !
Voici mon fichier

Merci pour ton aide

[Daniel.C]

Bonjour,

Désolé, j'avais oublié les guillemets :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:A200]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, 3).Formula = "=VLookup(""" & Cells(Target.Row, 1).Value & """, 'Tarif'!$A$2:$E$12000, 2, False)"
    Application.EnableEvents = True
End Sub