Microsoft 365 UserForm : est-il possible de ne pas l'afficher - mais uniquement le ComboBox ?

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

En voilà une comme je les aime lol
Sans titre.jpg

Je ne parle pas de la croix de l'UserForm.
Mais afficher uniquement le ComboBox
J'ai des recherches mais je n'ai pas trouvé :mad:
Peut-être impossible mais ...
Je pose quand même la question car ce serait super bien :)
Je joins un ch'ti fichier test,
Avec mes remerciements,
lionel,
 

Pièces jointes

  • infos_com.xlsm
    48.1 KB · Affichages: 53
Trier par date Trier par votes
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour Gérard, le Forum,
Bonne journée à toutes et à tous,

J'ai un souci avec la listbox :
Option explicit me fait beuger ce code :
VB: 
Range("b1:b64").Select
For Each cellule In Selection
If cellule.Value = "" Then cellule.EntireRow.Hidden = True
Next cellule

et si je ne le mets pas, la listbox ne fonctionne plus.
Auriez-vous la solution ?
Avec mes remerciements,
lionel,
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Gérard,
Pour intégrer une listbox dans mon fichier de travail, après avoir créer la listbox, je copie ton code dans la feuille concerné, au bon endroit, et ça ne fonctionne pas ... j'ai du zapper un truc mais je ne vois pas quoi :mad:
Voici le code complet de ma feuille :
VB: 
Private Sub Worksheet_Activate()
DebloqueFeuilles
Sheets("CbBox").Visible = False
'Sheets("ClientsCoordonnées").Visible = True

Application.MoveAfterReturn = True
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
Application.DisplayCommentIndicator = xlCommentIndicatorOnly

