couleur+valeur au clic

[Shredder]

Bonjour
j'essaye de me mettre au macro
j'ai qq notion de programmation
j'ai trouvé une macro sympa sur le site qui ressemble à ce que je voulais
j'essaye de la modifier :
je voudrais que la cellule sélectionnée (et donc qui se colore) prenne la valeur "1"
je pense que je dois ajouter then : 1 mais j'ai une erreur de syntaxe est-ce que je dois rajouter un "if" rien que pour ça?
de même j'aimerai pouvoir augmenter l'effet de la macro "à la sélection" plutôt que d'augmenter la taille de l'effet (Range("B2:J21")) à la main directement dans la macro
merci


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("B2:J21")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 48
End If
End With
End If
End Sub

 

[brunosc]

Re : couleur+valeur au clic

Salut, j'ai une petite macro sympas qui avec un double clic me met la date du jour dans n'importe qu'elle cellule.
Peut être pourra tu l'addapter et la changer.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, ActiveCell) Is Nothing Then Target = Date
End Sub
Cordialement...bruno

 

[Pierrot93]

Re : couleur+valeur au clic

Bonjour,

essaye peut être ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target
    If .Count > 1 Then Exit Sub
    With .Interior
        .ColorIndex = IIf(.ColorIndex = 48, xlNone, 48)
    End With
    .Value = IIf(.Value = 1, "", 1)
End With
End Sub

bonne journée
@+

 

[Shredder]

Re : couleur+valeur au clic

BOnjour
merci ta macro est bien mais toute les cellules sélectionnée sont changée... enfin pas grave
je viens, grâce à ton aide, de changer la macro d'origine avec succès
un grand merci en tout cas