Macro pour faire du transpose automatiquement
hbasouka
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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
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:
- Macro pour faire du transpose automatiquement
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel pour trier les photos automatiquement - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Automatiquement - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
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
les lignes seront recopiées à côté de la date début de la zone sélectionnée
cdlt
"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
