Excel : macro remplissage cellule puis passag

Résolu
tim2023 Messages postés 4 Statut Membre -  
tim2023 Messages postés 4 Statut Membre -
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

3 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  3. tim2023 Messages postés 4 Statut Membre
     
    Merci à toi ccm81, c'est exactement ce que je voulais.

    @ ++
    0