Erreur d'affectation de variable (Incomp. de Type)

Bonjour,

j'ai un souci, j'ai besoin de mettre, dans une variable, l'adresses d'une cellule en lien avec la cellule présentement modifié.

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range

    If Not Intersect(Target, Target.Worksheet.Range("B1:B25")) Is Nothing Then
        Set rng = Target.Offset(0, 1).Address
        Call ManageCopyButton(rng)
    End If
End Sub

Lorsque ma cellule est modifié, la macro s'exécute bien mais me donne une erreur d'incompatibilité de type sur la ligne Set rng =.

Une idée de ce qui cloche?

Bonjour,

rng est de type Range

Adress est l'adresse, de type "string" (ex : $D$2)

Si on veut récupérer un objet de type "Range"

Set rng = Target.Offset(0, 1).Address

A modifier en

Set rng = Target.Offset(0, 1)

Bonne soirée

Bouben

Merci beaucoup de votre temps, j'ignorais le concept de string et de range et croyais à tort que dès qu'il était question d'adresse de cellule, on référait un a range.

Bien à vous!