Combobox propriete style qui ne marche pas

Fermé
jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017 - 1 sept. 2017 à 11:21
jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017 - 8 sept. 2017 à 15:59
Bonjour,


la propriété style = 2 bloque mon programme

et je ne sais pas du tout comment faire car il bloque dans la boucle d'initialiser des combo et dans la boucle actualisation des combo lors d'un changement.

est ce quelqu'un peut m'aider ?
MERCI

A voir également:

3 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
1 sept. 2017 à 14:17
Bonjour,

Votre fichier d'un moment modifie a ma "sauce" pour le remplissage et reactu de combobox. Indépendamment, dans votre code il y a de declarations de variables contradictoires: en entete pour etre utilisable dans toute la "feuille" de code et dans des procedures, pas bon ca

https://mon-partage.fr/f/eeAMSxzG/
0
jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017
1 sept. 2017 à 14:22
je comprend pas ce que vous dite il y a des variables contradictoires ok je vais essayer de voir ca
je ne peux pas ouvrir votre fichier
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017
Modifié le 1 sept. 2017 à 14:30
Re,

Pouvez pas ou ca met treeeeeeeeees longtemps (38Mo, pour un fichier excel.....)

il y a des variables contradictoires
Non, declarations de variables contradictoires:
0
jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
1 sept. 2017 à 14:35
je peux pas site bloqué au boulot :s
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017
1 sept. 2017 à 19:01
Re,

Oui, mais comment l'avez vous mis a dispo par ce meme site ?????
0
Je vais regarder depuis chez moi ☺
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
5 sept. 2017 à 09:05
Bonjour,

C'est pourtant facile à comprendre...
ComBoMachin.Style = 2 empêche la saisie, y compris lors du "remplissage" de la Combo par le code.

Donc, pour tes Sub "initialise" et "actualisation", tu doit :
1- remettre à 0 la propriété Style,
2- remplir ta Combo,
3- remettre à 2 ta propriété Style.

A noter, tu n'auras pas accès à certaines propriétés de la ComBobox tel que .Text (cf exemple).

Exemple :
Private Sub Actualisation(C As MsForms.ComBobox)
Dim i&

   With C
      .Style = 0
      .Clear
      For i = 0 To 10
          .AddItem "Liste " & i
      Next i
      .Text = "Faites vos choix" 'NE FONCTIONNERA PAS sauf à l'ajouter avec AddItem
      .Style = 2
   End With
End Sub

0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
5 sept. 2017 à 09:57
Bonjour pijaku,

Dans le fichier que j'ai modifie pour elle en fonction de sa demande de ne pas pouvoir modifier(donc ecrire ou sup a la mano) dans les comboboxs, je ne comprends pas trop son dernier post..
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
Modifié le 5 sept. 2017 à 10:12
Salut,

Ce qu'il (ou elle) veut, c'est ceci :
obj.Value = nom ' puis on replace la valeur initiale de la boxe (vide ou valeur qui avait été choisie par l'utilisateur)

Or, ce n'est pas possible si on veut bloquer la saisie (cf mon explication sur les propriété manquantes lors de l'utilisation de Style).

Si il (ou elle) veut cela, il faut :
- d'abord stocker "nom",
- voir si "nom" existe toujours après l'actualisation,
-- si oui on place le combobox.ListIndex sur cette valeur
-- si non, on l'ajoute avec AddItem, ou pas selon ce qu'il (ou elle) veut...

Mais de toutes façons, sans précision, ET sans que le demandeur n'ajoute des choses dans ton dos sans te le signaler, ça n'ira pas beaucoup plus loin.

D’où mon explication de texte plus haut...


EDIT : 32.65 Mo... Ça ne va pas tarder à planter c't'affaire...
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
5 sept. 2017 à 10:57
Re,

Ce qu'il (ou elle) veut, c'est ceci :
Oui, c'etait avant, maintenant plus besoin, du moins pour moi. J'attends un peu plus d'explications

EDIT : 32.65 Mo... Ça ne va pas tarder à planter c't'affaire...
ben, ca rame un peu et je ne comprends trop cette taille de fichier
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
Modifié le 5 sept. 2017 à 11:07
je ne comprends trop cette taille de fichier

Ben oui... La feuille DESIGNATION PART et sa mise en page sur 1 000 000 et quelques lignes en est la cause.
Applique cette macro, tu descendra à 244 Ko...

Sub reduit()
   Sheets("DESIGNATION PART").Range("A10:A" & Rows.Count).EntireRow.Delete
End Sub
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
5 sept. 2017 à 11:27
Re,

Merci du renseignement car je n'ai pas trop cherche, mais ce qu'il faut savoir, c'est un fichier allege qui a ete fourni, donc le fichier complet ca va surement "merder" a un moment ou un autre
0
jubatail Messages postés 37 Date d'inscription lundi 31 juillet 2017 Statut Membre Dernière intervention 14 septembre 2017
8 sept. 2017 à 15:59
Bonjour,
merci pour tous ses renseignements j'ai réussi a faire ce que je voulais ^^

bien joué ;)
0