XL 2013 Automatisation de copier coller et suppression sur plage dynamique

LUCCHOBLANCHARD

XLDnaute Nouveau
Bonjour à tous,
J'ai une feuille excel qui contient 3 colonnes sur environ 120 000 lignes et 617 clients (nombre de ligne changeante).
Je vous ai mis le fichier sur seulement 7 clients mais le principe est le même pour le reste.
Je voudrais :
Copier plage en jaune et coller en transposé (je l'ai fait en VBA)
Par contre automatiser cette tache jusqu'au bout des plage A2:C20 puis A21:C39 puis etc... (j'ai 120 000 lignes pour 617 clients mais est variable)
Après je voudrais copier E1 en E2 et E3 puis E4 en E5 et E6 etc... pour les 617 clients
Enfin supprimer les lignes E4:W4 puis E7:W7 etc... en decalant vers le haut pour tous les clients.
Merci d'avance pour votre aide
Bonne journée
Luccho
 

Pièces jointes

  • Test Luccho Excel Downloads.xlsx
    18.1 KB · Affichages: 44

Lone-wolf

XLDnaute Barbatruc
Bonjour LUCCHO et bonne année. :)

J'ai beaucoup de mal à suivre ton raisonnement.

Pourquoi copier E1 en E2 et E3 puis E4 en E5 et E6 etc... et ensuite supprimer les lignes E4:W4 puis E7:W7???? :rolleyes::rolleyes::rolleyes: Chercher l'erreur. Si tu utilise VBA, je te conseil d'utiliser Autofilter.

Un exemple à adapter.

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Filtre As Range
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Filtre = ActiveCell.Offset(1, 0).Column
Application.ScreenUpdating = False
[A1:I37].AutoFilter Field:=Filtre, Criteria1:=ActiveCell, Operator:=xlAnd
End If
Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("C:C")) Is Nothing Then [A1:I37].AutoFilter
If Target.Count > 1 Then Exit Sub
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 245
Membres
105 314
dernier inscrit
SABER ABD