XL 2021 problème avec un userform

fanfan38

XLDnaute Barbatruc

• 27 Juillet 2023

• #2

Bonjour
A quoi servent les textbox 16 à 29?
Où sont ils sauvegardé
Ci joint ma solution

A+ François

 

Pièces jointes

• Exemple.xlsm

  642.7 KB · Affichages: 2

Dernière édition: 27 Juillet 2023

Vote positif 0 Vote négatif

P

pibes

XLDnaute Occasionnel

• 27 Juillet 2023

• #3

Bonjour,
Les textbox 16 à 29, c'est pour mettre les classes qui se trouvent en feuille "bdd1" colonne "e" a partir de la ligne 3, car elles peuvent changer régulièrement et cela devrait se faire depuis la feuille bdd1.

j'espère que je me suis bien exprimer, car je vois ce que je veux faire mais l'expliquer c'est autre chose.
merci d'avance, Pibes

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 27 Juillet 2023

• #4

et elles ne sont pas sauvegardées dans les 15 colonnes?
A+ François

 

Vote positif 0 Vote négatif

P

pibes

XLDnaute Occasionnel

• 27 Juillet 2023

• #5

Elle doivent pouvoir changer lorsque l'on change dans la base de bdd1.

Je viens de retranscrire le vba dans mon fichier et il me dit:

Erreur de compilations:
Membre de méthode ou de données introuvables

.Labelnew est en bleu
A+ Pibes

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 28 Juillet 2023

• #6

Bonjour
As tu copier l'userform complet ou seulement le code?
Ci joint j'ai ajouté les classes

A+ François

 

Pièces jointes

• Exemple.xlsm

  648.1 KB · Affichages: 2

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Juillet 2023

• #7

Bonjour le Fil
dans cette procédure je n'ai pas trouvé ou était gérée la variable "n" dans "[T_BDD].Item(n, i)"

VB:

Private Sub ScrollBar1_Change()
  If Me.ScrollBar1.Value = Me.ScrollBar1.Max Then Me.LabelNEW.Visible = True Else Me.LabelNEW.Visible = False
  For i = 1 To 15: Me.Controls("TextBox" & i).Value = [T_BDD].Item(Me.ScrollBar1.Value, i): Next
  For i = 16 To 29: Me.Controls("combobox" & i - 15).Value = [T_BDD].Item(n, i): Next
End Sub

Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 28 Juillet 2023

• #8

Bonjour
Salut ChTi160
Bien vu...
Problème corrigé

A+ François

 

Pièces jointes

• Exemple.xlsm

  647.5 KB · Affichages: 8

Vote positif 0 Vote négatif

P

pibes

XLDnaute Occasionnel

• 28 Juillet 2023

• #9

Bonsoir
Je viens de copier coller l'userform et le code, mais quand j'essaie de lancer l'userform il me met un code erreur: Erreur d'exécution '424'
Objet requis

Je ne vois pas ou il manque quelque chose
Je ne suis pas encore arriver a voir le travail que vous avez fait

Merci d'avance
Pibes

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 29 Juillet 2023

• #10

Bonjour
Quand tu as le message d'erreur clic sur dégobage et dit moi quelle ligne pose problème

A+ François

 

Vote positif 0 Vote négatif

P

pibes

XLDnaute Occasionnel

• 29 Juillet 2023

• #11

Bonjour,
La ligne qui pose problème se trouve dans le module 2 c'est userform1.show

A+Pibes

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 29 Juillet 2023

• #12

Tu clic sur cette ligne et ensuite tu avances avec F8 pour voir où ça plante
A+ François

 

Vote positif 0 Vote négatif

P

pibes

XLDnaute Occasionnel

• 29 Juillet 2023

• #13

bonjour,

j'ai trouvé l'erreur c'était userform et non userform1, mais quand j'essaye d'utiliser le scollbar1 il met : Next en jaune

For i = 1 To 15: Me.Controls("TextBox" & i).Value = [T_BDD].Item(Me.ScrollBar1.Value, i) : Next

Merci.

A+Pibes

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 29 Juillet 2023

• #14

En jaune: c'est quand tu fais F8... car il doit faire cette ligne là 15 fois
A+ François

 

Vote positif 0 Vote négatif

P

pibes

XLDnaute Occasionnel

• 30 Juillet 2023

• #15

Bonsoir,

Je viens de faire F8 sur next, j'ai un message d'erreur d'exécution '424'
Objet requis
Et quand je reviens sur excel après avoir fait F8 tous est bloqué et j'ai l'userform sans nouvelle entrée, je suis obligé de faire CTRL-ALT-DEL pour pouvoir sortir du programme.

Merci.

A+Pibes

 

Vote positif -1 Vote négatif