Discussion :

[anarchiste-mouton]

Bonjour à tous,

Je me fait actuellement un noeud au cerveau pour savoir comment je peux réutiliser l'adresse de la cellule contenue en A1,

Voici ma feuille au départ :


Et je cherche la syntaxe pour dire :

Code :

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

1
2
3
4
5
6
7
8
 
TargetCell = [Cellule pointée par la cellule A1] 'Donc ici ça serait B1
If TargetCell.value = "" then
      TargetCell.value = "1"
      Cells(TargetCell.row + 1 , TargetCell.column).value = ""
else 
      TargetCell.value = "2"
end if

Bonne journée

[Igloobel]

Bonjour,

Code :

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

1
2
3
Sub Test()
    Resultat = Range(Range("A1").Value).Value
End Sub

cela marche si tu mets une valeur dans B1 !!

A+

[anarchiste-mouton]

Merci Igloobel pour cette proposition qui fonctionne parfaitement

(je me sens bête devant la simplicité du truc)