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

soan à dit:

Bonjour Carlot, sylvanu,

Bienvenue sur le site XLD !

Je te propose le fichier joint ci-dessous ; fais Ctrl e ➯ travail effectué.

VB:

Sub Essai()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row
  Do
    With Cells(lig, 1)
      If .Offset(, 5) = "A" Then
        Rows(lig).Insert: .Resize(, 10).Copy .Offset(-1)
        .Offset(-1, 5) = "G": .Offset(-1, 7) = Empty
      End If
    End With
    lig = lig - 1
  Loop Until lig = 0
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...

soan à dit:

Bonjour Carlot, sylvanu,

Bienvenue sur le site XLD !

Je te propose le fichier joint ci-dessous ; fais Ctrl e ➯ travail effectué.

VB:

Sub Essai()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row
  Do
    With Cells(lig, 1)
      If .Offset(, 5) = "A" Then
        Rows(lig).Insert: .Resize(, 10).Copy .Offset(-1)
        .Offset(-1, 5) = "G": .Offset(-1, 7) = Empty
      End If
    End With
    lig = lig - 1
  Loop Until lig = 0
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...

soan à dit:

Bonjour Didier,

sympa la vidéo, merci ! il a bien mérité d'avoir gagné, le petit Soan !en plus de bien chanter, il joue bien du tambour !

ton fichier en retour ; sur tes 2 feuilles "VOTRE IMPORT" et "sage" tu avais plein d'lignes vides inutiles et une colonne vide inutile ; je les ai toutes supprimées ➯ la taille du fichier est passée de 1 673 Ko (non zippé) à ... 102 Ko (non zippé) ! tu avais aussi plein d'valeurs d'erreur #REF! sur ta feuille de calcul ! et dans la liste de tes noms définis, tu as plein de #REF! ; tu les collectionne ?

fais Ctrl e, et essaye de patienter moins d'2 secondes ! ça passe de 67 lignes à 85 lignes ➯ 18 lignes de plus (y'avait donc 18 lignes avec "A") ; pour plus de sûreté, vérifie quand même bien tous les résultats !

attention : j'ai adapté la macro d'mon fichier précédent à ton nouveau fichier ! et cette macro ne s'exécutera que sur la feuille "VOTRE IMPORT".​

VB:

Sub Essai()
  If ActiveSheet.Name <> "VOTRE IMPORT" Then Exit Sub
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row
  Do
    With Cells(lig, 1)
      If .Offset(, 6) = "A" Then
        Rows(lig).Insert: .Resize(, 19).Copy .Offset(-1)
        .Offset(-1, 6) = "G": .Offset(-1, 8) = Empty
      End If
    End With
    lig = lig - 1
  Loop Until lig = 2
End Sub

soan

Cliquez pour agrandir...

soan à dit:

@Carlot

??? pour mon fichier précédent, c'est OK ? ça te convient ?

soan

Cliquez pour agrandir...

soan à dit:

@Carlot

merci pour ton invitation de venir sur ton île, mais en fait, j'voyage pas beaucoup, surtout avec la pandémie actuelle du coronavirus ! et pour le rhum, en fait je ne bois pas d'alcool, je préfère les jus d'fruit, les sirops, et l'antésite (c'est une boisson à base de réglisse, aromatisée par exemple à la menthe ou au citron).

j'ai vu ton fichier de données CSV, mais j'sais pas comment faut l'utiliser avec ton fichier Excel ; peut-être que si tu m'indiques la manip ? et pour le .xlsm c'est seulement à partir de la feuille "VOTRE IMPORT", n'est-ce pas ? les 2 autres feuilles "client" et "sage" sont pas concernées par ta demande ; note que j'ai pas utilisé tes boutons de commande, j'ai juste utilisé ma macro via Ctrl e.​

soan

Cliquez pour agrandir...