J'ai un tableau qui démarre à partir de la ligne 2 (cette ligne contient
les titres de mes colonnes), le tableau est assez large (env. 50
colonnes) et je dois accéder quasiment à chaque ouverture du fichier à
des colonnes différentes.
Je voulais mettre dans la cellule A1 (puisque ma première ligne est
vide) une liste déroulante (Données/Validation.../Autoriser liste....)
et que lorsque je choisirais un élément cela soit géré comme un
hyperlien qui pointerait sur le titre de la colonne concernée.
Faire apparaitre la liste dans la cellule A1 en ayant créer auparavant
ma liste de titre de colonnes plus loin ne pose aucun problème. Par
contre je ne vois pas comment faire la suite.
L'un ou l'une d'entre vous aurait-il -(elle) une suggestion à me faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
-On suppose que la liste déroulante (Données/Valid) est en A1
http://cjoint.com/?bgtSHTrwFO
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Select End If End Sub
Cordialement JB
Bonjour,
-On suppose que la liste déroulante (Données/Valid) est en A1
http://cjoint.com/?bgtSHTrwFO
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Select
End If
End Sub
-On suppose que la liste déroulante (Données/Valid) est en A1
http://cjoint.com/?bgtSHTrwFO
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Select End If End Sub
Cordialement JB
JB
Bonjour
http://cjoint.com/?bgtYs6OMyx
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Select End If End Sub
Cordialement JB
Bonjour
http://cjoint.com/?bgtYs6OMyx
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Count = 1 Then Rows("1:1").Find(What:=Target.Value, LookIn:=xlValues).Select End If End Sub
