XL 2016 combobox

sylgui2002 · 27 Mai 2019

Bonjour,
Je viens vers vous car je bute sur un petit problème de code vba. J'ai un userform qui me permet de supprimer des données. Pour ce faire ce userform reprend les données affichées dans un onglet. Ma question est la suivante, est ce qu'il serait possible qu'après chaque validation, la ligne d'après apparaisse sans que je sois obligé de cliquer dessus. Merci d'avance

Compte Supprimé 979 · 27 Mai 2019

Bonjour,

Oui,

VB:

Activecell.Offset(1,0).Select

a chque fois que tu valides

sylgui2002 · 27 Mai 2019

merci pour la réponse. Mais j'ai oublié de préciser que je voulais dans la combo. Mais la manipulation indiquée me permet de voir ou j'en suis.

sylgui2002 · 28 Mai 2019

Bonjour tout le monde
bon j'ai trouvé une solution, j'ai crée un bouton suivant. Merci pour tous

Compte Supprimé 979 · 28 Mai 2019

Bonjour,

sylgui2002 à dit:
bon j'ai trouvé une solution, j'ai crée un bouton suivant. Merci pour tous

Tant mieux

Sinon, je pense qu'il y avait un truc du style

VB:

Me.Combobox1.ListIndex = Me.Combobox1.ListIndex +1

Mais sans fichier...

sylgui2002 · 28 Mai 2019

BrunoM45 à dit:
Bonjour,

Tant mieux

Sinon, je pense qu'il y avait un truc du style

VB:

Me.Combobox1.ListIndex = Me.Combobox1.ListIndex +1

Mais sans fichier...

oui c'est ce que j'ai fait
voici mon code le 1er c'est pour le bouton suivant

Private Sub CommandButton5_Click()

If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount - 1 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
End If
derligne = Sheets("baseadrien").Range("A65535").End(xlUp).Row
If Me.ComboBox1.ListIndex = derligne Then
MsgBox "fin des enregistrements", vbOKOnly
End If
End Sub

Si ca peut aider quelqu'un

XL 2016 combobox

sylgui2002

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Guest

sylgui2002

XLDnaute Nouveau

sylgui2002

XLDnaute Nouveau

Compte Supprimé 979

Guest

sylgui2002

XLDnaute Nouveau

Discussions similaires