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

richardlion
  • Question
XL 2016 formule avec bouton
2
Réponses
19
Affichages
423
richardlion
richardlion
A
  • Question
XL 2013 Aide dans une formule IndexEquiv/Recherche V
Réponses
7
Affichages
281
danielco
D
Simbaa
  • Résolu(e)
Microsoft 365 Userform - Transfert de données
Réponses
6
Affichages
271
Simbaa
Simbaa
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
193
LOLO13130
L
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
315
Laliepomm
L
M
  • Question
Microsoft 365 Recherche multicritères et résultat sous forme de croix (si possible via formule SI et ET)
Réponses
4
Affichages
243
danielco
D
R
  • Résolu(e)
XL 2019 Recherche valeur (Critère date et ID) et copier valeur dans tableau dans la cellule correspondante
3 4 5
Réponses
66
Affichages
2 K
Rabeto
R
Simbaa
  • Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
360
job75
job75
13Hubert
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
514
13Hubert
13Hubert
C
  • Question
XL 2013 Garder mon userform ouvert pour continuer à saisir les données
Réponses
6
Affichages
315
Oneida
Oneida

Membres actuellement en ligne

10 membres et 74 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 215
Messages
2 086 326
Membres
103 180
dernier inscrit
Vcr