Formule excel

Fermé
Jepatauge Messages postés 23 Date d'inscription samedi 31 janvier 2015 Statut Membre Dernière intervention 7 février 2015 - 7 févr. 2015 à 18:33
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 - 7 févr. 2015 à 19:29
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

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
7 févr. 2015 à 18:42
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 23 Date d'inscription samedi 31 janvier 2015 Statut Membre Dernière intervention 7 février 2015
7 févr. 2015 à 18:55
Ok merci
0
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734 > Jepatauge Messages postés 23 Date d'inscription samedi 31 janvier 2015 Statut Membre Dernière intervention 7 février 2015
7 févr. 2015 à 19:01
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 23 Date d'inscription samedi 31 janvier 2015 Statut Membre Dernière intervention 7 février 2015 > via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024
7 févr. 2015 à 19:23
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 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734 > Jepatauge Messages postés 23 Date d'inscription samedi 31 janvier 2015 Statut Membre Dernière intervention 7 février 2015
Modifié par via55 le 7/02/2015 à 19:30
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