Excel : macro remplissage cellule puis passag

Résolu
tim2023 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
tim2023 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je débute en macros VBA, j'ai vraiment besoin d'aide je crois.

Voila, ce que je veux faire est tout simple : je veux créer une macro pour remplir la cellule active d'une couleur, puis rendre active la cellule immédiatement à droite (afin d'effectuer un remplissage de celle-ci par une autre macro). J'ai essayé ceci :

Sub Vert()
'
' Vert Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10092441
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C129").Select
End Sub

La cellule active se remplit bien en vert, mais c'est toujours la cellule C129 qui est sélectionnée ensuite, et pas la cellule juste à droite.
Comment faire, svp.
D'avance merci
A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour, 


With Selection.Interior 
  .Pattern = xlSolid 
  .PatternColorIndex = xlAutomatic 
  .Color = 10092441 
  .TintAndShade = 0 
  .PatternTintAndShade = 0 
  End With 
  ActiveCell.Offset(0, 1).Activate
End Sub


bonne suite
2
Réponse 2 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

Clic droit sur l'onglet de ta feuille/Visualiser le code et colle ce code qui
colorisera en rouge la cellule active que j'ai limité à la plage C2 à C30 et sélectionnera la cellule de suite à droite, à adapter bien sur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Selection, Range("C2:C30")) Is Nothing Then
ActiveCell.Interior.ColorIndex = 3
Target.Offset(0, 1).Select
End If
End Sub
0
Réponse 3 / 3
tim2023 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci à toi ccm81, c'est exactement ce que je voulais.


@ ++
0