vba - débutant copier

Bonjour,

Je voudrai simplement au sein d'une plage de cellulle, si la valeur de la cellulle est égale à 2, mettre "A" dans la cellule 77 colonnes plus à gauche !
J'ai essayé le ptit truc en dessous, mais ça ne marche pas...
Merci!

Code:

---

1 2 3 4 5 6 7

Range("EE3:FL1466").Select For Each Cell In Selection If Cell.Value = "2" Then Cell.Offset(0, -77).Value = "A" End If Next End Sub

---

Je pense que ça devrai marcher

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim plage as range, c as range dim i as long, j as long   Set plage=range("EE3","FL1466") For each c in plage If c.value=2 then i=c.row j=c.column cells(i,j+77).value="A" ' on pourrai peut être utiliser un offset mais je ne suis pas trés à l'aise avec end if next c

---

merci,

j'ai copié
j'ai tenté
j'ai échoué :)

vais me casser la tête dessus encore un peu..

allons y

alors

Code:

---

1 2 3 4 5 6 7 8 9 10

dim i as integer dim j as integer for i = 1 to 20 for j = 1 to 20 if cells(i,j).value = 2 then cells (i, j+77).value = "A" end if next j next i

---

choisi les valeur de i (pour les lignes) et j (pour les colonnes) en fonction de la plage que tu veux parcourrir
C'est commaire mais ca doit marcher ...

oups, je me plantais de colonne... c'était pas 77 mais 75...
pb résolu donc :)

Mes excuses pour cette demande !

La dernière macro marche à 100% en tout cas

Merci !