Automatisation de commandes manuelles par macro

Version imprimable

Bonjour,

Après plusieurs années d'absence, je reviens sur ce site. :mrgreen:

J'ai une vieille question pour laquelle je n'ai pas trouvé de solution.

Voilà la démarche que je fais en manuel dans mon exemple:
en relation: 2 colonnes.
positionné dans la colonne A,
Voici les manip que j'effectue:

F2
Ctrl + Shift + flèche gauche
Ctrl + X
Tab
F2
Ctrl + V
Enter

Je ne trouve pas dans les fonctions basic comment introduire ces actions.

Lorsque j'enregistre la macro, j'obtiens ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+b
'
    ActiveCell.FormulaR1C1 = "F2"
    With ActiveCell.Characters(Start:=1, Length:=0).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16727809
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=3, Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Column1(CL:?)"
    ActiveCell.Offset(2, -1).Range("A1").Select
End Sub

Comment introduire les commandes en manuel dans le script ?
Des pistes seraient les bienvenues.

Merci pour votre aide :P et suggestions ;)

03/12/2014, 15h58
parmi

Bonjour,

Premièrement, quand tu mets du code, utilise le bouton # pour le formater et le rendre plus lisible.
Pour ta question, pourquoi vouloir utiliser des touches comme tu le fais ?
Pourquoi ne pas tout simplement faire un .Cut et .PasteSpecial ?

Autrement, tu pourrais regarder du côté de SendKeys... à tes risques... ;)
04/12/2014, 10h36
vanlugh

Bonjour et merci parmi.
En fait j'aimerais pouvoir automatisé ce genre d'actions. Dans un très lointain passé, avec un autre logiciel, je pouvais faire ce genre d'actions automatisées, mais avec une lecture du type "wysiwyg" en terme de programmation.

En fait, je cherche à copier (cut) une partie d'un contenu de cellule dans une autre cellule8-)
04/12/2014, 11h38
parmi

ok, je comprends mieux.
Et quel serait le critère ?
Qu'est-ce qui définit quelle partie de cellule couper ?
04/12/2014, 14h03
vanlugh

Par exemple dans une cellule j'ai ceci : élkajdfél (+juoeirut)
j'éxécute F2 le curseur vient en fin de champ. Je tape Ctrl + Shift + flèche gauche.

Cela va prendre le contenu entre parenthèses, donc la délimitation c'est le premier espace sur la gauche et non pas le nombre de caractères.

je fais ensuite ctrl x , tab, puis F2 dans la nouvelle cellule et ctrl v pour recopier le contenu.

Et voilà ma recherche de solutions ou d'indices me permettant de faire ce genre de manip
:?;)
04/12/2014, 15h00
Marc-L

Bonjour,

voir la fonction Split par exemple; sinon en utilisant le Générateur de macros …
04/12/2014, 15h03
parmi
J'irais plutôt ainsi s'il n'y a qu'un seul espace
Code:

1 2 3 4 5 6 7 Dim Tablo Tablo = Split(Range("A1"), " ") If UBound(Tablo) = 1 Then Range("A1") = Tablo(0) Range("B1") = Tablo(1) End If
Par contre, s'il peut y avoir plus d'espaces, il faudrait traiter autrement selon le résultat escompté...

EDIT: On s'est croisé Marc-L
16/12/2014, 17h27
vanlugh

Merci parmi.

Mais si je fais ça, je vais être lié à la cellule A1, B1.

Ce que je souhaite, c'est de pouvoir utiliser la cellule Cn et la cellule Dn :calim2:

ou je me trompe

Après test, cela ne semble pas fonctionner
16/12/2014, 17h48
parmi

Où sont tes "textes" à séparer ?
Et où veux-tu retrouver le résultat ?