Macro pour sélectionner cellule

[gourdin]

Bonsoir,

Je cherche le code macro pour sélectionner dans la colonne C3:C20 de la feuil1 la cellule contenant la même valeur que la cellule B3 de la feuil2.
Cette valeur n'existe qu'une seule fois dans la colonne C3:20 de la feuil1

Voir fichier joint.

Merci

 

[Modeste]

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??

 

[gourdin]

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.

 

[Modeste]

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.

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

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

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.

 

[gourdin]

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.

 

[Modeste]

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.

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 🙂

 

[gourdin]

Re : Macro pour sélectionner cellule

Merci Modeste pour le temps passé
Celà fonctionne parfaitement

Bonne fin de journée