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

[excelfresh]

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.

 

[excelfresh]

Re

@excelfresh
Si il faut adapter, alors adaptes camarade
Mouille la chemise, quoi!

NB: Même pas un p'tit merci pour le nettoyage à sec de ta macro.
Les bonnes habitudes continuent à se perdre sur XLD.
C'est bien. On progresse.

Merci pour votre aide.
Toute autre aide serait la bienvenue.

 

[Staple1600]

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)

 

[excelfresh]

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)

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+

 

[Staple1600]

Re

Dans ce cas, utilises la fonctionnalité Tableau
Le changement de couleur se fait automatiquement
Je te laisse découvrir ce dont je parle avec cette vidéo
https://support.office.com/fr-fr/ar...rmations-1c3d9852-4b0b-4496-a1fc-30c5121fb05e

PS: je précise que je n'ai pas de lien particulier avec Microsoft
Je viens juste de faire un G..gl..g

 

[excelfresh]

Re

Dans ce cas, utilises la fonctionnalité Tableau
Le changement de couleur se fait automatiquement
Je te laisse découvrir ce dont je parle avec cette vidéo
https://support.office.com/fr-fr/ar...rmations-1c3d9852-4b0b-4496-a1fc-30c5121fb05e

PS: je précise que je n'ai pas de lien particulier avec Microsoft
Je viens juste de faire un G..gl..g

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

 

[Staple1600]

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)

 

[excelfresh]

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)

Ci-Joint un nouveau fichier
Merci
a+

 

[Staple1600]

Re

Une nouvelle macro
(LA formule s'adapte aprés l'insertion d'une ligne)

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

 

[excelfresh]

Re

Une nouvelle macro
(LA formule s'adapte aprés l'insertion d'une ligne)

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

Merci!
Mais votre code a un petit souci. Assayez d'ajouter deux lignes de suite et vous verrez.

 

[Staple1600]

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.

 

[excelfresh]

Re

Les petits soucis sont de bonne 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.

Essayez svp de placer la formule de facon manuelle dans la MFC. Vous verrez ensuite que la formule est bonne.
A+

 

[excelfresh]

Au secours! À l'aide!

 

[excelfresh]

À l'aide! Suis-je seul au monde?

 

[excelfresh]

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.

Bonjour Staple1600,
comment je fais pour la suite?
Merci.

 

[Staple1600]

Bonsoir le fil, le forum

Bonjour Staple1600,
comment je fais pour la suite?
Merci.

@excelfresh
Continue de faire des UP dans ton fil.
Normalement, un XLDnaute finira par essayer de t'aider.