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

mise en forme conditionnelle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nrdz83
  • 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

nrdz83

XLDnaute Impliqué
Bonjour à tous
je cherche à quadriller et mettre en couleur mes cellules à l'issue de ma saisie et de colorer une ligne sur 2 seulement.

J'essaye d'appliquer ce code mais ça ne fonctionne pas

Code: 
Sub mefcDossier()

  Dim DerLig As Long
  DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1


  With Range(Cells(DerLig, 1), Cells(DerLig, 7))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
                          "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2))"
    With .FormatConditions(1).Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 17
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
    End With
  End With

End Sub

Pourriez vous m'aider à trouver la solution

par avance je vous remercie

bonne journée à tous
 
Trier par date Trier par votes
Re : mise en forme conditionnelle

Salut Nrdz83 😉

Code: 
Sub mefcDossier()  Dim DerLig As Long
  DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1


  With Range(Cells(DerLig, 1), Cells(DerLig, 7))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
                          "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2)=0)"
    With .FormatConditions(1).Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 17
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
    End With
  End With
End Sub

Rectification 😉 ne pas oublier le "=0" dans ta MFC

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : mise en forme conditionnelle

Re bonjour bruno lol

merci pour ton enième aide mais je n'arrive toujours pas à faire fonctionner ce code, grrrr
le =0 'est bien celui à la fin de la formule MOD(LIGNE)

merci
 
Vote positif 0 Vote négatif
Re : mise en forme conditionnelle

Re,

Modifie le calcul de la dernière ligne (enlève le +1), je pense que ton problème vient de là
Code: 
DerLig = Range("A" & Rows.Count).End(xlUp).Row

A+
 
Vote positif 0 Vote négatif
Re : mise en forme conditionnelle

Sniff non toujours rien fonctionne toujours pas grrr

Ce que je ne comprend pas c'est que j'ai ce code dans un autre programme et il fonctionne.

J'en perd mon latin

merci
 
Vote positif 0 Vote négatif
Re : mise en forme conditionnelle

Re,

Au fait ton code ne peut foncionner que si tu lances la macro "mefcDossier" manuellement
Outil -> Macro -> Macros

Sinon comme le code n'est pas dans un évènement Change de ta feuille, forcément rien ne se passe 😉

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

M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
250
fanch55
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
475
vgendron
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
371
Etoto
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
853
TooFatBoy
Y
  • Résolu(e)
XL 2013 Surligner une ligne si curseur sur la ligne et dans une zone définie
Réponses
2
Affichages
471
Yvan1
Y
L
  • Question Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
681
lolo_excelbeginner
L
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
546
spike29
S
M
  • Question Question
Microsoft 365 VBA fusion défusion cellule gestion cellules
Réponses
8
Affichages
470
mix770
M
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
597
Julien_B
J
  • Résolu(e)
XL 2013 Ecriture de code condensé
Réponses
9
Affichages
635
ZAKAO
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
884
Kevin38
K
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
774
marie3107
M
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
589
Nadou69
L
  • Résolu(e)
XL 2019 lien hypertxte
Réponses
3
Affichages
484
litchoutsou
L
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
1 K
Phil69970
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
429
oguruma
B
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
bd.afaf
B
S
  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
715
svn
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…