XL 2013 collage valeur avec bouton validation est trop lente

C

candido57

XLDnaute Occasionnel
Bonjour,
J'ai un fichier avec un userform et en cliquant sur "VALIDER", j'ai les informations du userform qui se collent sur les lignes au fur et à mesure. Le fichier fonctionne très bien, mais lorsque j'appuis sur VALIDER, les informations se collent très lentement.
Que peut on faire pour accélérer le collage valeur?

Et sur le même fichier, dans userform, j'ai une liste déroulante avec des articles et je voudrais savoir s'il est possible de faire des multi choix en sélectionnant les articles par exemple 3 articles et en appuyant sur VALIDER, les 3 produites se collent dans mon fichier ( Un en dessous de l'autre).
Est ce possible?

Merci d'avance pour votre aide
 

Pièces jointes

  • Produit complémentaire TEST.xls
    644 KB · Affichages: 7
Trier par date Trier par votes
C

candido57

XLDnaute Occasionnel
vgendron à dit:
réfléchi un peu quand même....
regarde cette ligne et adapte la
Sheets("Articles").Range("O2") = Me.ComboBox_Carte 'on inscrit le numéro de carte en O2
Cliquez pour agrandir...
J'ai mis ce code , lorsque je sélectionne l'article, il se colle en S1
Sheets("Articles").Range("S1") = ListBox1.Selected
mais j'ai une erreur. Par contre je l'ai mis à la fin Private Sub ComboBox_Carte_Change() car je veux qu'il colle le résultat dès que je saisi le n° de carte
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
candido57 à dit:
Je n'y arrive pas
Cliquez pour agrandir...
t'as pas du beaucoup chercher ... la boucle est dans le code du bouton "valider"
VB: 
Private Sub Cbn_Valider_Click() 'au clic sur le bouton Valider
Application.ScreenUpdating = False 'désactive le refresh
Application.Calculation = xlCalculationManual 'désactive le calcul auto
    For i = 0 To Me.ListBox1.ListCount - 1 'pour chaque élément de la listbox
        If Me.ListBox1.Selected(i) Then 'si l'élément est selectionné
            ItemsSélectionnés = ItemsSélectionnés & Chr(10) & Me.ListBox1.List(i) 'on ajoute l'élément à la variable "ItemsSélectionnés"
            'MsgBox Me.ListBox1.List(i)
            With Sheets("Base").ListObjects("t_Base") 'avec la table "t_Base" de la feuille "Base"
                .ListRows.Add 'on ajoute une ligne dans la table
                derligne = .ListRows.Count 'dernière ligne de la table = celle qu'on vient d'ajouté
                
                .DataBodyRange(derligne, 1).Value = CDbl(Me.TextBox_N°) 'N° dans la colonne 1
                .DataBodyRange(derligne, 2).Value = Me.TextBox_DateDuJ 'Date dans la colonne 2
                .DataBodyRange(derligne, 3).Value = Me.ComboBox_Carte.Value 'N° de carte
                .DataBodyRange(derligne, 4).Value = Me.TextBox11.Value 'Nb de points
                .DataBodyRange(derligne, 5).Value = Me.TextBox10.Value 'Nom
                .DataBodyRange(derligne, 6).Value = Me.TextBox4.Value 'prénom
                .DataBodyRange(derligne, 7).Value = Me.ComboBox_Semaine 'N° Semaine
                .DataBodyRange(derligne, 8).Value = Me.ListBox1.List(i) 'Désignation
                .DataBodyRange(derligne, 9).Value = Me.TextBox7.Value 'Quantité prise
                .DataBodyRange(derligne, 10).Value = Me.TextBox8.Value 'Commentaires
            End With
            Sheets("Articles").Range("O2") = Me.ComboBox_Carte 'on inscrit le numéro de carte dans la feuille Articles en O2
            Sheets("Articles").Range("S2") = ItemsSélectionnés 'on inscrit les ItemsSélectionnés dans la feuille Articles en S2
        End If
    Next i
    
    'Raz USF ==> on déselectionne les combo et on vide les textbox
    Me.ComboBox_Carte.ListIndex = -1
    Me.TextBox11.Value = ""
    Me.ComboBox_Semaine.ListIndex = -1
    Me.TextBox7.Value = ""
    Me.TextBox10.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox12.Value = ""
    Me.TextBox13.Value = ""
    For i = 0 To Me.ListBox1.ListCount - 1 'on déselectionne tous les éléments de la listbox
        Me.ListBox1.Selected(i) = False
    Next i
    
    Me.TextBox_N° = Me.TextBox_N° + 1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
C

candido57

XLDnaute Occasionnel
vgendron à dit:
t'as pas du beaucoup chercher ... la boucle est dans le code du bouton "valider"
VB: 
Private Sub Cbn_Valider_Click() 'au clic sur le bouton Valider
Application.ScreenUpdating = False 'désactive le refresh
Application.Calculation = xlCalculationManual 'désactive le calcul auto
    For i = 0 To Me.ListBox1.ListCount - 1 'pour chaque élément de la listbox
        If Me.ListBox1.Selected(i) Then 'si l'élément est selectionné
            ItemsSélectionnés = ItemsSélectionnés & Chr(10) & Me.ListBox1.List(i) 'on ajoute l'élément à la variable "ItemsSélectionnés"
            'MsgBox Me.ListBox1.List(i)
            With Sheets("Base").ListObjects("t_Base") 'avec la table "t_Base" de la feuille "Base"
                .ListRows.Add 'on ajoute une ligne dans la table
                derligne = .ListRows.Count 'dernière ligne de la table = celle qu'on vient d'ajouté
               
                .DataBodyRange(derligne, 1).Value = CDbl(Me.TextBox_N°) 'N° dans la colonne 1
                .DataBodyRange(derligne, 2).Value = Me.TextBox_DateDuJ 'Date dans la colonne 2
                .DataBodyRange(derligne, 3).Value = Me.ComboBox_Carte.Value 'N° de carte
                .DataBodyRange(derligne, 4).Value = Me.TextBox11.Value 'Nb de points
                .DataBodyRange(derligne, 5).Value = Me.TextBox10.Value 'Nom
                .DataBodyRange(derligne, 6).Value = Me.TextBox4.Value 'prénom
                .DataBodyRange(derligne, 7).Value = Me.ComboBox_Semaine 'N° Semaine
                .DataBodyRange(derligne, 8).Value = Me.ListBox1.List(i) 'Désignation
                .DataBodyRange(derligne, 9).Value = Me.TextBox7.Value 'Quantité prise
                .DataBodyRange(derligne, 10).Value = Me.TextBox8.Value 'Commentaires
            End With
            Sheets("Articles").Range("O2") = Me.ComboBox_Carte 'on inscrit le numéro de carte dans la feuille Articles en O2
            Sheets("Articles").Range("S2") = ItemsSélectionnés 'on inscrit les ItemsSélectionnés dans la feuille Articles en S2
        End If
    Next i
   
    'Raz USF ==> on déselectionne les combo et on vide les textbox
    Me.ComboBox_Carte.ListIndex = -1
    Me.TextBox11.Value = ""
    Me.ComboBox_Semaine.ListIndex = -1
    Me.TextBox7.Value = ""
    Me.TextBox10.Value = ""
    Me.TextBox4.Value = ""
    Me.TextBox12.Value = ""
    Me.TextBox13.Value = ""
    For i = 0 To Me.ListBox1.ListCount - 1 'on déselectionne tous les éléments de la listbox
        Me.ListBox1.Selected(i) = False
    Next i
   
    Me.TextBox_N° = Me.TextBox_N° + 1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
Lorsque je sélectionne l'article dans la listbox1 , rien ne se passe, mais cette fonction doit se faire avant d'appuyer sur le bouton valider, mais seulement en le sélectionnant
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
candido57 à dit:
Lorsque je sélectionne l'article dans la listbox1 , rien ne se passe, mais cette fonction doit se faire avant d'appuyer sur le bouton valider, mais seulement en le sélectionnant
Cliquez pour agrandir...
evidemment.. il n'y a rien de codé sur l'évènement _click de la listbox..
faudrait quand meme etre plus précis et clair sur ton besoin.. et essayer de comprendre le code que tu as déjà
 
Vote positif 0 Vote négatif
C

candido57

XLDnaute Occasionnel
vgendron à dit:
evidemment.. il n'y a rien de codé sur l'évènement _click de la listbox..
faudrait quand meme etre plus précis et clair sur ton besoin.. et essayer de comprendre le code que tu as déjà
Cliquez pour agrandir...
Avec ce code, il faut que je clique sur valider pour que ça fonctionne ? Ce que je ne veux pas.
Ce que je souhaite, c'est lorsque je sélectionne un article dans la listbox, ce dernier se colle dans la feuille articles en S1. J'essaie comme de comprendre , mais je suis très très débutant
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Avec ce code, il faut que je clique sur valider pour que ça fonctionne ?
Cliquez pour agrandir...
bah oui.. puisque c'est dans le code du bouton "valider _click"

Ce que je ne veux pas.
Cliquez pour agrandir...
à quel moment as tu décrit un besoin différent??

Ce que je souhaite, c'est lorsque je sélectionne un article dans la listbox, ce dernier se colle dans la feuille articles en S1.
Cliquez pour agrandir...
pourquoi S1 ??? ca ne correspond à rien dans la feuille...
si tu travailles sur un autre fichier, il serait bon de mettre le bon fichier
et quand tu sélectionnes plusieurs articles, on fait quoi???? puisque tu as demandé à avoir une listbox avec multiselection..
 
Vote positif 0 Vote négatif
C

candido57

XLDnaute Occasionnel
vgendron à dit:
bah oui.. puisque c'est dans le code du bouton "valider _click"


à quel moment as tu décrit un besoin différent??


pourquoi S1 ??? ca ne correspond à rien dans la feuille...
si tu travailles sur un autre fichier, il serait bon de mettre le bon fichier
et quand tu sélectionnes plusieurs articles, on fait quoi???? puisque tu as demandé à avoir une listbox avec multiselection..
Cliquez pour agrandir...
oui j'ai rajouter des colonnes, je vais mettre mon fichier
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
TooFatBoy à dit:
Bonjour,



Ce n'est pas "Articles" mais "ARTICLES ". C'est peut-être ça le pb ??? 🤔
Cliquez pour agrandir...
Hello @TooFatBoy
je viens de retomber sur ton post auquel j'avais répondu que la syntaxe n'était sans doute pas en cause..
Je n'avais même pas vu l'espace en plus dans la version rouge... (syntaxe différente qui provoque bien un bug)
j''étais resté sur Minuscules vs Majuscule.. (Casse différente qui n'a pas d'importance)

Désolé;)
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
290
gillesda
G
richardlion
  • Question
XL 2016 formule avec bouton
2
Réponses
19
Affichages
868
richardlion
richardlion
A
  • Question
XL 2013 Aide dans une formule IndexEquiv/Recherche V
Réponses
7
Affichages
476
danielco
D
Simbaa
  • Résolu(e)
Microsoft 365 Userform - Transfert de données
Réponses
6
Affichages
463
Simbaa
Simbaa
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
175
CS49
C
L
  • Question
XL 2016 Figer une valeur quand la date est dépassé
Réponses
7
Affichages
338
Nairolf
N
Z
  • Résolu(e)
Microsoft 365 (résolu) Position d'une valeur max dans un tableau avec ex-aequo
2
Réponses
15
Affichages
453
crocrocro
C
L
  • Question
XL 2016 [RESOLU] VBA Chronomètre avec temps intermédiaires déclenchés avec des clics sur un seul bouton
Réponses
2
Affichages
360
LOLO13130
L
E
  • Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
246
TooFatBoy
TooFatBoy
L
  • Question
XL 2019 aligner textbox userform et valeur de cellule
Réponses
1
Affichages
310
fanfan38
fanfan38

Membres actuellement en ligne

14 membres et 171 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
314 629
Messages
2 111 345
Membres
111 109
dernier inscrit
djameldel