Trouver la position d'un caractère ?

Mattharm · 10 Octobre 2006

Bonjour,

Je cherche à trouver la position d'une chaine dans une chaine
mais dans une macro et pas dans excel directement ?

Il ne prend pas la fonction cherche ?!

J'ai essayé de faire une modification de la casse d'une partie de ma cellule et j'ai écris ca:

Code:

 With ActiveCell.Characters(Start:=1, Length:=0).Font

        .FontStyle = "Gras"

    End With

Et donc à la place du 0 dans Length je voudrais mettre la position d'un caractère de ma chaine 😉

Merci bien
Matthieu

Luki · 10 Octobre 2006

Re : Trouver la position d'un caractère ?

bonjour,

Pour trouver la position de la lettre "z" dans la cellule active

Sub TrouveCaractere()
MsgBox InStr(1, ActiveCell, "z")
End Sub

Mattharm · 10 Octobre 2006

Re : Trouver la position d'un caractère ?

Merci bien !

Une petite question pourquoi est ce que lorsque je remplace dans mon code la longueur d'une chaine par une variable, cela ne fonctionne plus:

Code:

     Cells(x, 2).Select
coup = InStr(1, ActiveCell, "&")
 
        With ActiveCell.Characters(Start:=1, Length:=coup).Font
        .FontStyle = "Gras"
    End With
    With ActiveCell.Characters(Start:=coup + 1, Length:=0).Font
        .FontStyle = "Normal"
    End With

Matthieu

Luki · 11 Octobre 2006

Re : Trouver la position d'un caractère ?

Bonjour Matthieu,

Je vois une erreur dans ton 2ème groupe with.
Pour passer ton texte en "normal" tu n'indique aucune longueur. Apporte la correction ci-dessous:

Code:

coup = InStr(1, ActiveCell, "&")
 
        With ActiveCell.Characters(Start:=1, Length:=coup).Font
        .FontStyle = "Gras"
    End With
    With ActiveCell.Characters(Start:=coup + 1, Length:=[B][COLOR=Red]Len(ActiveCell) - coup[/COLOR][/B]).Font
        .FontStyle = "Normal"
    End With

Vois si c'est là le problème.
A+

Trouver la position d'un caractère ?

Mattharm

XLDnaute Occasionnel

Luki

XLDnaute Accro

Mattharm

XLDnaute Occasionnel

Luki

XLDnaute Accro

Discussions similaires

Trouver la position d'un caractère ?

Mattharm

XLDnaute Occasionnel

Luki

XLDnaute Accro

Mattharm

XLDnaute Occasionnel

Luki

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency