Création d'une macro excel
Résolu
freak33
-
freak33 -
freak33 -
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
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
A voir également:
- Création d'une macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Creation compte gmail - Guide
5 réponses
Bonjour,
La procédure traite la colonne [B] et [C] dès la ligne 6 et suivantes.
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question