Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne
est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer une
barre de boutons en haut de mon fichier avec des lettres A - B -C etc
etc..
qui seraient des boutons qui m'emmenerait directement sur le premier nom
correspondant a la lettre. (ou je peux inserer une ligne A, une B.. etc
etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca m'jnteresse
fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la ligne
x
de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait pouvoir
bricoler avec ca mais si il y a des outils plus "propre"je suis preneur.
merci
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne
est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer une
barre de boutons en haut de mon fichier avec des lettres A - B -C etc
etc..
qui seraient des boutons qui m'emmenerait directement sur le premier nom
correspondant a la lettre. (ou je peux inserer une ligne A, une B.. etc
etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca m'jnteresse
fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la ligne
x
de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait pouvoir
bricoler avec ca mais si il y a des outils plus "propre"je suis preneur.
merci
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne
est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer une
barre de boutons en haut de mon fichier avec des lettres A - B -C etc
etc..
qui seraient des boutons qui m'emmenerait directement sur le premier nom
correspondant a la lettre. (ou je peux inserer une ligne A, une B.. etc
etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca m'jnteresse
fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la ligne
x
de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait pouvoir
bricoler avec ca mais si il y a des outils plus "propre"je suis preneur.
merci
Bonjour Al Bundy,
Solution alternative qui ne nécessiterait pas une BO (qui devra dans ce
cas gérer les évènements relatifs à l'activation, désactivation ou
fermeture du fichier ou de l'onglet concerné...), ni la création des 26
boutons associés !!!
En supposant que les données se situent en A1:Axx, insérer une ligne au
dessus de A1.
Cette cellule sera utilisée pour atteindre la première lettre souhaitée en
A2:Axx.
A partir de A2, par les menus, Fenêtre/Figer les volets
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then zaza
End Sub
Sub zaza()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("Zn")
With Application
If .CountIf(C, [A1] & "*") > 0 Then _
.GoTo Reference:=C, Scroll:=True: Exit For
End With
Next C
End Sub
Il te suffit maintenant, de retour sur l'onglet concerné, en A1, de saisir
la lettre que tu souhaites atteindre, puis de valider par Entrée.
ChrisV
"Al Bundy" a écrit dans le message de news:
%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne
est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer une
barre de boutons en haut de mon fichier avec des lettres A - B -C etc
etc..
qui seraient des boutons qui m'emmenerait directement sur le premier nom
correspondant a la lettre. (ou je peux inserer une ligne A, une B.. etc
etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca m'jnteresse
fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x
de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait pouvoir
bricoler avec ca mais si il y a des outils plus "propre"je suis preneur.
merci
Bonjour Al Bundy,
Solution alternative qui ne nécessiterait pas une BO (qui devra dans ce
cas gérer les évènements relatifs à l'activation, désactivation ou
fermeture du fichier ou de l'onglet concerné...), ni la création des 26
boutons associés !!!
En supposant que les données se situent en A1:Axx, insérer une ligne au
dessus de A1.
Cette cellule sera utilisée pour atteindre la première lettre souhaitée en
A2:Axx.
A partir de A2, par les menus, Fenêtre/Figer les volets
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then zaza
End Sub
Sub zaza()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("Zn")
With Application
If .CountIf(C, [A1] & "*") > 0 Then _
.GoTo Reference:=C, Scroll:=True: Exit For
End With
Next C
End Sub
Il te suffit maintenant, de retour sur l'onglet concerné, en A1, de saisir
la lettre que tu souhaites atteindre, puis de valider par Entrée.
ChrisV
"Al Bundy" <toto@toto.com> a écrit dans le message de news:
%23m9BJnu2FHA.3588@TK2MSFTNGP10.phx.gbl...
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne
est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer une
barre de boutons en haut de mon fichier avec des lettres A - B -C etc
etc..
qui seraient des boutons qui m'emmenerait directement sur le premier nom
correspondant a la lettre. (ou je peux inserer une ligne A, une B.. etc
etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca m'jnteresse
fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x
de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait pouvoir
bricoler avec ca mais si il y a des outils plus "propre"je suis preneur.
merci
Bonjour Al Bundy,
Solution alternative qui ne nécessiterait pas une BO (qui devra dans ce
cas gérer les évènements relatifs à l'activation, désactivation ou
fermeture du fichier ou de l'onglet concerné...), ni la création des 26
boutons associés !!!
En supposant que les données se situent en A1:Axx, insérer une ligne au
dessus de A1.
Cette cellule sera utilisée pour atteindre la première lettre souhaitée en
A2:Axx.
A partir de A2, par les menus, Fenêtre/Figer les volets
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then zaza
End Sub
Sub zaza()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("Zn")
With Application
If .CountIf(C, [A1] & "*") > 0 Then _
.GoTo Reference:=C, Scroll:=True: Exit For
End With
Next C
End Sub
Il te suffit maintenant, de retour sur l'onglet concerné, en A1, de saisir
la lettre que tu souhaites atteindre, puis de valider par Entrée.
ChrisV
"Al Bundy" a écrit dans le message de news:
%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne
est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer une
barre de boutons en haut de mon fichier avec des lettres A - B -C etc
etc..
qui seraient des boutons qui m'emmenerait directement sur le premier nom
correspondant a la lettre. (ou je peux inserer une ligne A, une B.. etc
etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca m'jnteresse
fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x
de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait pouvoir
bricoler avec ca mais si il y a des outils plus "propre"je suis preneur.
merci
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste avec ca..
Et pour faire moins chargé je vais plutot passer par une combo box avec mon
choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je selectionne ma
lettre dans ma combobox, ca m emmene bien sur la cellule mais plantage:
Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select, Scroll:=True
Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select, Scroll:=True
Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select, Scroll:=True
Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select, Scroll:=True
Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees... posa > numero de la ligne du premier mot del a lettere "A" colndd est toujours = a
1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees.. de plus
quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci) a écrit dans le
message de news:%23O4ws%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste avec ca..
Et pour faire moins chargé je vais plutot passer par une combo box avec mon
choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je selectionne ma
lettre dans ma combobox, ca m emmene bien sur la cellule mais plantage:
Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select, Scroll:=True
Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select, Scroll:=True
Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select, Scroll:=True
Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select, Scroll:=True
Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees... posa > numero de la ligne du premier mot del a lettere "A" colndd est toujours = a
1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees.. de plus
quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news:%23O4ws%23v2FHA.2364@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste avec ca..
Et pour faire moins chargé je vais plutot passer par une combo box avec mon
choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je selectionne ma
lettre dans ma combobox, ca m emmene bien sur la cellule mais plantage:
Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select, Scroll:=True
Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select, Scroll:=True
Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select, Scroll:=True
Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select, Scroll:=True
Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees... posa > numero de la ligne du premier mot del a lettere "A" colndd est toujours = a
1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees.. de plus
quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci) a écrit dans le
message de news:%23O4ws%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value
& "*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
isabelleMerci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste
avec ca.. Et pour faire moins chargé je vais plutot passer par une
combo box avec mon choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je
selectionne ma lettre dans ma combobox, ca m emmene bien sur la
cellule mais plantage: Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select,
Scroll:=True Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select,
Scroll:=True Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select,
Scroll:=True Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select,
Scroll:=True Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees...
posa = numero de la ligne du premier mot del a lettere "A" colndd
est toujours = a 1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees..
de plus quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci) a écrit dans le
message de news:%23O4ws%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me
créer une barre de boutons en haut de mon fichier avec des
lettres A - B -C etc etc.. qui seraient des boutons qui
m'emmenerait directement sur le premier nom correspondant a la
lettre. (ou je peux inserer une ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe
de la page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur
la ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la
première lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de
l'évenement click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value
& "*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
isabelle
Merci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste
avec ca.. Et pour faire moins chargé je vais plutot passer par une
combo box avec mon choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je
selectionne ma lettre dans ma combobox, ca m emmene bien sur la
cellule mais plantage: Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select,
Scroll:=True Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select,
Scroll:=True Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select,
Scroll:=True Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select,
Scroll:=True Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees...
posa = numero de la ligne du premier mot del a lettere "A" colndd
est toujours = a 1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees..
de plus quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news:%23O4ws%23v2FHA.2364@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me
créer une barre de boutons en haut de mon fichier avec des
lettres A - B -C etc etc.. qui seraient des boutons qui
m'emmenerait directement sur le premier nom correspondant a la
lettre. (ou je peux inserer une ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe
de la page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur
la ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la
première lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de
l'évenement click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value
& "*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
isabelleMerci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste
avec ca.. Et pour faire moins chargé je vais plutot passer par une
combo box avec mon choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je
selectionne ma lettre dans ma combobox, ca m emmene bien sur la
cellule mais plantage: Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select,
Scroll:=True Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select,
Scroll:=True Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select,
Scroll:=True Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select,
Scroll:=True Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees...
posa = numero de la ligne du premier mot del a lettere "A" colndd
est toujours = a 1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees..
de plus quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci) a écrit dans le
message de news:%23O4ws%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me
créer une barre de boutons en haut de mon fichier avec des
lettres A - B -C etc etc.. qui seraient des boutons qui
m'emmenerait directement sur le premier nom correspondant a la
lettre. (ou je peux inserer une ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe
de la page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur
la ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la
première lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de
l'évenement click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row
Application.Goto Worksheets("dnsrecord").Cells(x, 1), Scroll:=True
End Sub
isabelleMerci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste avec
ca..
Et pour faire moins chargé je vais plutot passer par une combo box avec
mon
choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je selectionne
ma
lettre dans ma combobox, ca m emmene bien sur la cellule mais plantage:
Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select,
Scroll:=True
Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select,
Scroll:=True
Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select,
Scroll:=True
Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select,
Scroll:=True
Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees... posa
numero de la ligne du premier mot del a lettere "A" colndd est toujours
= a
1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees.. de
plus
quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci) a écrit dans le
message de news:%23O4ws%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de
l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row
Application.Goto Worksheets("dnsrecord").Cells(x, 1), Scroll:=True
End Sub
isabelle
Merci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste avec
ca..
Et pour faire moins chargé je vais plutot passer par une combo box avec
mon
choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je selectionne
ma
lettre dans ma combobox, ca m emmene bien sur la cellule mais plantage:
Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select,
Scroll:=True
Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select,
Scroll:=True
Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select,
Scroll:=True
Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select,
Scroll:=True
Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees... posa
numero de la ligne du premier mot del a lettere "A" colndd est toujours
= a
1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees.. de
plus
quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news:%23O4ws%23v2FHA.2364@TK2MSFTNGP12.phx.gbl...
Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de
l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row
Application.Goto Worksheets("dnsrecord").Cells(x, 1), Scroll:=True
End Sub
isabelleMerci pour les infos :)
En fait j ai trouve application.goto sur le net.. donc j ai teste avec
ca..
Et pour faire moins chargé je vais plutot passer par une combo box avec
mon
choix de lettres dedans (a,b,c...)
Ce que je fit.. en fait ca marche mais avec un plantage, je selectionne
ma
lettre dans ma combobox, ca m emmene bien sur la cellule mais plantage:
Erreur d'execution '1004'
Reference non valide
Avec un peu de code:
Private Sub ComboBox1_Change() 'menu deroulant pour acceder
directement aux nomscomencant par la lettre..
Select Case ComboBox1.Value
Case "A"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posa, colndd).Select,
Scroll:=True
Case "b"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posb, colndd).Select,
Scroll:=True
Case "c"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posc, colndd).Select,
Scroll:=True
Case "d"
ActiveWorkbook.Application.Goto
Reference:=Worksheets("dnsrecord").Cells(posd, colndd).Select,
Scroll:=True
Case "e"
Je precise que les valeurs "posa" "colndd" sont bien recuperees... posa
numero de la ligne du premier mot del a lettere "A" colndd est toujours
= a
1 quand a lui..
Et au plantage je vois bien que les valeurs sont bien recuperees.. de
plus
quand ca plante je suis bien sur la bonne case d arrivee..
vous voyez pourquoi j ai ce message ?
si oui je vous écoute :)
Merci beaucoup
bonne soirée.
"Oliv'" <(supprimerceci) a écrit dans le
message de news:%23O4ws%Bonjour,
j'ai un fichier excel avec a peu pres 7000 lignes, dont la premiere
colonne est composée de noms.
Les lignes sont triés par ordre alphabétique et je voudrai me créer
une barre de boutons en haut de mon fichier avec des lettres A - B
-C etc etc.. qui seraient des boutons qui m'emmenerait directement
sur le premier nom correspondant a la lettre. (ou je peux inserer une
ligne A, une B.. etc etc).
Comme des liens dans une page html qui emmene sur des paragraphe de la
page...
J'ai été clair? rien n'est moins sur.. :)
Si vous voyez de quoi je parle et que vous avez des infos ca
m'jnteresse fortement..
ou deja si vous avez une commande qui m'emmene "visuellement" sur la
ligne x de mon fichier ca m'interesse.
Merci beaucoup
Nicolas
ps: il me vient a l idée de jouer avec .activecell .. je devrait
pouvoir bricoler avec ca mais si il y a des outils plus "propre"je
suis preneur. merci
Tu peux créer des "cases d'options" avec la barre d'outils contrôles
26 ou moins si tu veux regrouper les - fréquentes
et dans l'évenement click tu mets cela :
Private Sub B_Click()
Dim c
quoi = "b*" 'le * avec LookAt:=xlWhole c'est pour trouver la première
lettre du mot
With Range("a:a")
Set c = .Find(What:=quoi, LookIn:=xlValues, LookAt:=xlWhole,
MatchCase:úlse)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub
tu peux aussi créer une macro unique et l'appeler à partir de
l'évenement
click avec l'argument "quoi"
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value
& "*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value
& "*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x = Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value
& "*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
avec une recherche du style "*b*" albert serait trouver mais pas avec
une recherche "b*".
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x >>> Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
avec une recherche du style "*b*" albert serait trouver mais pas avec
une recherche "b*".
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x >>> Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
avec une recherche du style "*b*" albert serait trouver mais pas avec
une recherche "b*".
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x >>> Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
avec une recherche du style "*b*" albert serait trouver mais pas avec
une recherche "b*".
que neni !! seulement si LookAt:=xlWhole
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x > >>> Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
avec une recherche du style "*b*" albert serait trouver mais pas avec
une recherche "b*".
que neni !! seulement si LookAt:=xlWhole
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x > >>> Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
avec une recherche du style "*b*" albert serait trouver mais pas avec
une recherche "b*".
que neni !! seulement si LookAt:=xlWhole
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Bonjour Al Bundy,
Private Sub ComboBox1_Change()
x > >>> Worksheets("dnsrecord").Columns("A:A").Find(What:=ComboBox1.Value &
"*", LookAt:=xlPart).Row Application.Goto
Worksheets("dnsrecord").Cells(x, 1), Scroll:=True End Sub
Désolé isabelle mais si tu as des noms du style
anatole
albert
bernard
et que tu cherches b* avec LookAt:=xlPart tu va tomber sur albert
non ?
