Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Est-ce que le double-clic te conviendrait ? Dans l'affirmative, voici une proposition. Effectuer un clic droit sur l'onglet de la feuille, puis Visualiser le code Coller le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$10" Then Exit Sub Application.EditDirectlyInCell = False Select Case Target.Interior.ColorIndex Case Is = xlNone 'rien Target.Interior.ColorIndex = 4 ' vert Case Is = 4 'vert Target.Interior.ColorIndex = 3 'rouge Case Is = 3 'rouge Target.Interior.ColorIndex = xlNone End Select End Sub
Noter que la procédure empêche la modification directe des cellules par double-clic, sinon, la procédure aura pour effet de laisser la cellule en mode modification.
Cordialement Pascal
"MartinT" a écrit dans le message de news:
Bonjour
J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule en la selectionnant et cliquant dessus.
Ex: cellule A10: Initial pas de couleur de remplissage Click Remplissage vert Click Remplissage rouge Click pas de remplissage
Bonjour
Est-ce que le double-clic te conviendrait ?
Dans l'affirmative, voici une proposition.
Effectuer un clic droit sur l'onglet de la feuille, puis Visualiser le code
Coller le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address <> "$A$10" Then Exit Sub
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 4 ' vert
Case Is = 4 'vert
Target.Interior.ColorIndex = 3 'rouge
Case Is = 3 'rouge
Target.Interior.ColorIndex = xlNone
End Select
End Sub
Noter que la procédure empêche la modification directe des cellules par
double-clic, sinon, la procédure aura pour effet de laisser la cellule en
mode modification.
Cordialement
Pascal
"MartinT" <MartinT@discussions.microsoft.com> a écrit dans le message de
news: 4C5B364B-53FB-4C44-96BE-06ED9641E8D3@microsoft.com...
Bonjour
J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule
en la selectionnant et cliquant dessus.
Ex: cellule A10: Initial pas de couleur de remplissage
Click Remplissage vert
Click Remplissage rouge
Click pas de remplissage
Bonjour Est-ce que le double-clic te conviendrait ? Dans l'affirmative, voici une proposition. Effectuer un clic droit sur l'onglet de la feuille, puis Visualiser le code Coller le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$10" Then Exit Sub Application.EditDirectlyInCell = False Select Case Target.Interior.ColorIndex Case Is = xlNone 'rien Target.Interior.ColorIndex = 4 ' vert Case Is = 4 'vert Target.Interior.ColorIndex = 3 'rouge Case Is = 3 'rouge Target.Interior.ColorIndex = xlNone End Select End Sub
Noter que la procédure empêche la modification directe des cellules par double-clic, sinon, la procédure aura pour effet de laisser la cellule en mode modification.
Cordialement Pascal
"MartinT" a écrit dans le message de news:
Bonjour
J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule en la selectionnant et cliquant dessus.
Ex: cellule A10: Initial pas de couleur de remplissage Click Remplissage vert Click Remplissage rouge Click pas de remplissage
papou
En complément. Pour rétablir la modification directe des cellules, ajouter ce code dans Thisworkbook : Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EditDirectlyInCell = True End Sub
Cordialement Pascal
"MartinT" a écrit dans le message de news:
Bonjour
J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule en la selectionnant et cliquant dessus.
Ex: cellule A10: Initial pas de couleur de remplissage Click Remplissage vert Click Remplissage rouge Click pas de remplissage
En complément.
Pour rétablir la modification directe des cellules, ajouter ce code dans
Thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EditDirectlyInCell = True
End Sub
Cordialement
Pascal
"MartinT" <MartinT@discussions.microsoft.com> a écrit dans le message de
news: 4C5B364B-53FB-4C44-96BE-06ED9641E8D3@microsoft.com...
Bonjour
J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule
en la selectionnant et cliquant dessus.
Ex: cellule A10: Initial pas de couleur de remplissage
Click Remplissage vert
Click Remplissage rouge
Click pas de remplissage
En complément. Pour rétablir la modification directe des cellules, ajouter ce code dans Thisworkbook : Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EditDirectlyInCell = True End Sub
Cordialement Pascal
"MartinT" a écrit dans le message de news:
Bonjour
J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule en la selectionnant et cliquant dessus.
Ex: cellule A10: Initial pas de couleur de remplissage Click Remplissage vert Click Remplissage rouge Click pas de remplissage
MartinT
Merci beaucoup. Je vais tenter cette procédure. Martin (Montreal, Canada)
"papou" a écrit :
Bonjour Est-ce que le double-clic te conviendrait ? Dans l'affirmative, voici une proposition. Effectuer un clic droit sur l'onglet de la feuille, puis Visualiser le code Coller le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$10" Then Exit Sub Application.EditDirectlyInCell = False Select Case Target.Interior.ColorIndex Case Is = xlNone 'rien Target.Interior.ColorIndex = 4 ' vert Case Is = 4 'vert Target.Interior.ColorIndex = 3 'rouge Case Is = 3 'rouge Target.Interior.ColorIndex = xlNone End Select End Sub
Noter que la procédure empêche la modification directe des cellules par double-clic, sinon, la procédure aura pour effet de laisser la cellule en mode modification.
Cordialement Pascal
"MartinT" a écrit dans le message de news: > Bonjour > > J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule > en la selectionnant et cliquant dessus. > > Ex: cellule A10: Initial pas de couleur de remplissage > Click Remplissage vert > Click Remplissage rouge > Click pas de remplissage
Merci beaucoup. Je vais tenter cette procédure.
Martin
(Montreal, Canada)
"papou" a écrit :
Bonjour
Est-ce que le double-clic te conviendrait ?
Dans l'affirmative, voici une proposition.
Effectuer un clic droit sur l'onglet de la feuille, puis Visualiser le code
Coller le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address <> "$A$10" Then Exit Sub
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 4 ' vert
Case Is = 4 'vert
Target.Interior.ColorIndex = 3 'rouge
Case Is = 3 'rouge
Target.Interior.ColorIndex = xlNone
End Select
End Sub
Noter que la procédure empêche la modification directe des cellules par
double-clic, sinon, la procédure aura pour effet de laisser la cellule en
mode modification.
Cordialement
Pascal
"MartinT" <MartinT@discussions.microsoft.com> a écrit dans le message de
news: 4C5B364B-53FB-4C44-96BE-06ED9641E8D3@microsoft.com...
> Bonjour
>
> J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule
> en la selectionnant et cliquant dessus.
>
> Ex: cellule A10: Initial pas de couleur de remplissage
> Click Remplissage vert
> Click Remplissage rouge
> Click pas de remplissage
Merci beaucoup. Je vais tenter cette procédure. Martin (Montreal, Canada)
"papou" a écrit :
Bonjour Est-ce que le double-clic te conviendrait ? Dans l'affirmative, voici une proposition. Effectuer un clic droit sur l'onglet de la feuille, puis Visualiser le code Coller le code ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$10" Then Exit Sub Application.EditDirectlyInCell = False Select Case Target.Interior.ColorIndex Case Is = xlNone 'rien Target.Interior.ColorIndex = 4 ' vert Case Is = 4 'vert Target.Interior.ColorIndex = 3 'rouge Case Is = 3 'rouge Target.Interior.ColorIndex = xlNone End Select End Sub
Noter que la procédure empêche la modification directe des cellules par double-clic, sinon, la procédure aura pour effet de laisser la cellule en mode modification.
Cordialement Pascal
"MartinT" a écrit dans le message de news: > Bonjour > > J'aimerai pouvoir creer une fonction pour changer la couleur d'une cellule > en la selectionnant et cliquant dessus. > > Ex: cellule A10: Initial pas de couleur de remplissage > Click Remplissage vert > Click Remplissage rouge > Click pas de remplissage
