Cave à vins ( avec macro) 2018-03-08

[JM27]

bonsoir
effectivement il y a un pb.
pour le provoquer :
ouvrir le fichier et visualiser le cave : chez moi fermeture d'excel directement.
par contre : pour ne pas avoir le pb : ouvrir le fichier et appeler par exemple l'userform rentrer un vin dans la cave, puis le fermer . ensuite plus de pb pour visualiser la cave : bizarre de chez bizarre .
Je recherche le pb depuis 2 jours pas de solution pour le moment.
voir si cela se produit comme je l'ai décrit chez vous ?

 

[Toubabou]

bonsoir
effectivement il y a un pb.
pour le provoquer :
ouvrir le fichier et visualiser le cave : chez moi fermeture d'excel directement.
par contre : pour ne pas avoir le pb : ouvrir le fichier et appeler par exemple l'userform rentrer un vin dans la cave, puis le fermer . ensuite plus de pb pour visualiser la cave : bizarre de chez bizarre .
Je recherche le pb depuis 2 jours pas de solution pour le moment.
voir si cela se produit comme je l'ai décrit chez vous ?

Bonsoir JM27,
Tout à fait c'est comme cela que je procède pour le faire fonctionner.
Cordialement,
Jean-Marie

 

[Toubabou]

Bonjour JM27,
Est-il possible de modifier la largeur des colonnes dans la ListBox afin que les données apparaissent en entier?
Jean-Marie

 

[Toubabou]

Bonjour JM27,
Est-il possible de modifier la largeur des colonnes dans la ListBox afin que les données apparaissent en entier?
Jean-Marie
Regarde la pièce jointe 1175854

Oups, je viens de trouver.
Milles excuses
il me suffisait de modifier les valeurs de la ligne "Me.ListBoxVin.ColumnWidtchs=..........

Private Sub UserForm_Initialize()
 Dim cellule As Range
    Dim NbLigneUtilisée As Integer
    Dim NbDonnées As Byte
    Me.ListBoxVin.Clear
    InitDesCombo
     Me.ListBoxVin.ColumnWidths = "100;200;200;100;200;80;80;100;150"

Bonne journée

 

[JM27]

bonjour
J'ai peut être trouvé enfin le bug a l'appel de visualiser ma cave.
20 cellules en horizontal et vertical cela fait 400 cellules donc 400 text box !!!!
En réduisant les casiers à 12 cellules en horizontal et 12 en vertical , cela fait 144 text box et plus de pb
Par contre je ne m'explique pas pourquoi cela fonctionnait si l'on appelait auparavant un autre userform
@Toubabou
dis moi si cela fontionne chez toi
A tester

 

[Toubabou]

Bonjour JM27,
Effectivement cela fonctionne correctement ici. Mais je vais essayer plusieurs fois dans la journée.
A suivre. Tu as fait où la modification

 

[JM27]

bonjour
j'ai tout simplement supprimé les text box en excédent , et modifié la macro :
Private Sub ComboCasier_Change()

pour ne prendre en compte que 12 cellules en colonne et 12 en ligne

 

[Toubabou]

Re,
Merci beaucoup. Je regarde dès que je rentre à la maison.
Bonne journée
Jean Marie

 

[Toubabou]

Il semblerai que maintenant nous ayons une erreur lors de la création d'un nouveau casier.
Avec un Débogage dans:
Privat Sub CmbValiderCréation_Click()

Jean-Marie

 

[JM27]

bonsoir
est ce que cela le fait à chaque fois ?
Quel est le message d'erreur ?
je n'arrive pas à reproduire le pb
Ci joint une modif dans l'affichage des casiers

 

[Toubabou]

bonsoir
est ce que cela le fait à chaque fois ?
Quel est le message d'erreur ?
je n'arrive pas à reproduire le pb
Ci joint une modif dans l'affichage des casiers

- Alors oui cela le faisait à chaque fois
- Me message d'erreur (voir l'image précédemment
- Ta modif fonctionne(tu as modifié quoi?)
Jean-Marie

 

[JM27]

Non tu ne me dis pas le message qui s'affiche.
oui la ligne est en jaune mais quel est le message: c'est essentiel

 

[Toubabou]

oups j'ai oublié:
DEBOGAGE ....FIN

 

[Toubabou]

 

[JM27]

non avec le message il il y une valeur d'indiquée : par exemple erreur 1004