Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème lors d'un ajout multiple de produits dans un tableau, supprime la dernière ligne (VBA + excel)

R

remy3434

XLDnaute Nouveau
Bonjour à tous,

Je viens vers vous aujourd'hui car je rencontre une difficulté sur le code,

j'ai un formulaire avec lequel je peux rentrer la commande de mon client et les différents produits associés (souvent des formules composées de plusieurs produits)

Mon problème est que quand je valide ce formulaire, mes données se rentrent automatiquement dans un tableau. Jusqu'ici tout fonctionne (merci Thierry)

Cependant lorsque j'ajoute une nouvelle commande, au lieu d'appliquer un Endxlup+1, le programme inscrit la première donnée de cette nouvelle commande sur la dernière ligne de la précédente au lieu de se mettre dans la cellule du dessous (en +1) J'ai essayé pas mal de combine mais je sèche.

Je vous mets en lien mon code + Screenshots pour mon explication

VB: 
'========================= GESTION COMMANDE ============================
L = WsCmd.Range("F1000").End(xlUp).Row
H = L

With Me.List_Pieces
    For i = 0 To .ListCount - 1
       For j = 0 To 5
          WsCmd.Cells(L, j + 7) = Me.List_Pieces.List(i, j)
       Next j
    L = L + 1
    Next i
End With

For i = H To L - 1
    For Each CTRL In Me.Controls
        If IsNumeric(CTRL.Tag) = True Then
            If CTRL.Tag <> "2" Then
                WsCmd.Cells(i, CInt(CTRL.Tag)) = CTRL
            Else
                WsCmd.Cells(i, 2) = CDate(Me.txt_date) 'Sinon on a une date en Texte dans la feuille !
            End If
        End If
    Next CTRL
Next i



En espérant avoir été assez clair, je reste à votre disposition pour plus d'infos,

Merci!
Rémy
 
Dernière édition:
Trier par date Trier par votes
S

soan

XLDnaute Barbatruc
Inactif
Bonjour remy3434,

Je viens vers toi aujourd'hui car je rencontre une difficulté sur l'absence de code dans ton post :



Je crois que tu devrais joindre ton fichier .xlsm (avec ton code VBA).

soan
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Je crois que ceci devrait aller :
VB: 
Sub Essai()

  '========================= GESTION COMMANDE ============================
  L = WsCmd.Cells(Rows.Count, 6).End(xlUp).Row + 1: H = L
 
  With Me.List_Pieces
    For i = 0 To .ListCount - 1
      For j = 0 To 5
         WsCmd.Cells(L, j + 7) = Me.List_Pieces.List(i, j)
      Next j
      L = L + 1
    Next i
  End With
 
  For i = H To L - 1
    For Each CTRL In Me.Controls
      If IsNumeric(CTRL.Tag) = True Then
        If CTRL.Tag <> "2" Then
          WsCmd.Cells(i, CInt(CTRL.Tag)) = CTRL
        Else
          WsCmd.Cells(i, 2) = CDate(Me.txt_date) 'Sinon on a une date en Texte dans la feuille !
        End If
      End If
    Next CTRL
  Next i
 
End Sub
soan
 
Vote positif 0 Vote négatif
R

remy3434

XLDnaute Nouveau
Merci pour ton retour,

J'ai bien tous mes articles qui s'affichent sans se bouffer entre eux on avance, cependant, maintenant, dès la première commande, on est hors tableau. voici le screen.

Désolé de pas fournir mon fichier mais j'ai des infos que je ne peux pas divulguer dessus. Habituellement je transforme en format forum mais la il est bien trop lourd et je risque de dérégler des choses.

 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Merci pour tes infos ; finalement, comme tu utilises un tableau structuré, j'utilise une autre méthode,
qui n'a pas besoin du n° de la ligne d'en-têtes ; code VBA correspondant :
VB: 
Sub Essai()

  '========================= GESTION COMMANDE ============================
  L = WsCmd.Cells(Rows.Count, 6).End(xlUp).Row
  Do While IsEmpty(WsCmd.Cells(L, 6)): L = L - 1: Loop
  L = L + 1: H = L

  With Me.List_Pieces
    For i = 0 To .ListCount - 1
      For j = 0 To 5
         WsCmd.Cells(L, j + 7) = Me.List_Pieces.List(i, j)
      Next j
      L = L + 1
    Next i
  End With

  For i = H To L - 1
    For Each CTRL In Me.Controls
      If IsNumeric(CTRL.Tag) = True Then
        If CTRL.Tag <> "2" Then
          WsCmd.Cells(i, CInt(CTRL.Tag)) = CTRL
        Else
          WsCmd.Cells(i, 2) = CDate(Me.txt_date) 'Sinon on a une date en Texte dans la feuille !
        End If
      End If
    Next CTRL
  Next i

End Sub
soan
 
Vote positif 0 Vote négatif
R

remy3434

XLDnaute Nouveau
Cela m'a l'air de fonctionner à merveille!! je te remercie,

Vulgairement, (je suis amateur encore mais curieux) pourrais tu m'expliquer ta méthode pour arriver à ce résultat ou du moins ce que tu as demandé au code?

Merci encore !
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonsoir remy3434,

Tu as écrit : « pourrais-tu m'expliquer ta méthode pour arriver à ce résultat ? »

Voici les explications :

L = WsCmd.Cells(Rows.Count, 6).End(xlUp).Row
L devrait être le n° ligne de la 1ère cellule non vide de la colonne F, mais comme il y a un Tableau structuré, L est le n° ligne de la dernière ligne du Tableau, colonne F, même si la cellule est vide.

Do While IsEmpty(WsCmd.Cells(L, 6)): L = L - 1: Loop
Boucle en colonne F : tant que la cellule est vide, L = L - 1, donc on teste la cellule au-dessus ; on sort donc de la boucle si ça trouve une cellule non vide : c'est soit le n° ligne de la dernière donnée du Tableau, soit, s'il n'y a aucune donnée, 4 : le n° ligne de l'en-tête en F4 : « Etat de la commande ».

L = L + 1
Une ligne sous le dernier L trouvé ; c'est donc le n° ligne de la cellule vide située sous la dernière donnée du Tableau, ou 5 : le n° de la cellule vide F5 située sous l'en-tête de colonne.

Le reste (H = L et la suite), tu l'avais déjà fais toi-même correctement.

soan
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur
Réponses
3
Affichages
210
cathodique
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
329
pangasoul
P
M
  • Question
XL 2010 Remise et ajout de quantité
Réponses
10
Affichages
681
Dranreb
F
  • Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
302
Oneida
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
300
NONO14
N
S
  • Question
XL 2016 Problème dans la création d'une liste
Réponses
2
Affichages
327
Stéphane_1
S
M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
733
Mody200
M
  • Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
623
TooFatBoy
G
  • Question
Microsoft 365 Export données
Réponses
4
Affichages
453
GClaire
G
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
118
Claudinedu13
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…