Macro position cellule active

[fif2208]

Bonjour à tous,

Je suis à la recherche d'une macro qui positionnerait la cellule active en fonction d'une autre cellule.

Par exemple, dans mon fichier, j'aimerais que la cellule active se positionne en B9 qui est le même résultat que la cellule B2.

Je vous remercie.

 

[Robert]

Re : Macro position cellule active

Bonsoir Fif, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Dim r As Range

Set r = Columns(2).Find(Range("B2"), Range("B2"), xlValues, xlWhole)
If Not r Is Nothing And r.Address <> "$B$2" Then r.Select
End Sub

 

[david84]

Re : Macro position cellule active

Bonsoir,
peut-être comme ceci :

Sub test()
With Worksheets(1).Range("B6:B11")
    Set c = .Find([B2], LookIn:=xlValues)
    If Not c Is Nothing Then c.Select
End With
End Sub

A+

 

[homepyrof53]

Re : Macro position cellule active

Bonjour,


Tu double clic sur la cellule ligne 2 colonne 2

 

[fif2208]

Re : Macro position cellule active

Merci à tous les trois pour vos réponses rapides.

J'ai testé vos macros et maintenant je n'ai que l'embarras du choix.

Bonne soirée.