Discussion :

[etxahun]

Bonjour,
Je débute avec les macros sur excel et j'aurai besoin d'un coup de main pour terminer la macro suivante. Est ce que quelqu'un pourrait m'aider svp ?

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
Sub PROCHAIN_DONIBANE()
'
' PROCHAIN_DONIBANE Macro
'
With Selection
    .Value = "PROCHAIN"
    .Interior.ColorIndex = 46
    .Font.Name = "Arial"
    .Font.Size = 22
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Orientation = xlVertical
End With
 
End Sub

J'aimerai ensuite appliquer les mêmes commandes (exception faite du texte PROCHAIN qui serait remplacé par DONIBANE sur la cellule située directement à droite de celle sur laquelle la macro a été exécuté.
Si quelqu'un pouvait compléter svp ce serait super cool.

Merci

[Nain porte koi]

Hello,

qqchose comme ça (mais ça n'est pas du tout optimisé ni transposable)

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
Sub PROCHAIN_DONIBANE()
'
' PROCHAIN_DONIBANE Macro
'
 
Selection.Value = "PROCHAIN"
Selection.Offset(0, 1).Value = "DONIBANE"
Selection.Resize(, 2).Select
 
With Selection
    .Interior.ColorIndex = 46
    .Font.Name = "Arial"
    .Font.Size = 22
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Orientation = xlVertical
End With
 
End Sub