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

Excel-VBA - Macro s’exécutant sans mise en forme conditionnelle

Créer une discussion

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
E

excelfresh

XLDnaute Nouveau
Bonjour!
J’ai un problème avec une macro qui s’exécute sans application de la mise en forme conditionnelle.
Pouvez-vous m’aider à adapter la formule suivante dans mon code ?
"=NON(MOD(SOMME(N($B$2:$B2<>$B$3:$B3));2))"
La macro l’inscrit bien dans la formule de MFC. Mais rien ne se passe.
Lorsqu’on exécute la macro, enregistre le fichier et le ferme. À la réouverture du fichier, La MFC s’applique bien.
J’aimerai qu’elle s’applique directement après la validation du bouton <<Nvlle Ligne>>.
Aidez-moi, je vous en prie.
 

Pièces jointes

Trier par date Trier par votes
Re

@excelfresh
1) On se sait toujours ce que tu cherches à faire avec ta formule
(marquer des doublons peut-être?)

2) je ne sais pas ce que tu penses de ma version "light"
(je ne parle pas de la formule)
mais du reste de la macro, est-ce que ma version newline2 produit les même effets que newline ?

3) Pourquoi n'utilises-tu pas la fonctionnalité Tableau ?
(ListObject)
 
Vote positif 0 Vote négatif
A l'intérieur du tableau je souhaiterais que dès qu'il y a changement de valeur en colonne B, la couleur de remplissage des lignes change, alternativement, un coup sans remplissage, un coup orange clair, ainsi de suite. D'où la formule "=NON(MOD(SOMME(N($B$2:$B2<>$B$3:$B3));2))" dans la macro. Et j'aimerais aussi ajouter des lignes à ce tableau par le haut (ligne3).
Merci
A+
 
Vote positif 0 Vote négatif
Merci pour la vidéo. Elle ne m'aide pas.
Dans mon tableau, les lignes ayant les valeurs identiques qui se suivent en colonne B doivent avoir le même remplissage. Du coup on porrait avoir 2 lignes avec sans remplissage, ensuite 3 lignes avec un remplissage orange clair, ensuite une ligne sans remplissage, ensuite 2 lignes avec un remplissage orange clair.
En fait le remplissage du tableau doit dépandre des valeurs en colonne B
 
Vote positif 0 Vote négatif
Re

Alors pour qu'on finisse par avancer
joins un nouveau fichier exemple mais avec deux onglets
•le premier étant la situation initiale (de départ donc)
•le second onglet étant le résultat à obtenir après l'insertion d'une ligne
(donc mettre en forme manuellement sur l'onglet ce qu'on doit obtenir après l’exécution de la macro)
 
Vote positif 0 Vote négatif
Ci-Joint un nouveau fichier
Merci
a+
 

Pièces jointes

Vote positif 0 Vote négatif
Re

Une nouvelle macro
(LA formule s'adapte aprés l'insertion d'une ligne)
VB: 
Sub new_line3()
Dim DL&, DB&
DL = Sheets("Tabelle1").Cells(Application.Rows.Count, 2).End(xlUp).Row + 1
Range("B3:F3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
DB = Range("B2").End(xlDown).Row
Formule = "=NON(MOD(SOMME(N($B" & DB & ":$B" & DB & "<>$B" & DB + 1 & ":$B" & DB + 1 & "));2))"
With Sheets("Tabelle1").Range("B" & DB & ":F" & DL)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=Formule
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(1).Interior.ThemeColor = xlThemeColorAccent2
.FormatConditions(1).Interior.TintAndShade = 0.799981688894314
.FormatConditions(1).StopIfTrue = False
End With
End Sub
 
Vote positif 0 Vote négatif
Merci!
Mais votre code a un petit souci. Assayez d'ajouter deux lignes de suite et vous verrez.
 

Pièces jointes

Vote positif 0 Vote négatif
Re

Les petits soucis sont de bon augure.
Cela permets de remettre l'ouvrage sur le métier 😉
Je teste des bouts de code.
Je les propose au demandeur pour qu'il les teste à son tour.

Depuis le début tu dis que ta formule n'a pas de problème.

Je fais donc ma macro avec ce postulat de base.
 
Dernière édition:
Vote positif 0 Vote négatif
Essayez svp de placer la formule de facon manuelle dans la MFC. Vous verrez ensuite que la formule est bonne.
A+
 
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

Discussions similaires

A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
470
wDog66
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
270
mimednejma
M
A
  • Résolu(e)
Microsoft 365 La mise en forme conditionnelle s'applique différemment de la plage que j'ai renseigné
Réponses
3
Affichages
108
Alstroemeria
A
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
227
Auriane
A
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
180
Pepepichnette69
P
B
  • Question Question
Microsoft 365 Excel - Mise en forme conditionnelle
Réponses
6
Affichages
392
Benouze
B
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
731
fanfan38
C
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur clic
2
Réponses
22
Affichages
1 K
TooFatBoy
R
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
4
Affichages
492
Nain porte quoi
N
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
271
vgendron
  • Question Question
XL 2010 mise en forme conditionnelle
Réponses
2
Affichages
544
jeanmi
H
  • Question Question
XL 2021 *RESOLU* Formule de mise en forme conditionnelle
Réponses
8
Affichages
556
hades
H
M
  • Question Question
XL 2010 Mise en forme conditionnelle heures
Réponses
5
Affichages
538
marmotte17
M
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
724
Dranreb
A
  • Résolu(e)
XL 2010 date figee et mise en forme conditionnelle
Réponses
3
Affichages
535
Atlas85200
A
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
196
YGU1
Y
P
  • Question Question
XL 2019 Mise en forme conditionnelle sur plusieurs feuilles
Réponses
6
Affichages
864
JHA
J
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
5
Affichages
505
Peter 50
P
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
660
filiph79
F
S
  • Résolu(e)
Microsoft 365 Vba, Mise en forme d'un calendrier
Réponses
8
Affichages
659
SOP
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…