Macro pour sélectionner cellule

Modeste

XLDnaute Barbatruc

• 11 Novembre 2014

• #2

Re : Macro pour sélectionner cellule

Re-bonsoir gourdin,

Pourquoi un premier fil demandant une solution par formule ou macro ... si c'est pour ouvrir cette discussion-ci, une heure et demie plus tard??

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 11 Novembre 2014

• #3

Re : Macro pour sélectionner cellule

Désolé mais je ne comprends pas la remarque.

Les 2 demandes, me semble t-il, sont différentes et correspondent à deux problèmes différents.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 11 Novembre 2014

• #4

Re : Macro pour sélectionner cellule

gourdin à dit:

Désolé mais je ne comprends pas la remarque.
Les 2 demandes, me semble t-il, sont différentes et correspondent à deux problèmes différents.

Cliquez pour agrandir...

Disons qu'elles se ressemblaient suffisamment pour provoquer la confusion 😕

Dans le Module de la Feuil2, coller ce qui suit:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
If Target = "" Then Exit Sub
Set trouve = Sheets("Feuil1").[C:C].Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not trouve Is Nothing Then
    Sheets("Feuil1").Activate
    trouve.Activate
End If
End Sub

La macro est déclenchée par le changement de valeur en B3.
Pas testé tous les cas de figure possibles ... c'est donc une base à peaufiner.

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 11 Novembre 2014

• #5

Re : Macro pour sélectionner cellule

Merci pour cette proposition,

En revanche, la macro ne doit pas systématiquement se déclencher dès que la valeur en B3 change.

Donc éviter la macro événementielle.

Elle doit se déclencher en cliquant sur un bouton.

J'ai essayer de bidouiller avec l'enregistreur ("Rechercher") et le code "Find" correspondant mais j'ai pas réussi.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 12 Novembre 2014

• #6

Re : Macro pour sélectionner cellule

Bonjour,

L'essentiel du code proposé reste valable.
Coller ce qui suit dans un nouveau Module, puis clic droit sur ton "bouton" > Affecter une macro... > Sélectionner la procédure "chercher" et valider.

VB:

Sub chercher()
    If [B3] = "" Then Exit Sub
    Set trouve = Sheets("Feuil1").[C:C].Find(what:=[B3].Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not trouve Is Nothing Then
        Sheets("Feuil1").Activate
        trouve.Activate
    End If
End Sub

La dernière remarque de mon précédent message reste d'application 🙂

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 12 Novembre 2014

• #7

Re : Macro pour sélectionner cellule

Merci Modeste pour le temps passé
Celà fonctionne parfaitement

Bonne fin de journée

 

Vote positif 0 Vote négatif