Insertion de lignes en fonction du nombre de lignes copiées

A

adidu44

Guest
Bonjour,

Je reviens vers vous avec deux problèmes qui sont liés.

J'ai une macro qui copie la dernière ligne saisie et la colle là où je lui ai spécifié :

Code:
Sub Bouton15_Cliquer()

Dim c As Range, Dest As Variant
Dest = Array("B5", "C5", "C5", "D5")
NbColonnes = 4
Set c = Range("A" & [A65536].End(xlUp).Row).Resize(1, NbColonnes)
For t = 1 To NbColonnes
    c.Cells(t).Copy Destination:=Workbooks("Exemple.xlsm").Sheets("Feuil2").Range(Dest(t - 1))
Next t

End Sub
Mais j'aimerai qu'elle continue de copier la dernière ligne mais qu'elle inspecte les lignes de dessus voir si elles ne comportent pas les mêmes numéros de commande (cf : pièce jointe).

Si les numéros de commande sont identiques au dernier saisi, il faudrait qu'elle copie toutes les lignes correspondantes.

Le second problème est que sur la deuxième feuille, je n'ai qu'une ligne d'arrivée par défaut.
Est il possible d'insérer autant de ligne que le nombre copié ?

Je préfère joindre un fichier car je ne sais pas si je me suis bien exprimé.

Cordialement,

Adidu44
 

Pièces jointes

  • Exemple.xlsm
    21.6 KB · Affichages: 81
  • Exemple.xlsm
    21.6 KB · Affichages: 70
  • Exemple.xlsm
    21.6 KB · Affichages: 71

Discussions similaires

Réponses
3
Affichages
457

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll