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

Forcer des zones de listes à une case particulière

L

loic3869

XLDnaute Occasionnel
Bonjour

J’utilise des zones de listes est il possible de les forcer à une case blanche à l’ouverture ou à la fermeture du fichier ou même par l’action d’un bouton de commande ?

Merci.

Loic.
 
Trier par date Trier par votes
L

loic3869

XLDnaute Occasionnel
Re : Forcer des zones de listes à une case particulière

Quand j'exécute en pas à pas tout d'abord le programme commence par la ComboBox2 qui place à la case vide ensuite je passe à la ComboBox3 et là il va dans le programme de la ComboBox3 alors que quand il était à la combobox2 il n'est pas passé dans son programme.

Pour le Call o je ne peux pas le tester sur le portable car il faut installer un programme complémentaire que ne peux pas encore installé.

A+
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Forcer des zones de listes à une case particulière

Bonjour Loic

peut être comme ci dessous, en désactivant ponctuellement les procédures événementielles, mais sans voir le code et le fichier dans sa totalité, difficile de voir si cela suffira à résoudre ton problème...

Code: 
Private Sub Workbook_Open()
Dim x As OLEObject
Application.EnableEvents = False
For Each x In Sheets("Feuil1").OLEObjects
    If TypeOf x.Object Is MSForms.ComboBox Then
        x.Object.ListIndex = -1
    End If
Next x
Application.EnableEvents = True
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Forcer des zones de listes à une case particulière

Re

as tu essayé le dernier code donné ? Sinon un tout petit fichier devrait suffire (en le zippant), avec 2,3 objets permettant de reproduire ton problème...

@+
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Forcer des zones de listes à une case particulière

Re

bon en fait il faut utiliser une variable public de typte booléenne. Dans le module "thisworkbook", événement "open" :

Code: 
Private Sub Workbook_Open()
Dim x As OLEObject
b = True
For Each x In Sheets("Réglages").OLEObjects
    If TypeOf x.Object Is MSForms.ComboBox Then
        x.Object.ListIndex = -1
    End If
Next x
b = False
End Sub

dans un module standard, le module1 de ton classeur par exemple, sur la première ligne, la déclaration de la variable "public" :

Code: 
Public b As Boolean

et le code de l'événement "change" de tous tes combo doit contenir ceci :

Code: 
Private Sub ComboBox1_Change()
If b = False Then
'ton code
End If
End Sub

@+
 
Vote positif 0 Vote négatif
L

loic3869

XLDnaute Occasionnel
Re : Forcer des zones de listes à une case particulière

Je teste et j'en reparle après.

Et j'ai un autre problème avec le calcul de norme. Dites moi si ça marche chez vous.

Moi j'ai une erreur de bibliothèque. Comment résoudre ce problème ?

Merci.
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Forcer des zones de listes à une case particulière

Re

pour ton erreur de bibliothèque, modifies la ligne comme suit :

Code: 
Rang = Application.Index(Range("N2:N20000"), Application.Match([D29], [N2:N20000], 1))

pas top l'utilisation des crochets, renvoie l'évaluation des cellules concernées, préférable d'utiliser l'objet "range", enfin c'est juste mon avis...

@+
 
Vote positif 0 Vote négatif
L

loic3869

XLDnaute Occasionnel
Re : Forcer des zones de listes à une case particulière

Je ne comprends pas bien pourquoi ça ne marche pas j'ai l'impression que le problème vient de mon portable. Est-ce possible ?
J'ai tapé votre ligne et j'ai une incomptabilité de type
erreur 13.
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Forcer des zones de listes à une case particulière

Re

peut être spécifier la feuille, si celle ci n'est pas active...

Code: 
with Sheets("Nomdelafeuille")
Rang = Application.Index(.Range("N2:N20000"), Application.Match(.Range("D29"), .Range("N2:N20000"), 1))
End With
 