Range("L18").Select
Rows("1:13").RowHeight = 0
Rows("15:19").RowHeight = 14
Rows("20:65").RowHeight = 12
    [B19].Select
    ' mise à jour RdVs
    If [m14] <> 1 Then
    [E19] = "=IF(RC[-2]<>"""",ClientsCoordonnées!R[-15]C[-3],0)"
    [F19] = "=IF(RC[-1]="""","""",IF(ClientsCoordonnées!R[-15]C[-2]<>"""",ClientsCoordonnées!R[-15]C[14],""""))"
    [g19] = "=ClientsCoordonnées!R[-15]C[3]"
    [H19] = "=ClientsCoordonnées!R[-15]C[10]"
    [M19] = "=IF(RC[-8]=0,0,IF(RC[2]=""stop"",0,LOOKUP(RC[-8],RDVap)*4.35))"
    [e19:m19].Copy
    [e20:m64].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    [e19:m64].Select
    Selection.Copy
    Range("e19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    [O19] = "=IF(RC[-10]<>0,LOOKUP(RC[-10],Stop),0)"
    [O19].Copy
    [o20:o64].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    [o19:o64].Select
    Selection.Copy
    Range("o19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    [u19] = "=IF(RC5="""",0,SUMPRODUCT((MONTH(RendezVous!R4C12:R20000C12)&YEAR(RendezVous!R4C12:R20000C12)=MONTH(R17C)&YEAR(R17C))*((RendezVous!R4C6:R20000C6)=RC5)))"
    [u19].Copy
    Range("u20:u64").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("u19:u64").Select
    Selection.Copy
    Range("u19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    [V19] = "=IF(RC[-9]<>0,RC[-1]/RC[-9],0)"
    [W19] = "=IF(RC[-10]=0,0,RC[-10]-RC[-2])"
    [v19:w19].Copy
    Range("v20:w64").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("v19:w64").Select
    Selection.Copy
    Range("v19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If

    ' mise à jour modif Appels - Rappels - Prépa Mandat
    [X19] = "=IF(RC[-16]<>RC[-17],RC[-16],"""")"
    [X19].Copy
    [x20:x64].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    [x19:x64].Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    [y19] = "=IF(AND(RC[-11]<>RC[-10],RC[-10]=""OK""),""Prospection"",IF(AND(RC[-11]<>RC[-10],RC[-10]=""rappel""),""Rappels"",IF(AND(RC[-11]<>RC[-10],RC[-10]=""stop""),""NON"",IF(AND(RC[-11]<>RC[-10],RC[-10]=""attente""),""NON"",""""))))"
    [y19].Copy
    [y20:y64].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    [y19:y64].Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    
    'mise à jour mensuelle
    If [m14] = 1 Then
    [p19] = "=IF(RC5="""",0,SUMPRODUCT((MONTH(RendezVous!R4C12:R20000C12)&YEAR(RendezVous!R4C12:R20000C12)=MONTH(R17C)&YEAR(R17C))*((RendezVous!R4C6:R20000C6)=RC5)))"
    [p19].Copy
    [p19:u64].Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("p19:u64").Select
    Selection.Copy
    Range("p19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
    
    ActiveSheet.Unprotect Password:="Krameri"
    Range(Cells(1, 33), Cells(1, 1)).Select
    ActiveWindow.Zoom = True
    
        Range("b1:b64").Select
        For Each cellule In Selection
        If cellule.Value = "" Then cellule.EntireRow.Hidden = True
        Next cellule
    
    If [x14] <> 46 Then
    ActiveSheet.Shapes("Afaire_effCom").Visible = True
    ActiveSheet.Shapes("AFaire_speedy").Visible = False
    Else
    ActiveSheet.Shapes("Afaire_effCom").Visible = False
    ActiveSheet.Shapes("AFaire_speedy").Visible = True
    End If
    Rows("65:65").RowHeight = 1
    Range("e14").Select
    
    'Sheets("ClientsCoordonnées").Visible = False
    BloqueFeuilles
    
Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.LargeScroll Down:=-1
End Sub

Private Sub Worksheet_SelectionChange(ByVal r As Range)
ListBox1.Visible = False
If Not Intersect(ActiveCell, [ab19:ab64]) Is Nothing Then afficher "p72:p75"
If Not Intersect(ActiveCell, [ac19:ac64]) Is Nothing Then afficher "p79:p82"
If Not Intersect(ActiveCell, [ad19:ad64]) Is Nothing Then afficher "v72:v76"
If Not Intersect(ActiveCell, [ae19:ae64]) Is Nothing Then afficher "v78:v82"

If Not Intersect(r, Range("f19:f64")) Is Nothing Then
Application.EnableEvents = False
ActiveCell.Offset(0, 1).Resize(1, 27).Select
Application.EnableEvents = True
End If
End Sub

ça beug là :
compilation.jpg

Je n'arrive pas à trouver ce qu'il faut modifier :mad:
Voudrais-tu encore m'aider ?
Merci Gérard :)
lionel,
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour Gérard, le Forum,
Bonne journée à toutes et à tous,

La listbox fonctionne super bien mais je viens de voir un souci :
Quand j'ouvre mon classeur la valeur de la dernière listbox "affectée" est copiée dans la cellule active de ma feuille ... Est-il possible de "vider" la listbox ?

J'ai fait des recherches mais rien ne semble fonctionner ...
- propriété listbox.items.clear(),
- ListBox1.RowSource = ""
- List1.RemoveItem 0
- ListBox1.Value = "" etc...

Je n'arrive pas à trouver la solution :mad:
Je continue à chercher ...
L'auriez-vous ?
Avec mes remerciements,
lionel,
 
Dernière édition:
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour Lionel,

Oui c'est exact, alors vide la propriété ListFillRange et utilise le code :
VB: 
Sub Afficher(adresse$)
With ListBox1
    .List = Range(adresse).Resize(, 2).Value 'au moins 2 éléments
A+
 

Pièces jointes

  • infos_com(2).xlsm
    46.9 KB · Affichages: 5
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bon le fichier précédent ne va pas, utilise ce fichier (3).

.ListFillRange va bien mais il faut l'effacer dans la Worksheet_SelectionChange :
VB: 
ListBox1.ListFillRange = ""
 

Pièces jointes

  • infos_com(3).xlsm
    24.3 KB · Affichages: 7
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour Gérard,
Je n'avais pas eu le temps de bien tester la dernière version du code.
A l'utilisation, j'ai un soucis :
Dans la ListBox, ne s'affichent que les commentaires qui sont déjà présents dans les cellules AD9:AG16 et s'il n'y a rien, la ListBox est en blanc.
Est-ce qu'il y a une solution ?
Peux-tu encore m'aider ?
Je joins le fichier test
lionel :)
 

Pièces jointes

  • listbox_Gerard3.xlsm
    25.6 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

Usine à gaz
  • Résolu(e)
Microsoft 365 ComboBox : est-il possible de masquer l'entête ?
Réponses
6
Affichages
503
patricktoulon
patricktoulon
Usine à gaz
  • Résolu(e)
Microsoft 365 ComboBox : Est-il possible d'agrandir l'affichage ?
Réponses
14
Affichages
993
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
XL 2019 intégrer des caractères spéciaux dans une FORMULE
Réponses
3
Affichages
818
Usine à gaz
Usine à gaz
S
  • Question
Microsoft 365 Combobox Active X : impossible de visualiser le texte que l'on écrit dans la partie texte quand l'échelle de l'écran est à 125% dans windows
Réponses
4
Affichages
340
sansanruru
S
Usine à gaz
  • Résolu(e)
Microsoft 365 ComboBox ne pas sortir si clic hors sélection dans la list
3 4 5
Réponses
74
Affichages
5 K
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
Microsoft 365 Erreur de compilation : Déclaration existante dans la portée en cours
Réponses
9
Affichages
447
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
Microsoft 365 filtre : masquer les indicateurs de filtre sans perdre le filtrage
6 7 8
Réponses
105
Affichages
7 K
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
Microsoft 365 InputBox est-il possible de masquer la barre de titre ?
2 3 4
Réponses
48
Affichages
4 K
soan
S
Usine à gaz
  • Question
Microsoft 365 UserForm souci d'affichage
2
Réponses
23
Affichages
1 K
patricktoulon
patricktoulon
Usine à gaz
  • Question
Microsoft 365 UserForm heures et minutes afficher à droite de ma cellule
Réponses
8
Affichages
596
patricktoulon
patricktoulon

Membres actuellement en ligne

14 membres et 122 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 216
Messages
2 086 351
Membres
103 195
dernier inscrit
martel.jg