Sélectionner une cellule en fonction d'une autre cellule

Bonjour,

Je m'excuse d'avance si cette question a déjà été posée, mais je cherche depuis une heure cette macro et je n'arrive pas à trouver mon bonheur.

Je cherche à sélectionner une cellule dans un tableau qui est identique à une autre cellule pour pouvoir après copié une valeur à l'intérieur.

Ce qui m'intéresse ici c'est vraiment la partie sélection de la case.

Ma feuille ce présente comme ceci :

en A17 j'ai la case cible (qui est la date du jours)

Le tableau ce trouve dans la plage k8 à S347 ou ce nomme "tableau2" les date dans ce tableau son dans la colonne "k"

j'aimerai si possible que la macro fonctionne de cette manière :

  • trouver la valeur identique à la cellule A17 dans la colonne K de mon tableau
  • sélectionné la case de droite de cette dernière

Pour le reste de ma macro je pourrais me débrouiller normalement..

je vous remercie d'avance pour vos réponses .

Cordialement,

Salut Kini,

T'a pleeeeeeein de solution possible.

En voici une en passant par une boucle !

Sub Trouve()
Dim x As Long, y As Long
Dim ValChercher As String
ValChercher = Cells(17, 1)
x = Range("K8").End(xlDown).Row
For y = 8 To x
    If Cells(y, 11) = ValChercher Then
        Cells(y, 12).Select
        Exit Sub
    End If
Next
End Sub

Si elle te convient pas, hésite pas à revenir vers nous et on essayera une autre méthode

Restant à ta dispo !

Édit : Une autre méthode plus courte mais pas des moindres !

Sub Trouve()
Cells(Columns(11).Find(what:=Range("A17")).Row, 12).Select
End Sub

Bonjour Juice,

Merci beaucoup pour ton retour j'ai utilisé ta première formule elle fonctionne parfaitement!

Merci encore

Bonne journée.

Cordialement,

Rechercher des sujets similaires à "selectionner fonction"