XL 2021 Colorier un partie d'un txt

hermann · 21 Janvier 2025

Bonjour Mesdames et Messieurs

Svp, je voudrai obtenir le résultat du lien en gras et en couleur rouge

='Ibk-h-1932'!J31&" (ID """&'Ibk-h-1932'!B31&""")"

Merci pour votre aide
Arnold

hermann · 21 Janvier 2025

crocrocro à dit:
j'ai fait un test avec le fichier de @Nicolas JACQUIN :
dans la formule, 'Ibk-h-1932'!J31 représente la cellule J31 de la feuille Ibk-h-1932
Si, (c'est ce que j'ai fait), on créé la feuille, la formule en B3 est alors une vraie formule et rien n'est colorié en rouge après exécution de la macro.
Je ne m'explique d'ailleurs pas pourquoi Excel ne signale pas une erreur quand la feuille n'existe pas.
Mais peut-être que je n'ai pas compris la demande.
[EDIT] je viens de comprendre :
la 1ère apostrophe après le signe = indique que ce qui suit doit être interprété comme du texte.
Même si, Excel indique que la cellule a un format de Cellule = Standard 😡
Pour que la cellule soit à nouveau avec une formule, en 2 temps :
- supprimer le signe = et la 1ère apostrophe et sélectionner une autre cellule
- Revenez sur la cellule et remettez le signe = et la 1ère apostrophe
Si la feuille Ibk-h-1932 existe on aura le résultat de la formule sinon une erreur #REF!

Oui, Mais Le
1er lien indique la rue avec son nr de la rue
Le
2m lien donne un aperçu de la Id de la personne "en rouge"
Suit a sa il auras un accès complet au fichier rechercher. (en future en HyperText)
Merci
Arnold

TooFatBoy · 21 Janvier 2025

crocrocro à dit:
j'ai fait un test avec le fichier de @Nicolas JACQUIN :
dans la formule, 'Ibk-h-1932'!J31 représente la cellule J31 de la feuille Ibk-h-1932
Si, (c'est ce que j'ai fait), on créé la feuille, la formule en B3 est alors une vraie formule et rien n'est colorié en rouge après exécution de la macro.

Oui, si j'ai bien compris le code de sa macro et son intention, au lieu de colorier la deuxième variable de la formule ça colorie la première variable dans la formule, mais de toute façon au lieu de colorier complètement la variable de la formule ça colorie uniquement le nom de la feuille dans la formule, mais de toute façon au lieu de colorier une partie du texte résultat de la formule ça colorie une partie de la formule elle-même...

Ceci dit, je n'ai peut-être pas bien compris le code et l'intention.

TooFatBoy · 21 Janvier 2025

hermann à dit:
Svp, je voudrai obtenir le résultat du lien en gras et en couleur rouge

='Ibk-h-1932'!J31&" (ID """&'Ibk-h-1932'!B31&""")"

Une proposition (à partir du classeur de #13) en pièce jointe.

VB:

Sub VerkettenUndEinfarben()
'
Dim Strasse As String, ID As String, Ergenis As String
Dim Beginn As Integer, Lange As Integer

    Strasse = Sheets("Ibk-h-1932").Range("U31").Value2
    ID = Sheets("Ibk-h-1932").Range("B31").Value2
    Ergebnis = Strasse & " (ID """ & ID & """)"

    Beginn = Len(Strasse) + 7
    Lange = Len(ID)

    With Sheets("Feuil1").Range("C23")
        .Value2 = Ergebnis
        With .Characters(Beginn, Lange).Font
            .Bold = True
            .Color = vbRed
        End With
    End With

End Sub

hermann · 22 Janvier 2025

TooFatBoy à dit:

Une proposition (à partir du classeur de #13) en pièce jointe.

VB:

Sub VerkettenUndEinfarben()
'
Dim Strasse As String, ID As String, Ergenis As String
Dim Beginn As Integer, Lange As Integer

    Strasse = Sheets("Ibk-h-1932").Range("U31").Value2
    ID = Sheets("Ibk-h-1932").Range("B31").Value2
    Ergebnis = Strasse & " (ID """ & ID & """)"

    Beginn = Len(Strasse) + 7
    Lange = Len(ID)

    With Sheets("Feuil1").Range("C23")
        .Value2 = Ergebnis
        With .Characters(Beginn, Lange).Font
            .Bold = True
            .Color = vbRed
        End With
    End With

End Sub

Bonsoir Monsieur

On s'approche (Mais je rien compris)
Demain il y un autre jour 🙂

A demain !

TooFatBoy · 22 Janvier 2025

hermann à dit:
On s'approche (Mais je rien compris)

Je dirais même qu'on y était... avant que tu changes l'emplacement des données sources.
Si tu changes l'emplacement des données, il faut aussi changer l'emplacement dans la macro, sinon ça ne risque pas de fonctionner. 😉

Il y a deux macros, chacune associée à un bouton, pour te montrer deux façons de procéder.

hermann · 22 Janvier 2025

TooFatBoy à dit:
Je dirais même qu'on y était... avant que tu changes l'emplacement des données sources.
Si tu changes l'emplacement des données, il faut aussi changer l'emplacement dans la macro, sinon ça ne risque pas de fonctionner. 😉

Il y a deux macros, chacune associée à un bouton, pour te montrer deux façons de procéder.

Bonjour Monsieur
Merci!

En révision
Danke
Arnold

TooFatBoy · 22 Janvier 2025

hermann à dit:
Avec le lien de renvoi sur la page collecte, le rouge a disparu.

C'est normal.

⚠️ Il va ABSOLUMENT falloir ARRÊTER de changer l'emplacement des données à chaque fichier posté !!! ⚠️

TooFatBoy · 22 Janvier 2025

Dernière proposition :

VB:

Sub VerkettenUndEinfarben()
'
Dim Strasse As String, ID As String, Ergenis As String
Dim Beginn As Integer, Lange As Integer, i As Integer

    i = 4

    While Sheets("Ibk-h-1932").Range("B" & i).Value2 <> ""

        Strasse = Sheets("Ibk-h-1932").Range("J" & i).Value2
        ID = Sheets("Ibk-h-1932").Range("B" & i).Value2
        Ergebnis = Strasse & " (ID """ & ID & """)"

        Beginn = Len(Strasse) + 7
        Lange = Len(ID)

        With Sheets("Collecte-Ibk-1932")
            .Hyperlinks.Add .Range("F" & i), Address:="https://excel-downloads.com/threads/colorier-un-partie-dun-txt.20086026/post-20676396"
            With .Range("F" & i)
                .Value2 = Ergebnis
                With .Font
                    .Underline = False
                    .Name = "Times New Roman"
                    .Size = 20
                    .Color = vbBlack
                End With
                With .Characters(Beginn, Lange).Font
                    .Bold = True
                    .Color = vbRed
                End With
            End With
        End With

        i = i + 1

    Wend

End Sub

hermann · 22 Janvier 2025

TooFatBoy à dit:
C'est normal.

⚠️ Il va ABSOLUMENT falloir ARRÊTER de changer l'emplacement des données à chaque fichier posté !!! ⚠️

Bonjour Monsieur

J'ai utiliser les nom d'origine avec les info simple
Nom des dossier
- Collecte-Ibk-1932 (de a..z)
- Ibk-h-1932 (alphabet H) nombre d'entrée 2105
Sa vous donne un aperçu réelle
Danke
Arnold

crocrocro · 22 Janvier 2025

Bonjour,
@hermann et @TooFatBoy , pour éviter le jeu de Pile ou Face concernant les références de cellules, utilisez des cellules nommées. 😉

hermann · 22 Janvier 2025

crocrocro à dit:
Bonjour,
@hermann et @TooFatBoy , pour éviter le jeu de Pile ou Face concernant les références de cellules, utilisez des cellules nommées. 😉

Bonsoir Cro 🙂

Comment: nommée les 2 col (Info adresse et les ID)

Mais je vue avec les Hypertexte on peut aussi colore les résultat ?

Merci
Arnold

TooFatBoy · 22 Janvier 2025

As-tu vu la proposition en #23 ?
Est-ce que ça convient ?

hermann · 22 Janvier 2025

TooFatBoy à dit:
As-tu vu la proposition en #23 ?
Est-ce que ça convient ?

Bonsoir Monsieur

Votre dernière file est sans scripte. Portant j'ai bien apprécier votre travail !!
Danke Arnold

TooFatBoy · 22 Janvier 2025

hermann à dit:
Votre dernière file est sans scripte.

Oui, car je parlais de la version 003 proposée dans le message #23.

hermann · 22 Janvier 2025

TooFatBoy à dit:
Oui, car je parlais de la version 003 proposée dans le message #23.

Le derniere scripte, pouvait l'envelopper dans un file ? merci

SVP, a supprimer le dossier: Feuile1
et a utiliser uniquement les dossier Collecte..... et Ibk-h-1932

Danke für Ihre Hilfe
Arnold

XL 2021 Colorier un partie d'un txt

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency