VBA connaitre l'address d'une cellule

Salut tout le monde,

Encore un souci (mais un petit ce coup-ci) en VBA:

j'aimerai mettre à la droite d'une cellule son adresse... j'arrive à faire apparaitre l'adresse de la cellule active dans un msgbox mais pasà l'inserer dans la cellule juste à la droite...

Quelqu'un peut-il m'aider ? voici un petit code de test...

Sub test()

Dim AA As Range
Dim dd As String
Dim cc 

Range("A1:A10").Select

dd = Sheets("feuil1").Range("H1").Value
cc = ActiveCell.Offset(0, -1).Address

For Each AA In Selection
If cellule = dd Then
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = cc

ActiveCell.Offset(1, -1).Activate

Else
ActiveCell.Offset(1, 0).Activate

End If
Next AA

End Sub

D'avance merci...

PS: je ne peux pas joindre de fichier, je suis au boulot et mes accès sont restreints... ils m'ont bloqué.........

bon allez, je

c bon j'ai trouvé le code....

Sub test()
Dim AA As Range
Dim dd As String
Dim cc As String

Range("A1:A10").Select
dd = [H1]

For Each AA In Selection
If AA = dd Then
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = ActiveCell.Address
ActiveCell.Offset(1, -1).Activate
Else
ActiveCell.Offset(1, 0).Activate
End If
Next AA
End Sub

Salut Souri84 et le forum

J'aimerais mettre à la droite d'une cellule son adresse

Le code serait plutôt

Sub test()
Dim AA As Range

For Each AA In Range("A1:A10")
If AA= [H1] Then AA.Offset(0, 1) = AA.Address
Next AA

End Sub

Mytå

oui c 'est vrai, beaucoup plus simple... justement je travaille sur ce porjet, merci, je vais l'integrer tout de suite.

Merci,

Souri84