Style de cellule sous VBA Fermé

Question

Bonjour, 
Je débute dans la programmation en VBA et bien sur je bloque.
Aussi je souhaiterais un petit coup de pouce, si possible.
Je souhaite modifier deux parties de la même ligne en 'Style de cellule accent3'.
Exemple de B10 à N10 puis de P10 à V10. Sachant que lorsque j'activerai la macro je me positionnerai en B10.
Pour commencer j'ai raisonner sur une première partie et je me suis dit que je trouverais plus tard comment faire la deuxième partie.
Voici mon programme :
Sub Style_Accent3()
    Dim x As Integer
    Dim y As Integer
    x = 0
    y = 0
    While y <= 11 'TANT QUE la variable y est <= 12, la boucle est répétée
    ActiveCell.Offset(0, 0).Select
    Selection.Style = "Accent3"
    y = y + 1 'Le numéro est augmenté de 1 à chaque boucle
    Rows(ActiveCell.Row).Select
    Range("x:y").Select
    ActiveCell.Offset(x, y).Select
    Selection.Style = "Accent3"
    Wend
    
End Sub

Merci pour votre aide.

Configuration: Windows 7 / Internet Explorer 9.0

daoud388 · Answer

Bonsoir,
En faite, je viens de trouver la réponse à ma question, du coup je la poste, afin que cela puisse servir à d'autre et leur économise 2 jours de recherche, quand on débute.
Je pense que le programme peut être amélioré, mais pour un début, ça marche.
Sub Style_Accent3()
    'Dim x As Integer
    'Dim y As Integer
    x = 0
    y = 0
    While y <= 12 'TANT QUE la variable y est <= 12, la boucle est répétée
    ActiveCell.Offset(0, 0).Select
    Selection.Style = "Accent3"
    y = y + 1 'Le numéro est augmenté de 1 à chaque boucle
    Rows(ActiveCell.Row).Select
    ActiveCell.Offset(x, y).Select
    Selection.Style = "Accent3"
    Wend
    x = 0
    y = 14
    While y <= 21 'TANT QUE la variable y est <= 21, la boucle est répétée
    ActiveCell.Offset(0, 0).Select
    Selection.Style = "Accent3"
    y = y + 1 'Le numéro est augmenté de 1 à chaque boucle
    Rows(ActiveCell.Row).Select
    ActiveCell.Offset(x, y).Select
    Selection.Style = "Accent3"
    Wend
    Range("A1").Select
End Sub

Style de cellule sous VBA

1 réponse

Discussions similaires