Navigation

Bonsoir le forum

je fais appel à vous de nouveau

j'essaie de mettre en place une petite navigation dans mon fichier

j'ai 4 commandboutons

Premier Précédent suivant et dernier

cela ne fonctionne pas et je bug tout simplemeen

alors je fais appel à vous

merci par avance

Bonsoir letranquille,

dhany

Bonjour letranquille, dhany,

voici un exemple concernant uniquement la colonne A de la feuille active.

il est très facile de modifier ce code pour qu'il agisse sur la colonne de la cellule active.

à vous de voir, au besoin s.v.p. donner plus de détail.

Sub Premier()
t = "Min(IF(NOT(ISBLANK(A:A)),ROW(A:A)))"
p = Evaluate(t)
Cells(p, 1).Activate
End Sub

Sub Dernier()
t = "Max(IF(NOT(ISBLANK(A:A)),ROW(A:A)))"
p = Evaluate(t)
Cells(p, 1).Activate
End Sub

Sub Suivant()
ActiveCell.Offset(1, 0).Activate
End Sub

Sub Précédant()
If ActiveCell.Row <> 1 Then ActiveCell.Offset(-1, 0).Activate
End Sub

autre exemple à partir de la cellule active

exemple pour un déplacement sur la colonne active,

Sub Premier_de_la_Colonne()
If Application.CountA(Columns(ActiveCell.Column)) = 0 Then Exit Sub
FistRow = Cells(1, ActiveCell.Column).End(xlDown).Row
Cells(FistRow, ActiveCell.Column).Activate
End Sub

Sub Dernier_de_la_Colonne()
If Application.CountA(Columns(ActiveCell.Column)) = 0 Then Exit Sub
LastRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Cells(LastRow, ActiveCell.Column).Activate
End Sub

Sub Suivant_de_la_Colonne()
ActiveCell.Offset(1, 0).Activate
End Sub

Sub Précédant_de_la_Colonne()
If ActiveCell.Row <> 1 Then ActiveCell.Offset(-1, 0).Activate
End Sub

exemple pour un déplacement sur la ligne active,

Sub Premier_de_la_Ligne()
If Application.CountA(Rows(ActiveCell.Row)) = 0 Then Exit Sub
FistCol = Cells(ActiveCell.Row, 1).End(xlToRight).Column
Cells(ActiveCell.Row, FistCol).Activate
End Sub

Sub Dernier_de_la_Ligne()
If Application.CountA(Rows(ActiveCell.Row)) = 0 Then Exit Sub
LastCol = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
Cells(ActiveCell.Row, LastCol).Activate
End Sub

Sub Suivant_de_la_Ligne()
ActiveCell.Offset(0, 1).Activate
End Sub

Sub Précédant_de_la_Ligne()
If ActiveCell.Column <> 1 Then ActiveCell.Offset(0, -1).Activate
End Sub

bonsoir le forum

j'ai completement oublié de joindre le fichier

alors que je l'avais préparé

rebonjour le forum

j'ai omis de préciser que je souhaitais fais défiler dans la combobox le nom des correspondants

pour parfaire mon petit travail

merci par avance

bonjour le forum

Merci SABV j'ai essayé tes propositions effectivement

en colonne A cela fonctionne, cependant comme dit précédemment

jamais oublié de préciser que c'était pour faire défiler des noms et prénom

dans le combo

j'ai joint aussi un fichier que j'avais oublié

merci par avance et bonn journée

Bonjour toutes et tous,

pour les boutons de commande : suivant, précédent ..

seul le dernier Private Sub cmdLast_Click() ne fonctionnera pas, les autres boutons fonctionneront

EDIT : oups pas vu le post de Sabv, merci à lui

crdlt,

André

Private Sub cmdFirst_Click()
'premier
Me.ListeBig.ListIndex = 0
End Sub

Private Sub cmdLast_Click()
           ' lui ne fonctionnera pas pour le dernier
 ' Me.ListeBig.ListIndex = -1
    End Sub

Private Sub cmdNext_Click()
' suivant
 If Me.ListeBig.ListIndex < Me.ListeBig.ListCount - 1 Then
   Me.ListeBig.ListIndex = Me.ListeBig.ListIndex + 1
  End If
End Sub

Private Sub cmdPrevious_Click()
' précédent
  If Me.ListeBig.ListIndex > 0 Then
    Me.ListeBig.ListIndex = Me.ListeBig.ListIndex - 1
  End If
End Sub

Bonjour à tous et toutes

merci andré effectivement cela fonctionne très bien et suis très content

merci encore je continuerai à chercher pour le dernier

Bonjour letranquille, André, sabV,

À tout hasard, pour le dernier bouton, essaye : Me.ListeBig.ListIndex = Me.ListeBig.ListIndex.Count - 1

Edit : je me suis trompé ; sabV donne la bonne solution dans son message de ce jour à 15:53

@Andre13

Tu a écrit :

EDIT : oups pas vu le post de SabV, merci à lui

non, non, si tu lis le texte de sa signature, sabV est une demoiselle qui porte le joli prénom d'isabelle !

dhany

Re,

oupss arf oui pardon @ Isabelle

en plus, je n'aurai pas du me tromper, arff désolé, merci Dhany

crdlt,

André

Bonjour à tous,

y'a pas de mal André,

une suggestion pour le dernier,

Private Sub cmdLast_Click()
'dernier
With Me.ListeBig
 .ListIndex = .ListCount - 1
End With
End Sub

Re,

Merci Isabelle pour le dernier

crdlt,

André

bonjour andré sabV

Je vous remercie pour votre aide

A bientôt tmerci