Formule excel

Jepatauge Messages postés 26 Statut Membre -  
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   -
bonsoir à tous
J ai besoin de coup de main de votre part :
J ai une liste de clients donc certains de leur numéro son barré (format) et d autre client pas.
J aimerai faire apparaître en couleur les clients qui n ont pas leur numéro barré.
Ma liste contient environ 1000 lignes.
Merci d avance pour votre aide.
Alex

1 réponse

Réponse 1 / 1
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour Alex

Faisable avec une macro, exemple avec les codes en colonne A (à adapter à ton fichier) 
Sub colobar()
Dim dl As Long
dl = ActiveSheet.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 1 To dl
If Range("A" & n).Font.Strikethrough = True Then Range("A" & n).Interior.ColorIndex = 6
Next
End Sub


Cdlmnt
0
Jepatauge Messages postés 26 Statut Membre
 
Ok merci
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750 > Jepatauge Messages postés 26 Statut Membre
 
Erratum !

Ma macro met en couleur les clients dont le N° est barré mais en relisant mieux ton message ce sont les clients non barrés que tu veux en couleur donc pour rectifier remplacer le True dans la macro par False

Cdlmnt
0
Jepatauge Messages postés 26 Statut Membre > via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir via55
J ai appliqué la macro mais j ai une réponse : erreur de syntaxe. J ai un message lorsque je termine la ligne 5 : erreur de compilation Attendu : identification ou expression entre crochets.
J ai adapté votre macro en modifiant la colonne a par e car mes info barrées si trouvent.
Ai je fais une erreur ?
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750 > Jepatauge Messages postés 26 Statut Membre
 
Sans voir ta macro je ne peux pas dire !

La bonne macro serait : 

Sub colobar()
Dim dl As Long
dl = ActiveSheet.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 1 To dl
If Range("E" & n).Font.Strikethrough = False Then Range("E" & n).Interior.ColorIndex = 6
Next
End Sub


Le test de la dernière ligne remplie se fait sur la 1ere colonne si tu veux qu'il se fasse sur une autre colonne tu changes le 1 entre les () pour le n° de la colonne voulue
0