aller à une cellule

[guizmotte88]

bonjour,
je souhaiterais à partir d'une liste déroulante me placer dans une cellule de mon tableau.
Quelle formule dois-je utiliser
ma liste déroulante se trouve en b2 et j'aimerais aller en d8
merci

 

[Kiseki]

Re : aller à une cellule

Bonjour,

Un fichier permet toujours une réponse plus intéressante.

Il faut le faire en VBA, maintenant il faut connaitre les valeurs de ta liste déroulante, sur une autre feuille ?

 

[JNP]

Re : aller à une cellule

Bonjour le fil 🙂,

Un fichier permet toujours une réponse plus intéressante.

C'est bien vrai, ça 😛...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Range("D8").Select
End Sub

à mettre dans le code de la feuille 😛.
Bonne journée 😎

 

[DL_13]

Re : aller à une cellule

Bonjour,

A chaque changement de valeur de ta liste de validation la cellule D8 sera sélectionnée

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2]) Is Nothing Then [D8].Select
End Sub

Si ce n'est pas se que tu souhaite revient avec plus de précision

EDIT: Bonjour JNP🙂

Bonne Journée

 

[hoerwind]

Re : aller à une cellule

Bonjour,

Il y a déjà eu plusieurs quqtions sur les liens hypertexte dans des listes déroulantes.
Fais une recherche sous les anciens messages, tu trouveras certainement.

Personnellement j'applique une autre méthode.
Je nomme (menu Insertion - Nom - Définir) les cellules que je souhaite atteindre.
En cliquant sur la flèche de la petite fenêtre à l'extrême gauche de la barre de formule (celle qui affiche la référence de la cellule active) une liste des noms attribués s'affiche.
En cliquant sur le nom retenu cette cellule est automatiquement activée.

 

[guizmotte88]

Re : aller à une cellule

re,
ce n'est pas tout à fait ce que je veux.
je me suis mal expliquée.
Dans ma cellule A8, j'ai une liste déroulante qui correspond à des mois (1,2,3,...12)
dans les cellules E2 à NE2, j'ai toutes les jour des mois qui apparaissent. Je souhaiterais en choisissant par exemple qu'il aille à 1 février 2011 quand je choisi 2 dans ma liste déroulante.
Merci

 

[Kiseki]

Re : aller à une cellule

Bonjour,

Merci de joindre un fichier (même épuré si nécessaire) et idéalement illustrer ton souhait dedans pour tes prochaines demandes.

Tu aurait probablement déjà eu ta réponse et c'est beaucoup plus agréable pour ceux qui veulent t'aider.


Ici on a probablement compris maintenant, mais ça veux dire que tous ceux qui vont chercher à t'aider vont reconstituer ton fichier.

 

[JNP]

Re : aller à une cellule

Re 🙂,
Evidemment 😡...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Target.Address <> "$B$2" Then Exit Sub
Set Cellule = Range("2:2").Find(CDate("01/" & Format(Target, "00") & "/2011"), lookat:=xlWhole)
If Not Cellule Is Nothing Then Cellule.Select
End Sub

Bonne soirée 😎

 

[guizmotte88]

Re : aller à une cellule

oui ce script fonctionne mais le souci c'est que j'ai des autres formules dans ces memes colonnes je souhaite me servir de cette fonction juste pour naviguer dans mon tableau.
Est ce qu'il faut que j'enlève le "range 2:2" dans le script ?

 

[guizmotte88]

Re : aller à une cellule

non en fait le script ne marche pas

 

[JNP]

Re : aller à une cellule

Re 🙂,
Comme dit et redit tout au long de ce fil :
Mets un fichier exemple qu'on arrête de travailler dans le vide 😡😡😡...
Bonne soirée 😎

 

[guizmotte88]

Re : aller à une cellule

voici le doc joint

 

[Kiseki]

Re : aller à une cellule

Bonjour,

Adaptation du code :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
    If Target.Address <> "$A$8" Then Exit Sub
    Set Cellule = Range("2:2").Find(CDate("01/" & Format(Target, "00") & "/2011"), lookat:=xlWhole)
    If Not Cellule Is Nothing Then Cellule.Select
End Sub

Soit juste changer B2 pour A8, à mettre dans feuil1.

 

[Fo_rum]

Re : aller à une cellule

Bonsoir,

ou encore (avec retour début et ...)

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Or Target.Address <> "$B$8" Then Exit Sub
   If [B8] = "" Then [F2].Select: Exit Sub
   Rows(2).Find(CDate("01/" & Format(Target, "00") & "/2011")).Select
End Sub

 

[guizmotte88]

Re : aller à une cellule

merci beaucoup pour la réponse.
je vais pouvoir continuer mon planning