Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

SpinButton sans les lignes vides.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hulk
  • Date de début Date de début

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 !

S'inscrire

Hulk

XLDnaute Barbatruc
Hello tout le monde,

J'ai un souci avec un SpinButton, je ne parviens pas à récupérer les valeurs de la colonne A, sans les lignes vides.

Je souhaite avoir le même résultat que dans la ComboBox1.

Si quelqu'un pouvait me venir en aide... merci infiniment.

Cdt, Hulk.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : SpinButton sans les lignes vides.

Bonjour,
Essaies comme ceci
Code: 
Private Sub SpinButton1_Change()
TextBox1 = Range("A" & SpinButton1 * 5 + 1)
End Sub

Private Sub UserForm_Initialize()
SpinButton1.Min = 0
SpinButton1.Max = Application.CountA(Range("A1:A" & Range("A65536").End(xlUp).Row))
SpinButton1 = 0
End Sub
A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Re : SpinButton sans les lignes vides.

Bonjour
Salut kjin

Ci dessous une macro pour afficher uniquement les zones non vides
Code: 
A rajouter dans Private Sub UserForm_Initialize
SpinButton1.Max = Range("A65536").End(xlUp).Row

Private Sub SpinButton1_SpinUp()
Dim i As Integer

    Do
     Me.TextBox1 = Sheets("Feuil1").Range("A" & SpinButton1.Value)
     If Me.TextBox1 <> "" Then Exit Do
     
     If SpinButton1.Value = SpinButton1.Max Then Exit Do
     
     If SpinButton1.Value < SpinButton1.Max Then SpinButton1.Value = SpinButton1.Value + 1
     
     
    Loop

End Sub


A tester

JP
 
Dernière édition:
Vote positif 0 Vote négatif
Re : SpinButton sans les lignes vides.

Hello,

Merci pour vos réponses compagnons 😀

Avec ton code Kjin, j'ai juste remplacé le Max à 9 et ça joue impec alors qu'avant il ne s'arrêtait pas au dernier... pourquoi... beuh 😕 😀 EDIT : Au fait oui je crois savoir pourquoi 😀

Jp, tu ne m'en voudras pas j'espère, mais ai finalement opté pour le code à Kjin, il me parle plus.

Mais je tiens tout de même à comprendre et garder le tien Jp 😀
Alors j'ai essayé ceci
Code: 
Private Sub UserForm_Initialize()
Dim i As Integer
SpinButton1.Max = Range("A65536").End(xlUp).Row
'SpinButton1.Min = 1
End Sub
Code: 
Private Sub SpinButton1_SpinUp()
Dim i As Integer
    Do
     Me.TextBox1 = Sheets("Feuil1").Range("A" & SpinButton1.Value)
     If Me.TextBox1 <> "" Then Exit Do
     If SpinButton1.Value = SpinButton1.Max Then Exit Do     
     If SpinButton1.Value < SpinButton1.Max Then SpinButton1.Value = SpinButton1.Value + 1         
    Loop
End Sub

Private Sub SpinButton1_SpinDown()
Dim i As Integer
    Do
     Me.TextBox1 = Sheets("Feuil1").Range("A" & SpinButton1.Value)
     If Me.TextBox1 <> "" Then Exit Do     
     If SpinButton1.Value = SpinButton1.Min Then Exit Do     
     If SpinButton1.Value > SpinButton1.Min Then SpinButton1.Value = SpinButton1.Value - 1      
    Loop
End Sub
Juste que, il démarre avec le deuxième nom, je n'ai pas trouvé la combine pour qu'il démarre avec le premier nom.

De plus, un peu bizarre, car trois fois ça m'a planté Excel.

En tous les cas merci à vous.

Cdt, Hulk.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : SpinButton sans les lignes vides.

Bonjour

Un code avec une boucle Do peut poser des problèmes si on ne trouve pas les conditions de sortie de la boucle, ce qui donne une Dead Loock ou boucle mortelle.

Il faut ajouter à l'égalité le test > ou < en fonction de la condition.
If SpinButton1.Value >= SpinButton1.Max Then Exit Do

J'ai utilisé cette technique pour que la procédure fonctionne même si on insère une ligne.
Il faudrait pour la valeur de départ mettre 0 car partant de 1 la première action va donner 2.

JP
 
Vote positif 0 Vote négatif
Re : SpinButton sans les lignes vides.

Re, bonjour JP
Hulk à dit:
Avec ton code Kjin, j'ai juste remplacé le Max à 9 et ça joue impec alors qu'avant il ne s'arrêtait pas au dernier... pourquoi... beuh 😕 😀 EDIT : Au fait oui je crois savoir pourquoi 😀
Cliquez pour agrandir...
Bin oui, j'ai mis le Min à 0 en oubliant de modifier la ligne
Code: 
SpinButton1.Max = Application.CountA(Range("A1:A" & Range("A65536").End(xlUp).Row)) [COLOR="Red"]- 1[/COLOR]
🙄 😱
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
424
Musbek
M
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
371
Vakarm31
V
P
  • Résolu(e)
XL 2019 Masquage et tri.
Réponses
6
Affichages
199
Paulle
P
I
  • Question Question
Microsoft 365 Atteindre la première case vide après collage
Réponses
5
Affichages
126
job75
Z
  • Résolu(e)
Microsoft 365 Suppression des doublons et lignes vide
Réponses
6
Affichages
164
zilio
Z
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
177
agayet
A
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
472
desto
D
E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
283
ExcLnoob
E
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
205
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
360
sousou
M
  • Question Question
Power Query Fractionner et modifier les colonnes d'un tableau
2
Réponses
18
Affichages
600
job75
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
497
iruri
I
J
  • Résolu(e)
XL 2016 tri automatique pour mettre en couleur sans condition
Réponses
4
Affichages
254
julien81
J
D
  • Question Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
1 K
fanch55
  • Question Question
XL 2021 Cellules vides remplacées par 0,00 €
Réponses
9
Affichages
762
Orson83
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
444
chris63
C
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
417
floflatch22
F
E
  • Question Question
Microsoft 365 Formule pour enlever les cellules vides
Réponses
4
Affichages
609
Erakmur
E
V
  • Résolu(e)
XL 2021 Trier sans ligne vide
Réponses
10
Affichages
744
VieuxSeb
V
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…