ClearContents ou Userform.show ???

[Claudy]

Bonsoir,
dans mon fichier: http://cjoint.com/?ldr1wPozPj
j'ai cette procédure:

Sub test()
Range("E2:F21").ClearContents
UserForm1.Show
End Sub

C'est l'une ou l'autre action qui fonctionne et non l'une à la suite de l'autre!
Avez vous aussi ce bug?
Pouvez vous m'expliquer?
merci d'avance.
Claudy

 

[Pierrot93]

Re : ClearContents ou Userform.show ???

Bonjour Claudy

chez moi ce code placé dans un module standard fonctionne bien...

@+

 

[Pierrot93]

Re : ClearContents ou Userform.show ???

Re

je viens de regarder ton classeur, pour moi le problème viendrait du recalcul, tu as une fonction qui est lancé lors du "clearcontents", modifies ton code commme ceci :

Sub test()
Application.Calculation = xlCalculationManual
Range("E2:F21").ClearContents
UserForm1.Show
Application.Calculation = xlCalculationAutomatic
End Sub

bonne soirée
@+

 

[Claudy]

Re : ClearContents ou Userform.show ???

Bonsoir....
Si je fais
Sub test()
Range("E2:F21").ClearContents
'UserForm1.Show
End Sub
OK...
Si je fais
Sub test()
'Range("E2:F21").ClearContents
UserForm1.Show
End Sub
Ok...
mais les deux instructions de suite, il n'y a que le ClearContents qui fonctionne sans m'afficher mon USF
Merci
a+

 

[Pierrot93]

Re : ClearContents ou Userform.show ???

Re Claudy

regarde mon post de 18h19...

 

[Claudy]

Re : ClearContents ou Userform.show ???

Ok et merci...
mais je ne comprends toujours pas le pourquoi !
a+

 

[Claudy]

Re : ClearContents ou Userform.show ???

Puisque j'y suis...j'y reste!
Dans mon USF, un list box "multiselect"
Comment y placer au dessus un "Label" qui me compterait le nombre de produits sélectionnés?
Et évidemment ne pas dépasser plus de 20 sélections dans ma listbox...
Gros merci
a+

 

[Pierrot93]

Re : ClearContents ou Userform.show ???

Re

regarde le code ci dessous :

Private Sub ListBox1_Change()
Dim i As Byte, z As Byte
If ListBox1.ListCount > 0 Then
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
             z = z + 1
             If z = 21 Then ListBox1.Selected(i) = False: z = z - 1:MsgBox "trop de selections"
        End If
    Next i
    Label1.Caption = z
End If
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = 0
ListBox1.MultiSelect = 1
End Sub

@+

 

[Claudy]

Re : ClearContents ou Userform.show ???

Super, merci
Bonne soirée...

 

[Pierrot93]

Re : ClearContents ou Userform.show ???

Bonjour Claudy

pour empêcher la selection du dernier "clicker", modifies comme suit, l'ordinateur était éteind quand j'ai tilté...

If z = 21 Then ListBox1.Selected(ListBox1.ListIndex) = False: z = z - 1:MsgBox "trop de selections"

bon dimanche.