Macro position cellule active

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Décembre 2011

• #2

Re : Macro position cellule active

Bonsoir Fif, bonsoir le forum,

Peut-être comme ça :

Code:

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 8 Décembre 2011

• #3

Re : Macro position cellule active

Bonsoir,
peut-être comme ceci :

Code:

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+

 

Vote positif 0 Vote négatif

H

homepyrof53

XLDnaute Occasionnel

• 8 Décembre 2011

• #4

Re : Macro position cellule active

Bonjour,


Tu double clic sur la cellule ligne 2 colonne 2

 

Pièces jointes

• Copie de Macro cellules.xls

  21.5 KB · Affichages: 79

Vote positif 0 Vote négatif

F

fif2208

XLDnaute Junior

• 8 Décembre 2011

• #5

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.

 

Vote positif 0 Vote négatif