[Excel 2010] VBA Incrémenter colonne B en fonction du contenu colonne A

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.

Pièce jointe 159640

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?

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.

Bonjour,

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

Code:

---

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

---

Ou tu veux absolument passer par une macro ?


Edit : un essai macro :

Code:

---

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

---

C'est exactement ce qu'il me fallait!

Merci super réactivité!