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

Usine à gaz · 11 Août 2020

Bonsoir à toutes et à tous,

En voilà une comme je les aime lol

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é 😡
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,

Usine à gaz · 12 Août 2020

Ok Gérard,
Merci pour la réponse 🙂
lionel,

Usine à gaz · 13 Août 2020

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,

job75 · 13 Août 2020

Bonjour Lionel,

Usine à gaz à dit:
Option explicit me fait beuger ce code

Tu as certainement oublié de déclarer la variable cellule...

Et je ne vois pas pourquoi Option Explicit serait nécessaire avec la ListBox...

A+

Usine à gaz · 13 Août 2020

Merci Gérard pour la réponse 🙂
Mais dans le classeur du post#7 il y a bien dans le code Option explicit
lionel

Usine à gaz · 13 Août 2020

Re- gérard,
J'avais pas tenté ... je viens de l'enlever et ça fonctionne quand même 🙂

Usine à gaz · 13 Août 2020

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 😡
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à :

Je n'arrive pas à trouver ce qu'il faut modifier 😡
Voudrais-tu encore m'aider ?
Merci Gérard 🙂
lionel,

Usine à gaz · 13 Août 2020

Re-Gérard,
Si, c'est bon ... j'en avais oublié une partir lol .... allé il faut que je me repose 🙂
lionel,

Usine à gaz · 14 Août 2020

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 😡
Je continue à chercher ...
L'auriez-vous ?
Avec mes remerciements,
lionel,

job75 · 14 Août 2020

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+

Usine à gaz · 14 Août 2020

Bonjour Gérard,

Encore Merci ... je vois ça 🙂

Usine à gaz · 14 Août 2020

Re-Gérard 🙂
Evidemment, pour le fichier test ça fonctionne mais dans mon fichier de travail ... ça beug :
sur cecode ".List = Range(adresse).Resize(, 2).Value 'au moins 2 éléments"
je ne comprend pas pourquoi ?
lionel,

job75 · 14 Août 2020

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 = ""

Usine à gaz · 14 Août 2020

Re-Gérard,

Merci pour ce nouveau code qui fonctionne très bien 🙂
J'ai regardé le code et les modifs... 🙂
lionel,

Usine à gaz · 15 Août 2020

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 🙂

job75 · 15 Août 2020

Bonjour Lionel,

Usine à gaz à dit:
Peux-tu encore m'aider ?

Non car tu es tout à fait capable de mettre les bonnes adresses pour définir les 4 listes, ainsi que les bonnes hauteurs.

Effectuez une recherche sur Excel Downloads...

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Nous accordons de l'importance à votre vie privée