Vote positif 0 Vote négatif
L

loic3869

XLDnaute Occasionnel
Re : Forcer des zones de listes à une case particulière

ça marche merci beaucoup.
Maintenant l'autre soucis est que le résultat ne s'inscris pas dans la case dont voici le programme:

Private Sub CommandButton3_Click()
Dim k As Long
Dim Rang As Double
Dim Al As Long


Dim plagerecherche As Range
Dim o As Object

'Set o = CreateObject("Function.Match")


Set plagerecherche = Worksheets("Réglages").Range("O2:O10000")
With Sheets("Réglages")
Rang = Application.Index(.Range("N2:N20000"), Application.Match(.Range("D29"), .Range("N2:N20000"), 1))
End With
Worksheets("Réglages").Cells(1, 1).Value = Rang
k = 0
For k = 1 To 10000

If (Worksheets("Réglages").Cells(k, 14).Value = Rang) And (Worksheets("Réglages").Cells(k, 14).Value) < Worksheets("Réglages").Cells(25, 3).Value Then
Worksheets("Réglages").Cells(29, 7).Value = Worksheets("Réglages").Cells(k, 15).Value

Exit For

End If

Next


With Sheets("Réglages")
Rang = Application.Index(.Range("N2:N20000"), Application.Match(.Range("D30"), .Range("N2:N20000"), 1))
End With
k = 0

For k = 1 To 10000

If (Worksheets("Réglages").Cells(k, 14).Value = Rang) And (Worksheets("Réglages").Cells(k, 15).Value) > Worksheets("Réglages").Cells(25, 3).Value Then
Worksheets("Réglages").Cells(30, 7).Value = Worksheets("Réglages").Cells(k, 15).Value

Exit For

End If

Next

With Sheets("Réglages")
Rang = Application.Index(.Range("N2:N20000"), Application.Match(.Range("D31"), .Range("N2:N20000"), 1))
End With
k = 0
For k = 1 To 10000

If (Worksheets("Réglages").Cells(k, 14).Value = Rang) And (Worksheets("Réglages").Cells(k, 14).Value) < Worksheets("Réglages").Cells(25, 3).Value Then
Worksheets("Réglages").Cells(31, 7).Value = Worksheets("Réglages").Cells(k, 15).Value

Exit For

End If

Next

End Sub

Qu'avez-vous vous quand vous cliquez sur "Calcul de la norme" ?

Merci d'avance.
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : Forcer des zones de listes à une case particulière

Re

là suis largé, sais pas trop ce que devrait renvoyer les fonctions "index" et "match". Tu pars dans des boucles, mais suis pas sur que ce soit le meilleur moyen... A voir.... Peut pas t'aider plus sur ce coup...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
889
merinos-BernardEtang
A
  • Résolu(e)
XL 2019 Contrôle ActiveX et MFC
Réponses
2
Affichages
318
Amilo
A
S
  • Question
XL 2021 Problème avec contenu de ma liste déroulante
2
Réponses
15
Affichages
885
fanch55
I
  • Question
XL 2016 Supprimer "vrai" ou "faux" dans une case à cocher
Réponses
6
Affichages
857
migau
W
  • Question
XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf
Réponses
8
Affichages
604
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Création d'un code VBA pour sélectionner des zone selon choix multiples.
Réponses
3
Affichages
409
Lionel Alfred
L
C
  • Résolu(e)
XL 2021 Formule qui ne marche pas
Réponses
9
Affichages
448
Constantin
C
I
  • Question
XL 2016 Dupliquer des colonnes sur plusieurs feuilles
Réponses
2
Affichages
218
AtTheOne
A
  • Question
XL 2016 Gestion de liste de courses pour sejour de groupe
Réponses
1
Affichages
464
AtTheOne
  • Résolu(e)
XL 2013 recherche de données sur plusieurs fichiers
Réponses
13
Affichages
420
dysorthographie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…