Discussion :

[martinmacfly]

Re Bonjour à tous,

Je cherche à dire à ma macro "Prends cette cellule, et donne-moi la cellule qui est située 3 cases au-dessus" et "Prends cette cellule, et donne-moi la cellule qui est située sur la même colonne à la ligne 55". Ca aurait la structure suivante :

Code :

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

1
2
3
4
5
6
For Each MyCell In Range("B56:E58").Cells
     Valeur1 = ["La cellule 3 cases au-dessus de MyCell"].Value
     Valeur2 = ["La cellule sur la même colonne que MyCell à la ligne 55"].Value
     Opérations avec ces Valeurs
     MyCell.Value = Résultat
Next

Est-ce que quelqu'un saurait comment faire ça ? C'est basique je sais, mais je débute...

[oOVaveOo]

bonjour,

regarde offset dans l'aide.

@+

[martinmacfly]

Effectivement, l'Offset me donne comment décaler de 3 cellules vers le haut, merci !

Et y a-t-il une instruction pour aller chercher la cellule qui se situe dans la même colonne à la ligne 55? Parce que sinon, il faut aller chercher à la main le numéro de ligne de la cellule (je ne sais pas comment faire, mais ça doit pouvoir se trouver), puis rentrer l'offset qui va bien... Il doit y avoir plus simple non ?

[laetitia]

bonjour martinmacfly oOVaveOo le forum peut être comme cela

Code :

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

1
2
3
4
5
For Each c In Range("B56:e58")
      valeur1 = c.Offset(-3)
      Valeur2 = Cells(55, c.Column)
     MsgBox valeur1 & "   " & Valeur2
   Next

[martinmacfly]

C'est ça, il manque juste les .Value à la fin ! Ca donne :

Code :

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

1
2
3
4
5
For Each c In Range("B56:e58")
     Valeur1 = c.Offset(-3).Value
     Valeur2 = Cells(55, c.Column).Value
     MsgBox valeur1 & "   " & Valeur2
   Next

Merci beaucoup !