Remplissage de cellule clic gauche

Résolu/Fermé

podi - 3 févr. 2016 à 09:18
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

A voir également:

Remplissage de cellule clic gauche
Windows 11 barre des taches a gauche - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - 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

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
3 févr. 2016 à 11:54

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
4 févr. 2016 à 07:03

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

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 4/02/2016 à 09:03

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
4 févr. 2016 à 09:44

Bonjour michel_m,

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

Réponse 3 / 3

podi
4 févr. 2016 à 20:50

merci beaucoup à tous les 2 !

Discussions similaires

Excel si cellule contient texte alors...

Clic gauche fonctionne très mal

cellule lié excel ouverture automatique

Résolution d'une image 500 pixels largeur

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

Discussions similaires

Newsletters