Discussion :

[Jeanne DP]

bonjour

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

Code :

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

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

[anasecu]

bonjour

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 :

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

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