Modification par double-clic sur plage de cellules selon valeur

Résolu/Fermé

smog418 Messages postés 5 Date d'inscription mercredi 22 juin 2016 Statut Membre Dernière intervention 27 juin 2016 - Modifié par smog418 le 23/06/2016 à 17:07
smog418 Messages postés 5 Date d'inscription mercredi 22 juin 2016 Statut Membre Dernière intervention 27 juin 2016 - 23 juin 2016 à 19:10

Bonjour,

J'ai déjà créé un tableau dans lequel, si je double-clic sur la cellule I4, je modifie la mise en forme des cellules D9 et F5 et je fais apparaître une MsgBox. Voici le code

If Not Application.Intersect(Target, Range("I4")) Is Nothing Then
    Range("D9,F5").Select
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    MsgBox "Contenu de la MsgBox"
End If

Cela fonctionne bien, mais nécessite de configurer manuellement les cellules à modifier (Ici: D9 et F5). J'aimerais utiliser le même code mais plutôt cibler les cellules de la plage B3:G16 qui ont un contenu égale à "x", au lieu d'identifier D9 et F5.

Merci à l'avance!

A voir également:

Modification par double-clic sur plage de cellules selon valeur
Double ecran - Guide
Whatsapp double sim - Guide
Suivi de modification word - Guide
Logiciel modification pdf - Guide
Excel additionner des cellules - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14398 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 10 avril 2024 2 701
23 juin 2016 à 17:51

Bonjour

Remplace les lignes de ta macro jusqu'à Msgbox par celles ci :

Dim cell As Range
For Each cell In Range("B3:G16")
If cell.Value = "x" Then
cell.Select
With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
End If
Next

Cdlmnt
Via

smog418 Messages postés 5 Date d'inscription mercredi 22 juin 2016 Statut Membre Dernière intervention 27 juin 2016
23 juin 2016 à 19:10

Parfait, ça fonctionne! Merci beaucoup!

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Clic molette qui ne marche pas

cellule lié excel ouverture automatique

Ma souris double-clik toute seule :(

Sur la plage...

Discussions similaires

Newsletters