Déplacer le curseur sur la ligne suvante et rester sur la dernière ligne contenant des données

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Legendre

XLDnaute Nouveau
Bonjour
Afin de me déplacer sur la ligne suivante de haut en bas j'ai copié et amélioré le code suivant :
---------------------------------------------------------------------------------------------
Private Sub CommandButton4_Click()
'Bouton ligne suivante dans la liste déroulante
'MsgBox ("Aller dans l'onglet ""Materiels"" à la ligne suivante")
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
Sheets("Materiels").Select
If Me.ComboBox1.ListIndex > -1 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
[B2].Offset(Me.ComboBox1.ListIndex, 0).Select
End If
End Sub
-------------------------------------------------------------------------------------------
Je rencontre la difficulté suivante :
Lorsque la ligne suivante est vide, mon code BUG et j'aperçois le message suivant :
"Erreur d’exécution 380" Debug
Pouvez-vous m'aider à rajouter une condition : Si la ligne est vide je reste sur la dernière ligne renseignée.
--> If Me.ComboBox1.ListIndex = 0 Then......


Merci à vous
 
Dernière édition:
Bonjour Legendre,
VB:
Private Sub CommandButton4_Click()
ThisWorkbook.Sheets("Materiels").Activate
With ComboBox1
    If .ListIndex = -1 Then Exit Sub
    If .ListIndex < .ListCount - 1 Then .ListIndex = .ListIndex + 1
    [B2].Offset(.ListIndex).Select
End With
End Sub
A+
 
Bonjour Legendre,
VB:
Private Sub CommandButton4_Click()
ThisWorkbook.Sheets("Materiels").Activate
With ComboBox1
    If .ListIndex = -1 Then Exit Sub
    If .ListIndex < .ListCount - 1 Then .ListIndex = .ListIndex + 1
    [B2].Offset(.ListIndex).Select
End With
End Sub
A+

Bonjour
Effectivement votre code est plus explicite et mieux adapté à ma demande.
J'ai copié collé votre code en remplacement de mon ancien code et cela fonctionne très bien
Merci à vous
Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
921
Retour