Amandineuh
XLDnaute Nouveau
Coucou à tous,
J'ai un petit cas que j’essaie de traiter par moi même depuis environ 3 heures, mais rien n'y fait ...
Très simplement, je souhaiterais faire un script balayant chaque ligne de la colonne "CODE", et lorsque celui ci vaut "3", il renvoie dans la colonne "MALUS" (et sur la même ligne) la valeur de la cellule "PRIX" majorée de 170.
J'ai joins un fichier pour illustrer mon exemple (à noter que les lignes peuvent varier d'un fichier à l'autre et qu'un adressage range("A1:A5") ne marcherait pas).
De mon coté j'ai tenté ça :
Mais en plus de piquer les yeux ça ne donne que des erreurs script.
De fait, si quelqu'un passant par là pouvait venir à ma rescousse, je lui en serait très reconnaissante.
Merci,
Amandine.
J'ai un petit cas que j’essaie de traiter par moi même depuis environ 3 heures, mais rien n'y fait ...
Très simplement, je souhaiterais faire un script balayant chaque ligne de la colonne "CODE", et lorsque celui ci vaut "3", il renvoie dans la colonne "MALUS" (et sur la même ligne) la valeur de la cellule "PRIX" majorée de 170.
J'ai joins un fichier pour illustrer mon exemple (à noter que les lignes peuvent varier d'un fichier à l'autre et qu'un adressage range("A1:A5") ne marcherait pas).
De mon coté j'ai tenté ça :
Code:
Private Sub calcul()
Dim Plage As Range, ligne As Long
Plage = Range("B4", Range("B" & Rows.Count).End(xlUp)) 'B4 correspond à la première donnée numérique de la ligne juste en dessous de l'intitulé texte de la colonne C
For Each cell In Plage
If cell(ligne, 2).Value = 2 Then
Cells(ligne, 4).Value = Cells(ligne, 3).Value + 170
End If
ligne = ligne + 1
Next
De fait, si quelqu'un passant par là pouvait venir à ma rescousse, je lui en serait très reconnaissante.
Merci,
Amandine.