Remplissage de cellule clic gauche

Résolu

podi -
podi - 4 févr. 2016 à 20:50

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

Afficher la suite

A voir également:

Remplissage de cellule clic gauche
Windows 11 barre des taches a gauche - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Combien y a-t-il de bateaux dans la zone de 475 pixels de large et 1000 pixels de haut à partir du coin supérieur gauche de cette image ? - Forum Photoshop
Les textes ne doivent pas être en retrait à droite et à gauche - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

podi

merci infiniment !
je n ai pas encore essayé mais merci

Réponse 2 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 If
End Sub

Michel

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour michel_m,

Je n'y pense jamais a cette Choose!!!!!

Réponse 3 / 3

podi

merci beaucoup à tous les 2 !

Discussions similaires

Clic gauche fonctionne très mal

Clic molette qui ne marche pas

BUG DU CLIC GAUCHE DE MA SOURIS S.O.S

Problème de clic gauche avec ma souris sur certain fichiers

Clic gauche enfoncé bug

Votre réponse

Discussions similaires