[Résolu par sousou] Aide Module de Classe pour effet sur Labels

sousou

XLDnaute Barbatruc

• 22 Février 2016

• #2

Re : Aide Module de Classe pour effet sur Labels

Bonjour
Sans être très pointu sur les modules de classes, regardes si c'est ce que tu cherches

 

Pièces jointes

• effetbouton.xls

  71 KB · Affichages: 49
• effetbouton.xls

  71 KB · Affichages: 54

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Février 2016

• #3

Re : Aide Module de Classe pour effet sur Labels

Bonjour sousou,

c'est super. Merci beaucoup.

C'est à cause des For Next dans le module de classe, que ça ne prenait pas???


Amicalement Lone-Wolf

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 22 Février 2016

• #4

Re : Aide Module de Classe pour effet sur Labels

C'est surtout que ta boucle est inutile

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Février 2016

• #5

Re : Aide Module de Classe pour effet sur Labels

Re,

tu vois, quand on ne le sais pas, c'est vite fait de faire des erreurs.


Dans tous les cas, encore merci pour ton intervention.



Amicalement Lone-wolf

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Février 2016

• #6

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

bonjour Lone-wolf sousou

une autre facon de l'ecrire

seulement pour le "fun" avec une class user + class label ......pour montrer les possibilitées

j'ai repris ton exemple avec seulement code class

 

Pièces jointes

• class.xlsm

  24.4 KB · Affichages: 64
• class.xlsm

  24.4 KB · Affichages: 61

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Février 2016

• #7

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

Bonjour mon Cheri Cheri

très beau travail ça merite 10+. Bravo.

Je pense que tu as deviné ce que je suis entrain de faire, mais je bute pour enregistrer de nouvelles données. Si tu veux, en cliquant sur Nouveau, la scrollbar devrais faire un scroll vers le bas et trouver la dernière ligne vide; ors ce n'est pas le cas. Tu voudrais bien m'aider? Merci beaucoup.

L'exemple de:
Private Sub Worksheet_Activate()
ActiveSheet.ShowDataForm
End Sub

EDIT: je viens de modifier la macro du bouton Nouveau. Et bizarrement BorderColor= vbBlue dans Class2 n'est pas pris en consideration.

Code:

Private Sub Label13_Click()  'Bouton Nouveau
For i = 1 To 12
Me.Controls("TextBox" & i).Text = ""
Next i
Me.NbEnregistrements.Caption = ScrollBar1.Value - 1 & "  sur " & _
Right(Me.NbEnregistrements.Caption, 2) + 1
End Sub

Amicalement Lone wolf

 

Pièces jointes

• effetbouton.xls

  71 KB · Affichages: 50
• effetbouton.xls

  71 KB · Affichages: 76

Dernière édition: 23 Février 2016

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Février 2016

• #8

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

bonjour

Et pouquoi pas comme ça?
Private Sub Label13_Click() 'Nouvel Enregistrement
Me.ScrollBar1.Value = Sheets("Data").Cells.SpecialCells(xlCellTypeConstants).Rows.Count + 1
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Février 2016

• #9

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

Re sousou,

ce n'est pas la valeur qu'il faut changer, mais faire déscendre le curseur. Je ne comprends pas, on peu faire un scroll sur une feuille, et la Monsieur reste figé. ???





A+

 

Dernière édition: 23 Février 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Février 2016

• #10

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

Re,

My God, j'ai enfin trouver. Voici la solution.

Code:

'Dans UserForm_Intialize()

ScrollBar1.Min = 2
ScrollBar1.Max = Sheets("Data").Cells.SpecialCells(xlCellTypeConstants).Rows.Count + 1

'E dans le bouton Nouveau 

Me.ScrollBar1.Value = Me.ScrollBar1.Max


'Attention! Il faut quand même que vous ayez le bouton Enregistrer

'Le Bouton Nouveau sert juste à faire un scroll du curseur 
'et à incrémenter dans le Label le nombre d'enregistrement.

A+

 

Dernière édition: 23 Février 2016

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Février 2016

• #11

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

Re
J'insiste...
Ton problème vient de l'initialisation max de ta barre
regarde ainsi.
Oup!!!
Si ta trouvé c'est bon

 

Pièces jointes

• effetbouton.xls

  60.5 KB · Affichages: 39
• effetbouton.xls

  60.5 KB · Affichages: 39

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Février 2016

• #12

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

re tous

dans ton cas tu traites des boutons pour faire jolie avec une class pour simplifier le code

mais il faut aller jusqu' au bout de la démarche il faut egalement traiter l'action des boutons avec la classe

c'est plus logique
de plus on a des commandbuttons a la place des labels pour faire cela mais bon!!!

un code brut vite fait... pas trop de temps a simplifier & optimi...

ps j'ai pris des comboboxs a la place des textboxs je voulais passer par un combo.list pour simplifier mais pas le temps

 

Pièces jointes

• class (2).xlsm

  37.5 KB · Affichages: 53

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Février 2016

• #13

Re : [Résolu par sousou] Aide Module de Classe pour effet sur Labels

Bonsoir sousou,

tu as tout à fait raison. Le premier éssai était concluant, et après ça c'est gaté.

Merci encore une fois pour être intervenu.



Amicalement Lone-wolf

 

Vote positif 0 Vote négatif