Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme de cellule (liste) à appliquer sur toute la ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ctrl-Alt-Suppr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Ctrl-Alt-Suppr

Guest
Bonjour,

Niveau débutant ,,, je tente de trouver sur la toile ce dont j'ai besoin :
Appliquer la mise en forme d'une cellule (à choix multiples) à toute la ligne correspondante,
Le fichier lié au poste sera sans doute + parlant que mes explications, mais en gros :

- je définis différentes ETAPES
- j'applique un format spécifique à chaque cellule
- dans un autre onglet, je définis un TABLEAU
- j'ai repris un code VBA qui "va chercher" le formatage couleur de chaque étape

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([TABLEAU], Target) Is Nothing Then
   On Error Resume Next
   Target.Interior.ColorIndex = [ETAPES].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

Questions :
- comment obtenir un formatage complet (italique, gras …)
- comment l'appliquer à l'ensemble de la ligne du TABLEAU
- j'ai l'impression que ça fonctionne en 256 couleurs ou un truc du genre … une idée ?

Un grand merci par avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Mise en forme de cellule (liste) à appliquer sur toute la ligne

Bonjour Ctrl-Alt-Suppr

Une proposition commentée:

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As Range
 If Not Intersect([TABLEAU], Target) Is Nothing Then
   On Error Resume Next
   'On déclare T comme la cellulecorrespondente dans la liste Etapes
   Set T = [ETAPES].Find(Target, LookAt:=xlWhole)
   'Avec la cellule modifiée (agrandie sur une ligne et de 5 colonnes)
    With Target.Resize(1, 5)
        'on recopie tout ce que l'on veux
        'Couleur
        .Interior.ColorIndex = T.Interior.ColorIndex
        'Police gras
        .Font.Bold = T.Font.Bold
        'Police italique
        .Font.Italic = T.Font.Italic
        'Etc....
    End With
  End If
End Sub

Cordialement
 
Vote positif 0 Vote négatif
Re : Mise en forme de cellule (liste) à appliquer sur toute la ligne

Merci, c'est vraiment pas mal
... j'ai presque tout compris au point de savoir le refaire (presque ^^) !

Un petit complément, si ce n'est pas trop demander.
Dans mon fichier définitif, les ETAPES sont dans la 2ème colonne
Comment faire pour appliquer la mise en forme à partir de la colonne d'avant
(en clair une sorte de : Target.Resize(1, de -1 à +56) ) dans mon futur fichier
J'ai tenté de glisser un Target.Offset(0, -1) ci et là, mais sans succès.
 
Vote positif 0 Vote négatif
Re : Mise en forme de cellule (liste) à appliquer sur toute la ligne

Re
On ne diras jamais assez que le fichier exemple doit être re-pré-sen-ta-tif du problème 🙄

Pour ta nouvelle demande:
Il faut décaler (Offset) de 0 ligne et - 1 colonne et ensuite redimentionner de 1 ligne et 57 colonnes soit :
VB: 
 With Target.Offset(0,-1).Resize(1, 57)

Cordialement
 
Vote positif 0 Vote négatif
Re : Mise en forme de cellule (liste) à appliquer sur toute la ligne

Génial ça fonctionne !
J'aurais dû trouvé moi-même la p'tite modif, mais bon servi sur un plateau c'est encore mieux
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
642
TooFatBoy
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
631
mimednejma
M
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
491
Pepepichnette69
P
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Résolu(e)
XL 2010 Mise en forme conditionnelle sur toute la ligne ?
Réponses
4
Affichages
739
anthonygg
C
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur clic
2
Réponses
22
Affichages
1 K
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Appliquer par vba une mise en forme conditionnelle d'après une liste de cellules mises en forme
Réponses
9
Affichages
918
Dranreb
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
686
Stéphane_1
S
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
544
vgendron
3
  • Question Question
XL 2013 modification de la mise en forme à chaque mise à jour de mon graphique croisé dynamique
Réponses
3
Affichages
507
chris
C
  • Résolu(e)
XL 2021 Peut-on appliquer la mise en forme d'une MFC à plusieurs cellules ?
Réponses
2
Affichages
534
Constantin
C
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
795
Julien_B
J
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
1 K
Laliepomm
L
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
782
filiph79
F
A
  • Résolu(e)
XL 2013 Mise en forme conditionnelle toute la ligne.
Réponses
3
Affichages
574
Appo1985
A
A
  • Question Question
XL 2016 Mise en forme conditionnelle sur plusieurs lignes
Réponses
2
Affichages
881
Arnauddu44
A
Z
  • Question Question
Microsoft 365 Mise en forme de tableau et répétition de formule
Réponses
2
Affichages
655
DJunqueira
D
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
923
crocrocro
C
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
788
casualexcel
C
  • Question Question
Microsoft 365 Appliquer mise en forme conditionnelle sur plage variable
Réponses
9
Affichages
1 K
dionys0s
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…