Discussion :

[kamkam33]

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 :

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

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

[diude54]

Je pense que ça devrai marcher

Code :

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

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

[kamkam33]

merci,

j'ai copié
j'ai tenté
j'ai échoué

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

[david_atx]

allons y

alors

Code :

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

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 ...

[kamkam33]

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 !