remplissage de cellule clic gauche Résolu/Fermé

Question

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

f894009 · Answer

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

michel_m · Answer

Bonjour

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 IfEnd Sub  
 Michel

podi · Answer

merci beaucoup à tous les  2 !

Remplissage de cellule clic gauche

3 réponses

Discussions similaires