Remplissage de cellule clic gauche
Résolu
Bonjour, je souhaiterai pouvoir remplir automatiquement ,et ceci avec juste un clic gauche , les celules d'une plage D20 à D30 individuellement avec un texte prédéfini
exemple : je clique sur la cellule D25 et elle se remplit "Do"
idem pour la cellule D29....
par contre, pour les cellules de la colonne E (E20 à E30) le texte serait "Ré"
quelqu un peut m'aider? le bout de code serait le bienvenue, je débute...
Merci d'avance
exemple : je clique sur la cellule D25 et elle se remplit "Do"
idem pour la cellule D29....
par contre, pour les cellules de la colonne E (E20 à E30) le texte serait "Ré"
quelqu un peut m'aider? le bout de code serait le bienvenue, je débute...
Merci d'avance
3 réponses
-
merci beaucoup à tous les 2 !
-
ContributeurBonjour
Option Explicit
'-------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D10:K30")) Is Nothing Then
Target = Choose(Target.Column - 3, "do", "ré", "mi", "fa", "sol", "la", "si", "do")
End If
End Sub
Michel -
Bonjour,
code a mettre dans VBA de la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("D20:D30")) Is Nothing Then Target = "Do" ElseIf Not Application.Intersect(Target, Range("E20:E30")) Is Nothing Then Target = "Ré" ElseIf Not Application.Intersect(Target, Range("F20:F30")) Is Nothing Then Target = "Mi" ElseIf Not Application.Intersect(Target, Range("G20:G30")) Is Nothing Then Target = "Fa" ElseIf Not Application.Intersect(Target, Range("H20:H30")) Is Nothing Then Target = "Sol" ElseIf Not Application.Intersect(Target, Range("I20:I30")) Is Nothing Then Target = "La" ElseIf Not Application.Intersect(Target, Range("J20:J30")) Is Nothing Then Target = "Si" ElseIf Not Application.Intersect(Target, Range("K20:K30")) Is Nothing Then Target = "Do" End If End Sub
