adapter .Index .match d'une cellule à une colonne

bonjour

j'ai écrit cette formule qui fonctionne sur une cellule

Code:

---

Range("i2") = Application.Index(Workbooks("ptac").Sheets(1).Range("A1:B572"), Application.Match(Range("A2"), Workbooks("ptac").Sheets(1).Range("A1:A572"), 0), 2)

---

j'ai deux classeurs , un actif et le second (ptac)

sur le premier classeur je me positionne sur la cellule I2 , je vais lire le contenu de la cellule A2 .
Ce contenu je vais le chercher dans la colonne A1:A572 de mon classeur ptac; ca me renvoie le numéro de la ligne avec Application.match et avec Application.index, je récupère le contenu de la cellule située sur la deuxième colonne de la même ligne.
et ce résultat, je le mets donc dans ma cellule I2

sauf que je voudrais répéter la même opération sur toutes les cellules non vides de ma colonne I.

je tourne en rond avec les For each et les offset (0 -8).

Auriez vous une petite idée ?

Merci


et le plus important : BONNE ANNEE A TOUS

bonjour

Citation:

---

Envoyé par Jeanne DP

je voudrais répéter la même opération sur toutes les cellules non vides de ma colonne I.

---

Sans pouvoir tester je te propose ceci :

Code:

---

1 2 3 4 5 6

Dim lig As Long For lig = 2 To Cells(Rows.Count, "I").End(xlUp).Row If Cells(lig, "I").Value <> "" Then Range("i" & lig) = Application.Index(Workbooks("ptac").Sheets(1).Range("A1:B572"), Application.Match(Range("A" & lig), Workbooks("ptac").Sheets(1).Range("A1:A572"), 0), 2) End If Next lig

---