Microsoft 365 formule Excel pour dupliquer une ligne selon une valeur dans une cellule

soan à dit:

@Carlot

j'ai cliqué sur le bouton FICHIER RECEIPT BANK et ça m'demande de saisir le NOM de la SOCIETE ; j'mets quoi, moi ? société "CARLOT & Cie" ou "SARL DU RHUM DES ÎLES" ? ​

soan

Cliquez pour agrandir...

soan à dit:

@Carlot

j'ai saisi ABC, et maintenant ça m'demande de saisir le CODE JOURNAL ! J'ai mis HH ; c'est là qu'je choisis d'ouvrir ton fichier CSV "FICHIER TEST" ; et VLAN ! PLANTAGE : Erreur d'exécution 9 : L'indice n'appartient pas à la sélection ! ben heureusement qu'tu m'as prévenu dans ton post #14 qu'la macro fonctionne bien et qu'y'a juste un problème de temps d'exécution, lolllllll ! ​

c'est un bug dans ta sub RB() du Module7 ! c'est à la ligne 76, sur cette ligne de code VBA :

ActiveWorkbook.Worksheets("client").AutoFilter.Sort.SortFields.Clear

soan

Cliquez pour agrandir...

soan à dit:

@Carlot

sur la feuille "sage", fais Ctrl f ➯ tri effectué ! mais problème :
c'est trop rapide et t'as même pas l'temps d'boire un café !

soan

Cliquez pour agrandir...

soan à dit:

Bonjour Carlot,

j'ai bien compris que pour toi la macro est OK, et qu'il s'agit seulement d'un problème de vitesse d'exécution, mais par rapport à ton dernier fichier joint "IMPORT ACHATS ANA PAR SAGE S", feuille "sage", je veux d'abord savoir si ce que fait ma nouvelle macro pour dupliquer les lignes analytiques te convient ou non.

lis mon post #21 ci-dessus, et essaye le nouveau fichier : ouvre-le, puis sur la feuille "sage", fais Ctrl e ; est-ce que ce sont bien les bonnes lignes qui sont dupliquées ? celles pour lesquelles c'est non vide en colonne M ; si c'est ça : OK ➯ l'étape suivante sera d'améliorer la vitesse d'exécution.
​

---

sinon : quel est le critère pour qu'une ligne soit considérée comme analytique ? au tout début, c'était avec le code "A" ; et maintenant, c'est avec quel code ? tous ceux qui commencent par "P" ? ou autre ? je ne peux pas le deviner à ta place, c'est à toi de me dire ! (mais c'est peut-être comme indiqué au 2ème paragraphe ?)

2 autres questions : sur la ligne dupliquée, est-ce qu'il faut encore mettre le code "G" ? ou est-ce que ça a changé aussi, et tu n'en veux plus ? est-ce qu'il faut encore effacer la 2ème cellule qui est à droite de ce code "G" ? ou tu préfères pas ? même remarque : j'peux pas l'deviner à ta place ! ​

à te lire pour la suite.

soan

Cliquez pour agrandir...

soan à dit:

Bonjour Didier,

j'avais bien vu ton post #23, mais c'est pas évident d'le comprendre vu qu'tu n'emploies pas toujours les bons termes ! par exemple, tu as écrit : « Dans mon fichier VOTRE IMPORT » ; mais "VOTRE IMPORT" n'est pas un fichier ! c'est une feuille de calcul !​

---

j'ai été pris par beaucoup d'choses, et j'viens seulement d'me remettre sur ton dossier ; si j'ai bien compris : j'm'occupe pas du tout des 2 premières feuilles "VOTRE IMPORT" et "client" ; uniquement de la feuille "sage" ; et sur cette feuille, faut seulement dupliquer les lignes où c'est non vide en colonne M, donc si y'a un code comme par exemple "P01" ; enfin, pour la ligne dupliquée, ne rien changer : la laisser telle quelle.

comme dans ton fichier réel tu as plein de données, pour que la vitesse d'exécution ne soit pas pénalisante, faut qu'j'utilise une autre méthode que celle que j'avais déjà utilisée avant pour faire le job ; je vais donc utiliser la méthode des tableaux, qui est vraiment très rapide, même sur plusieurs milliers de lignes.

mais à cause de la particularité de devoir ajouter une ligne pour chaque ligne à dupliquer, ça va compliquer la chose et me prendre beaucoup de temps ; je vais essayer, et j'suis pas encore sûr d'y arriver, donc j'peux rien te garantir d'avance.​

soan

Cliquez pour agrandir...

soan à dit:

@Didier

voici la nouvelle version du fichier !

sur la feuille "sage", fais Ctrl e ➯ travail effectué ! vérifie bien soigneusement tous les résultats ; essaye ensuite la même macro avec ton fichier réel, et dis-moi le temps que ça met ; j'espère que ça marchera, car j'ai pas d'autre solution d'rechange à proposer : j'ai rien d'plus rapide ! ​

VB:

Sub Essai()
  If ActiveSheet.Name <> "sage" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 6).End(3).Row: If n = 1 Then Exit Sub
  Dim T, k&, i%, j&, p&
  n = n - 1: T = Application.Transpose([B2].Resize(n, 18))
  k = 2 * n: ReDim Preserve T(1 To 18, 1 To k): k = n: i = 1
  Do
    If T(12, i) <> "" Then
      For j = 1 To 18
        For p = k To i Step -1: T(j, p + 1) = T(j, p): Next p
      Next j
      k = k + 1: i = i + 1
    End If
    i = i + 1
  Loop Until i = k
  [B2].Resize(k, 18) = Application.Transpose(T)
End Sub

soan

Cliquez pour agrandir...

soan à dit:

@Carlot

pour la « socisse frite », merci pour le hot-dog !

« c'est vachement plus rapide!! » : ok, c'est super ! impeccable !
​

j'suis bien content d'savoir que ça ne prend plus trop de temps !

pour tes 2 autres demandes, c'est fait dans le fichier joint.

nouveau code VBA :​

VB:

Sub Essai()
  If ActiveSheet.Name <> "sage" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 6).End(3).Row: If n = 1 Then Exit Sub
  Dim T, k&, i%, j&, p&
  n = n - 1: T = Application.Transpose([B2].Resize(n, 18))
  k = 2 * n: ReDim Preserve T(1 To 18, 1 To k): k = n: i = 1
  Do
    If T(12, i) <> "" Then
      For j = 1 To 18
        For p = k To i Step -1: T(j, p + 1) = T(j, p): Next p
      Next j
      T(12, i) = Empty: k = k + 1: i = i + 1
    End If
    i = i + 1
  Loop Until i = k
  Application.ScreenUpdating = 0
  With [B2].Resize(k, 18)
    .Value = Application.Transpose(T): .Sort [B2], 1
  End With
End Sub

soan

Cliquez pour agrandir...