Automatisation de commandes manuelles par macro

**vanlugh** · 03/12/2014, 14h12

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et suggestions

**parmi** · 03/12/2014, 15h58

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...

**vanlugh** · 04/12/2014, 10h36

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 cellule

**parmi** · 04/12/2014, 11h38

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

**vanlugh** · 04/12/2014, 14h03

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

**Marc-L** · 04/12/2014, 15h00

Bonjour,

voir la fonction Split par exemple; sinon en utilisant le Générateur de macros …

**parmi** · 04/12/2014, 15h03

J'irais plutôt ainsi s'il n'y a qu'un seul espace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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