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

  • Initiateur de la discussion Initiateur de la discussion adidu44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
1 K
Retour