XL 2016 procédure qui ne fait rien

Bill73 · 5 Juin 2020

bonjour,

je me casse les dents depuis quelques heures avec :

VB:

Public Sub Format_Ligne(feuille As String, ByVal lig As Integer, dbcol As Integer, fncol As Integer)
        
        Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Borders.LineStyle = 1
        Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Borders.Weight = xlMedium
        Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Borders.Color = RGB(230, 230, 230)
        Worksheets(feuille).Cells(lig, fncol).Borders(xlEdgeRight).Color = RGB(89, 89, 89)
        Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Borders(xlEdgeTop).Color = RGB(230, 230, 230)
        Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Borders(xlEdgeBottom).Color = RGB(89, 89, 89)
        If lig Mod 2 = 0 Then
            Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Interior.Color = RGB(232, 232, 232)
        Else
            Worksheets(feuille).Range(dbcol & lig & ":" & fncol & lig).Interior.Color = RGB(209, 209, 209)
        End If
End Sub

je voudrais avoir ce code en général avec appel type " Format_Ligne "Entrée", ligent, 2, 15 " , ligent étant une variable contenant un numéro de ligne, depuis plusieures feuilles.

si je mets ce code à chaque fois dans les différentes feuilles, ça marche, si je fais une procédure globale, rien ne se passe.

Si quelqu'un a une idée ?

patricktoulon · 7 Juin 2020

ok
ajoute une mfc
la formule
=ET(NB.SI($B3:$H3;"*")>0;ET($B3<>"";OU($L3&$B3="";$M3<ANNEE(AUJOURDHUI()))))

et ca s'applique à
=$B$3:$B$1000;$L$3:$M$1000
démo résultat

Bill73 · 7 Juin 2020

voir même des référence à des cellules ...bien sûr
Pas réveillé ce matin !

patricktoulon · 7 Juin 2020

ok reprenons
If (abd = 0 And abj = 0) Or abj < Year(Date) en mettant aussi : ET(NB.SI($B3:$H3;"*")>0;
donc tu veux que
si A et B et D et J=0 ou plus petit que l'année encours et que B3:H3 n'est pas vide on fasse quoi ???

Bill73 · 7 Juin 2020

non c'est si B3:H3 n'est pas vide, A3 et B3 = "" ou B3< à l'année en cours color cellules B et LM rouge par exemple

patricktoulon · 7 Juin 2020

QUELLE CELLULE???
ne pas confondre les cellules de condition mfc et les cellules sur les quelles sont appliqué la mfc
il faut que tu soit plus clair

Bill73 · 7 Juin 2020

ça va mal ce matin

condition mfc : si B3 n'est pas vide, L3 et M3 = "" ou M3< à l'année en cours
application mfc : B3 - L3-M3 color cel rouge

patricktoulon · 7 Juin 2020

bon c'est déjà plus clair
je vais voir çà
ps on est d'accords que je travaille avec l'exemple que je t'ai donné

Bill73 · 7 Juin 2020

pas de problème, j'adapterais après, j'ai plusieures autres conditions à ajouter.

patricktoulon · 7 Juin 2020

ok
ajoute une mfc
la formule
=ET(NB.SI($B3:$H3;"*")>0;ET($B3<>"";OU($L3&$B3="";$M3<ANNEE(AUJOURDHUI()))))

et ca s'applique à
=$B$3:$B$1000;$L$3:$M$1000
démo résultat

Bill73 · 7 Juin 2020

super, je teste ça.

patricktoulon · 7 Juin 2020

et comme tu peux le voir ca ne perturbe pas les mfc précédentes qui concerne le couleurs une sur 2

Bill73 · 7 Juin 2020

et bien, c'est parfait.
comme quoi, il faut toujours faire simple quand c'est possible.
Merci pour ton aide et à bientôt.

patricktoulon · 7 Juin 2020

quand tu peux oui
tu viens de t'économiser des heures de prises de tète surtout un dimanche ca devrait puni paar la loi
ravi pour toi à+

XL 2016 procédure qui ne fait rien

Bill73

XLDnaute Junior

patricktoulon

Bill73

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Bill73

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Bill73

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Bill73

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Bill73

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Bill73

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Discussions similaires