recherche caractere

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Micflo
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 27 février 2005

Message par Micflo » 28 mars 2006, 21:52

Bonjour
Dans une chaine alphanumerique de 17 caractères je voudrai que le 10 ème soit de couleur rouge ald de noir

ex : VF1FGTE8524658159
:?: :?:
s
soft
Membre fidèle
Membre fidèle
Messages : 172
Inscrit le : 29 septembre 2005
Version d'Excel : FR 2003 & 2007
Contact :

Message par soft » 29 mars 2006, 16:46

Si c'est juste le texte d'une cellule, alors tu sélectionne le caractère concerné dans la barre de formule et tu changes la couleur ..

Par contre si c'est pour un beaucoup de cellules, on peut faire une macro qui va le faire tout seul :

Par exemple pour faire toute la 1ère colonne (A) :
Sub Couleur()
    Dim LongueurTexte As Integer
    Dim Ligne As Long
    
    For Ligne = 1 To Range("A1").End(xlDown).Row
        LongueurTexte = Len(Range("A" & Ligne).Text)
        If LongueurTexte >= 10 Then
            Range("A" & Ligne).Cells.Characters(Start:=1, Length:=9).Font.ColorIndex = 1
            Range("A" & Ligne).Cells.Characters(Start:=10, Length:=1).Font.ColorIndex = 3
            If LongueurTexte >= 11 Then Range("A" & Ligne).Cells.Characters(Start:=11, Length:=LongueurTexte - 10).Font.ColorIndex = 1
        End If
    
    Next Ligne
End Sub
[size=150][i][b]soft[/b][/i][/size] :spider:
M
Micflo
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 27 février 2005

Message par Micflo » 29 mars 2006, 18:23

Merci
cétait evidemment pour plusieurs cellules
Je vais essayer au plus vite
Si ce n'est pas la colonne A je suppose qu'il faut le remplacer par la lettre concernée ( je ne connais rien aux macro)
M
Micflo
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 27 février 2005

Message par Micflo » 29 mars 2006, 21:03

Salut Soft

Je ne m'en sort pas
Je te joint le fichier , il sagit de la colonne R
Je souhaite faire apparaitre en rouge le 10 ème caractere
https://www.excel-pratique.com/~files/doc/169-2_J-0601 Essai.xls

Le fichier original est plus important et comporte plusieurs onglets

Peux tu transmettre ta macro si tu résoud mon problème

Merci
s
soft
Membre fidèle
Membre fidèle
Messages : 172
Inscrit le : 29 septembre 2005
Version d'Excel : FR 2003 & 2007
Contact :

Message par soft » 30 mars 2006, 07:40

J'ai adapté la macro dans ce fichier

Le problème venait je pense des cellules vides dans la colonne R (la macro s'arrête dès qu'il n'y a plus de données), on commence aussi la macro à la ligne 2.

PS: évite les espaces dans tes liens
[size=150][i][b]soft[/b][/i][/size] :spider:
M
Micflo
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 27 février 2005

Message par Micflo » 31 mars 2006, 18:13

Merci Soft

je vois que cela fontionne bien mais comment fiat on pour faire tourner cette macro dans d'autre fichier
Je reçois ce type de fichier tous les mois
Je suis désolé de ces questions stupide mais je n'ai aucune formation macro
s
soft
Membre fidèle
Membre fidèle
Messages : 172
Inscrit le : 29 septembre 2005
Version d'Excel : FR 2003 & 2007
Contact :

Message par soft » 3 avril 2006, 17:23

Plusieurs possibilités ... comme copié le code VBA dans chaque nouveau classeur, faire un bouton dans le classeur et lui affecter la macro existante dans le fichier C:\......\Micflo.xls!Couleur... Ou encore plus pro : créer une macro complémentaire (xla) disponible dans Excel.

Précision : je donne volontiers un petit conseil, mais je ne fais (en principe) pas le boulot des autres, ni de formation.
[size=150][i][b]soft[/b][/i][/size] :spider:
M
Micflo
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 27 février 2005

Message par Micflo » 6 avril 2006, 22:32

Désolé pour le dérangement et merci quand même

Mon patron m'offre une petite initiation macro d'une demi journée , j'espere apprendre un peu
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message