Macro evenement

Le
SD
Bonjour,
Je rencontre un problème pour adapter une macro evenementielle sur une
feuille.
Dans un range defini, quand je selectionne une cellule de la col C, je
voudrais que cette cellule passe sur fond vert MAIS egalement la
cellule à coté (col D) en meme temps.

Voici le code à modifier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
Cancel = True
Selection.Interior.ColorIndex = 35
End If
End Sub

Merci d'avance de votre aide.
SD
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ellimac
Le #5439741
Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
Cancel = True
Range(Target.Address, Target.Offset(,
1).Address).Interior.ColorIndex = 35
End If
End Sub

Camille

"SD"
Bonjour,
Je rencontre un problème pour adapter une macro evenementielle sur une
feuille.
Dans un range defini, quand je selectionne une cellule de la col C, je
voudrais que cette cellule passe sur fond vert MAIS egalement la
cellule à coté (col D) en meme temps.

Voici le code à modifier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
Cancel = True
Selection.Interior.ColorIndex = 35
End If
End Sub

Merci d'avance de votre aide.
SD
Tatanka
Le #5439731
Bonjour SD,

Si tu veux du vert sur les deux colonnes seulement si tu
sélectionnes une seule cellule de la colonne C de la plage
concernée, essaie ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set inter = Intersect(Target, Range("C8:C27"))
If Target.Count > 1 Then Exit Sub
If Not inter Is Nothing Then Target.Resize(1, 2).Interior.ColorIndex = 35
End Sub

Serge

"SD"
Bonjour,
Je rencontre un problème pour adapter une macro evenementielle sur une
feuille.
Dans un range defini, quand je selectionne une cellule de la col C, je
voudrais que cette cellule passe sur fond vert MAIS egalement la
cellule à coté (col D) en meme temps.

Voici le code à modifier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
Cancel = True
Selection.Interior.ColorIndex = 35
End If
End Sub

Merci d'avance de votre aide.
SD
SD
Le #5461021
On 17 avr, 16:34, "Ellimac"
Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
    Cancel = True
        Range(Target.Address, Target.Offset(,
1).Address).Interior.ColorIndex = 35
End If
End Sub

Camille

"SD"
Bonjour,
Je rencontre un problème pour adapter une macro evenementielle sur une
feuille.
Dans un range defini, quand je selectionne une cellule de la col C, je
voudrais que cette cellule passe sur fond vert MAIS egalement la
cellule à coté (col D) en meme temps.

Voici le code à modifier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
    Cancel = True
        Selection.Interior.ColorIndex = 35
End If
End Sub

Merci d'avance de votre aide.
SD


Merci Ellimac, ta solution fonctionne parfaitement.
SD

SD
Le #5461011
On 17 avr, 16:35, "Tatanka"
Bonjour SD,

Si tu veux du vert sur les deux colonnes seulement si tu
sélectionnes une seule cellule de la colonne C de la plage
concernée, essaie ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set inter = Intersect(Target, Range("C8:C27"))
    If Target.Count > 1 Then Exit Sub
    If Not inter Is Nothing Then Target.Resize(1, 2).Interior.ColorInd ex = 35
End Sub

Serge

"SD"
Bonjour,
Je rencontre un problème pour adapter une macro evenementielle sur une
feuille.
Dans un range defini, quand je selectionne une cellule de la col C, je
voudrais que cette cellule passe sur fond vert MAIS egalement la
cellule à coté (col D) en meme temps.

Voici le code à modifier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("C8:D27")) Is Nothing) Then
    Cancel = True
        Selection.Interior.ColorIndex = 35
End If
End Sub

Merci d'avance de votre aide.
SD


Merci Tatanka, ta solution fonctionne parfaitement.
SD

Publicité
Poster une réponse
Anonyme