Macro pour faire du transpose automatiquement

Fermé
hbasouka - 7 juil. 2013 à 21:54
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 8 juil. 2013 à 05:43
Bonjour,
Pouvez vous m'aider SVP a faire une macro qui permettrai de choisir les lignes entre deux date et de faire un copier et les coller en les transposant front of la 1er date?

26/06/2013
18:47:16
16:49:54
16:48:58
16:48:22
16:16:32
13:49:25
12:47:08
10:01:13
09:28:22
08:52:12
27/06/2013
19:32:12
16:42:21
16:28:26
13:51:07
12:49:15
09:52:55
09:31:23
08:59:31
26/06/2013
18:37:40
16:51:34
16:29:04
13:54:10
12:47:39
11:16:59


A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
8 juil. 2013 à 05:43
Bonjour

"une macro qui permettrai de choisir les lignes entre deux date "
Aucun programme ne pourra choisir les lignes pour vous

Par contre, après avoir sélectionnée une zone à transposer, exécuter le code sujvant
Bonjour Sub Transpose()
    Application.ScreenUpdating = False
    ZoneSelectionnee = Selection.Address
    Range(ZoneSelectionnee).Copy
    Do While ActiveCell.Value <= 1
        ActiveCell.Offset(-1, 0).Select
    Loop
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub


les lignes seront recopiées à côté de la date début de la zone sélectionnée

cdlt
0