Impossible de vider les combobox

Le 27/01/2021 à 18:03

Bonjour,

je reviens vers vous car vous m'avez déjà bien aidé.

je ne peux pas joindre le fichier

mais dans ma feuille formulaire j'ai 6 combobox et 1 textbox qui devraient être vides lors de la sélection car le résultat est copié dans une autre feuille, mais rien à faire il ne veut pas du combox.clear, etc...(mais il vide les cellules.)

je vous mets le code que j'ai écrit et qui est sûrement plein d'erreurs, mais je débute... Merci d'avance pour votre aide

Sub MacroNouvelAppel() '  ' MacroNouvelAppel Macro ' ' Range("F12").Select Selection.Copy Sheets("Liste_Appels").Select ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("I12").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("C2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("C20").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("E2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("F20").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("F2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("C23").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("H2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("F23").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("G2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("C26").Select Application.CutCopyMode = False Selection.Copy Range("F26").Select Sheets("Liste_Appels").Select Range("I2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("F26").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("J2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Range("F29").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("L2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select ActiveWindow.SmallScroll Down:=6 Range("C35").Select Application.CutCopyMode = False Selection.Copy Sheets("Liste_Appels").Select Range("N2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Formulaire").Select Sheets("Liste_Appels").Range("B2").Value = Sheets("Formulaire").ComboBox1.Value Sheets("Liste_Appels").Range("K2").Value = Sheets("Formulaire").ComboBox2.Value Sheets("Formulaire").Select Sheets("Liste_Appels").Range("M2").Value = Sheets("Formulaire").ComboBox3.Value Sheets("Formulaire").Select Sheets("Liste_Appels").Range("P2").Value = Sheets("Formulaire").ComboBox4.Value Sheets("Formulaire").Select Sheets("Liste_Appels").Range("O2").Value = Sheets("Formulaire").ComboBox5.Value Sheets("Formulaire").Select Sheets("Liste_Appels").Range("D2").Value = Sheets("Formulaire").ComboBox6.Value Sheets("Liste_Appels").Range("Q2").Value = Sheets("Formulaire").TextBox1.Value Sheets("Formulaire").Select ActiveWindow.SmallScroll Down:=-6 Range("F12,I12,C20,F20,C23,F23,C26,F26,F29,C35").Select Range("C35").Activate ActiveWindow.SmallScroll Down:=9 Application.CutCopyMode = False Selection.ClearContents ActiveWindow.SmallScroll Down:=-9 Range("C20").Select End Sub

Le 27/01/2021 à 18:36

Bonjour,

Si vous tenez à avoir une réponse, essayez de présenter le code autrement qu'en vrac.

Si vous ne pouvez joindre votre fichier parce qu'il contient des données personnelles, vous pouvez l'anonymiser...

A+

Le 27/01/2021 à 18:41

Bonjour toutes et tous,

j'ai pleuré 

Option Explicit

Sub MacroNouvelAppel() '  ' MacroNouvelAppel Macro ' '
Range("F12").Select Selection.Copy
Sheets("Liste_Appels").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select Range("I12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste_Appels").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy Sheets("Liste_Appels").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("F20").Select Application.CutCopyMode = False
Selection.Copy
Sheets("Liste_Appels").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste_Appels").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("F23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste_Appels").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("C26").Select
Application.CutCopyMode = False
Selection.Copy
Range("F26").Select
Sheets("Liste_Appels").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("F26").Select
Application.CutCopyMode = False
Selection.Copy Sheets("Liste_Appels").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("F29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste_Appels").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
ActiveWindow.SmallScroll Down:=6
Range("C35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste_Appels").Select
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Sheets("Liste_Appels").Range("B2").Value = Sheets("Formulaire").ComboBox1.Value
Sheets("Liste_Appels").Range("K2").Value = Sheets("Formulaire").ComboBox2.Value
Sheets("Formulaire").Select
Sheets("Liste_Appels").Range("M2").Value = Sheets("Formulaire").ComboBox3.Value
Sheets("Formulaire").Select
Sheets("Liste_Appels").Range("P2").Value = Sheets("Formulaire").ComboBox4.Value
Sheets("Formulaire").Select
Sheets("Liste_Appels").Range("O2").Value = Sheets("Formulaire").ComboBox5.Value
Sheets("Formulaire").Select
Sheets("Liste_Appels").Range("D2").Value = Sheets("Formulaire").ComboBox6.Value
Sheets("Liste_Appels").Range("Q2").Value = Sheets("Formulaire").TextBox1.Value
Sheets("Formulaire").Select
ActiveWindow.SmallScroll Down:=-6
Range("F12,I12,C20,F20,C23,F23,C26,F26,F29,C35").Select
Range("C35").Activate
ActiveWindow.SmallScroll Down:=9
Application.CutCopyMode = False
 Selection.ClearContents
ActiveWindow.SmallScroll Down:=-9
Range("C20").Select
End Sub
Le 27/01/2021 à 19:06

merci Andre13 !

Si les combobox sont "alimentées" directement par la définition d'une plage dans leurs propriétés, le clear provoque une erreur.

S'il s'agit uniquement de vider l'affichage des combobox (sans supprimer les éléments de choix), on peut utiliser :

ComboBox1.ListIndex = -1 ' pour la combobox1

sinon, a priori il faudra alimenter les combo par AddItem....

A+

Le 27/01/2021 à 20:35

Merci beaucoup Andre13 !

AlgoPlus, je ne savais pas sur quoi cliquer pour mettre les codes d'où illisibilté..

d'autre part maintenant il ne me copie plus que la valeur de la combobox1, les autres combo, il s'en fout...

qu'est-ce que j'ai fait comme erreur(s) ?

et pour réponse sur la combo, c'est juste vider l'affichage.

merci encore !

Voici ce que j'ai au niveau combobox :

Private Sub ComboBox1_Change()

Sheets("Formulaire").Select

     Sheets("Liste_Appels").Range("B2").Value = Sheets("Formulaire").ComboBox1.Value

End Sub

Private Sub ComboBox2_Change()
Sheets("Formulaire").Select
    Sheets("Liste_Appels").Range("K2").Value = Sheets("Formulaire").ComboBox2.Value
End Sub

Private Sub ComboBox3_Change()
Sheets("Formulaire").Select
    Sheets("Liste_Appels").Range("M2").Value = Sheets("Formulaire").ComboBox3.Value
End Sub

Private Sub ComboBox4_Change()
Sheets("Formulaire").Select
    Sheets("Liste_Appels").Range("Q2").Value = Sheets("Formulaire").ComboBox4.Value
End Sub

Private Sub ComboBox5_Change()
Sheets("Formulaire").Select
    Sheets("Liste_Appels").Range("P2").Value = Sheets("Formulaire").ComboBox5.Value
End Sub

Private Sub ComboBox6_Change()
Sheets("Formulaire").Select
    Sheets("Liste_Appels").Range("D2").Value = Sheets("Formulaire").ComboBox6.Value
End Sub

Private Sub Textbox1_Change()
Sheets("Formulaire").Select
    Sheets("Liste_Appels").Range("G2").Value = Sheets("Formulaire").TextBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$I$12" Then Exit Sub
  Target.Value = "A-" & Format(Now, "ddmmyyyy") & "-" & Format(Range("j1").Value, "00")
  Range("j1").Value = Range("j1").Value + 1
End Sub
Le 27/01/2021 à 22:48

... maintenant il ne me copie plus que la valeur de la combobox1, ....

à partir de quel code ? le premier fourni ou le suivant ....?

sans savoir exactement suite à quoi ça ne fonctionne pas et sans classeur pour tester impossible (pour moi) de poursuivre ....

Bonne suite

Le 27/01/2021 à 23:20

si possible, à partir du 1er code fourni.

merci d'avance pour votre aide !

Rechercher des sujets similaires à "impossible vider combobox"