Discussion :

[Teva29]

Bonjour à tous,

Je vous explique rapidement ce que je veux faire mais le fichier joint vous guideras encore mieux.

Mon but est :

Si dans la colonne A de la ligne 7 à 34 la valeur de la cellule est égale à la valeur de la cellule J7 (par exemple) alors incrémenter la valeur de K7 dans les cellule de la colonne B correspondante.

[Invité]

Bonjour,
tu parle d'incrémenter! dans ta maco tu prends comme exemple "FILTRE D'HABITACLE", dans la colonne K FILTRE D'HABITACLE=2 alors qu'il y en a 4 dans la colonne A.

incrémenté veux dire que tu veux 4 dans la colonne K?

[Teva29]

Non je me suis mal expliqué, par exemple la formule sous excel classique pour répondre à la fonction serait d'écrire dans la ligne B7 la formule:

" =SI(A7=J$7;K$7;SI(A7=J$8;K$8;SI(A7=J$9;K$9;SI(A7=J$10;K$10;SI(A7=J$11;K$11;SI(A7=J$12;K$12;SI(A7=J$13;K$13;"")))))))" et la faire déffiller sur toute la ligne.


J"espère avoir été plus clair.

Merci.

[Zirak]

Bonjour,

Si j'ai bien compris, à mettre en B7 et à tirer vers le bas :

Code :

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

=RECHERCHEV(A7;$J$7:$K$13;2;FAUX)

Ou tu veux absolument passer par une macro ?


Edit : un essai macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub rechercheValeur()
 
Dim cell As Range
 
For Each cell In Range("A7:A34")
    If IsError(Application.VLookup(cell.Value, Range("J7:K13"), 2, False)) = False Then
        cell.Offset(0, 1) = Application.VLookup(cell.Value, Range("J7:K13"), 2, False)
    Else
        cell.Offset(0, 1) = "Erreur désignation"
    End If
Next cell
 
End Sub

[Teva29]

C'est exactement ce qu'il me fallait!

Merci super réactivité!