Recherche dans une colonne

Bonjour à tous,

J'ai une liste de séries coréennes (classées par ordre alphabétique) dans la colonne H.

Je voudrais avec des boutons (A,B,C..etc) pouvoir accéder directement à la première lettre de cette série.

J'avais trouvé ce code mais ça ne fonctionne pas. Je pense qu'il faut dejà selectionner la colonne.

Sub A()

Cells.Find("a").Select

End Sub

Merci beaucoup pour votre aide.

Bonjour,

à tester,

Sub MaRecherche()
Range("H:H").Find(What:="a", After:=Range("H1"), LookIn:=xlValues, LookAt:=xlPart).Activate
End Sub

oNnO a écrit :

Bonjour à tous,

J'ai une liste de séries coréennes (classées par ordre alphabétique) dans la colonne H.

Je voudrais avec des boutons (A,B,C..etc) pouvoir accéder directement à la première lettre de cette série.

J'avais trouvé ce code mais ça ne fonctionne pas. Je pense qu'il faut dejà selectionner la colonne.

Sub A()

Cells.Find("a").Select

End Sub

Merci beaucoup pour votre aide.

Bonjour,

Une simple filtre sur tes données ne suffirait pas ?

Bonjour oNnO, le forum,

je propose ce code VBA :

Option Explicit

Sub Essai()
  Dim cel As Range
  Set cel = Columns(8).Find("a", , -4163, 1, 1)
  If Not cel Is Nothing Then Cells(cel.Row, 8).Select
End Sub

dhany

Merci à tous pour votre aide.

Aucun des codes ne fonctionnent.

Pour les filtres, je ne vois pas. Je pourrai l'assigner à un bouton?

J'ai mis une image... mieux qu'une explication.

Si je clique sur s, je voudrais arriver sur la première série commençant pas s.

re,

J'ai allégé le fichier

Merci

re,

as-tu tester ton lien ?

oui, c'est corrigé...

re,

si j'ai bien compris il faut activer la première cellule dont le premier mot commence par A ?

à tester,

Sub Bouton_A()
Range("H:H").Find(What:="a*", After:=Range("H1"), LookIn:=xlValues, LookAt:=xlWhole).Activate
End Sub

Sub Bouton_B()
Range("H:H").Find(What:="b*", After:=Range("H1"), LookIn:=xlValues, LookAt:=xlWhole).Activate
End Sub

re,

une autre possibilité,

uniquement 2 macro pour l'ensemble des bouton (A à W)

execute une fois la macro "Affecte_macro_ShapeClick"

puis fait le test par un clic sur les boutons de A, B, C, E,... etc...

Sub ShapeClick()
Dim NomShape As String
NomShape = Application.Caller
g = Right(NomShape, 2)
n = Val(g) / 2
lettre = "abcdefghijklmnopqrstuvw"
chiffre = Array(2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46)
t = Mid(lettre, n, 1)
Range("H:H").Find(What:=t & "*", After:=Range("H1"), LookIn:=xlValues, LookAt:=xlWhole).Activate
End Sub

Sub Affecte_macro_ShapeClick()
For Each shp In ActiveSheet.Shapes
x = Val(Right(shp.Name, 2))
If x <= 46 Then shp.OnAction = "ShapeClick"
Next
End Sub

Wouahhh!! Merci beaucoup!!

Si j'ai compris, le nom de l'image est associé à une lettre.

Je garde tout ça pour essayer de comprendre.

MERCI !!