Vba

Debutant.VBA Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
patty5046 Messages postés 46 Date d'inscription Statut Membre Dernière intervention - 8 avril 2017 à 17:49

salut le forum

en faite j'ai posé sur ma userform un bouton suivant et un autre précédent
mon souhait est qu'en cliquant sur sur le bouton suivant une fois à la dernière ligne non vide, s'affiche un message par exemple "vous êtes au dernier membre enregistré
ainsi que pour le bouton précédent

la première ligne non vide est la ligne 5 et c'est là que commence l'enregistrement.

voici le code que j'ai inscris pour ses différent bouton:

suivant:

Private [/contents/446-fichier-sub Sub] CommandButton5_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount - 1 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
End If
End Sub

Précédent:

 Private Sub CommandButton6_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount + 1 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
End If
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

A voir également:

Vba
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

patty5046 Messages postés 46 Date d'inscription Statut Membre Dernière intervention 5

Bonjour

Voyez ce code :

Private Sub CommandButton5_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount - 1 Then
    Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
Else
    MsgBox "Vous êtes au dernier membre enregistré"
End If
End Sub

Private Sub CommandButton6_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount + 1 Then
If Me.ComboBox1.ListIndex = 0 Then
    MsgBox "Vous êtes au premier membre enregistré"
End If
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
End If
End Sub

Bon courage

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires