création d'une macro excel Résolu/Fermé

Question

Bonjour,

Je voudrais créer une macro pour une feuille de calcul excel. Je n'ai pas réussi par moi même, et je n'ai pas trouvé ma réponse sur le net. 
Voici ce que je veux faire:
A partir d'une case sélectionnée (exemple, B6),
- couper le contenu de la cellule
- coller le contenu de la cellule dans la cellule à droite (même ligne, colonne +1, exemple C6). Attention, il y a déjà quelque chose dans cette cellule, et je ne veux pas le perdre.
- aller à la ligne, écrire '/ ', aller à la ligne (tout ça dans la deuxième cellule, exemple C6)

Mon but est ensuite de faire cette opération sur toute les cellules de la colonne B.

Je vous remercie d'avance de vos réponses et je vous souhaite de joyeuses fêtes.
Freak33

Le Pingou · Answer

Bonjour,
Est-il possible de voir se que vous avez essayé de réaliser ?

freak33 · Answer

Dans la cellule B6 il y avait 'blbl' et dans la cellule C6, 'dldl'.

Touche de raccourci du clavier : Option+Cmd+g
'
    Range("B6").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "blbl" & vbLf & "/" & vbLf & "dldl"
    With ActiveCell.Characters(Start:=1, Length:=0).Font
        .Name = "Verdana"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

Le Pingou · Answer

Bonjour,
Merci pour le code.
Il semple qu’il manque les premières lignes … !
La réponse va suivre …

Le Pingou · Answer

Bonjour,
La procédure traite la colonne [B] et [C] dès la ligne 6 et suivantes.
Sub CollerAdd()
Dim c As Long, col As Long, ded As Long, fin As Long
dep = 6 ' la ligne de départ
col = 2 ' colonne [B] à concaténer avec valeur de colonne  [C]
' Boucle sur la colonne [B]
fin = Cells(5000, col).End(xlUp).Row
For c = 6 To fin
    Cells(c, col + 1) = Cells(c, col) & vbLf & "/" & vbLf & Cells(c, col + 1)
Next c
With Range(Cells(dep, col), Cells(fin, col + 1)).Font
    .Name = "Verdana"
    .FontStyle = "Normal"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
End With
End Sub

freak33 · Answer

Merci beaucoup. J'ai ajouté cells(c, col) = NULL pour vider la cellule de départ et c'est parfait.
Bonne soirée,
Freak 33

Création d'une macro excel

5 réponses