Style de cellule sous VBA
daoud388
-
daoud388 -
daoud388 -
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.
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.
A voir également:
- Style de cellule sous VBA
- Style word - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Nom pour facebook stylé - Guide
- Proteger cellule excel - Guide
1 réponse
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
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
