XL 2021 Colorier un partie d'un txt

[hermann]

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

 

[TooFatBoy]

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

C'est déjà ce que j'ai fait dans la réponse #23. 😉

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

C'est déjà le cas : le message #23 contient le fichier.
Mais je viens de me rendre compte que j'ai oublié de "calculer" le lien hypertexte dans le fichier 003. 🙁


Nouvelle proposition, avec le lien hypertexte cette fois-ci...

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:="", SubAddress:="'Ibk-h-1932'!B" & i
            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]

C'est déjà ce que j'ai fait dans la réponse #23. 😉



C'est déjà le cas : le message #23 contient le fichier.
Mais je viens de me rendre compte que j'ai oublié de "calculer" le lien hypertexte dans le fichier 003. 🙁


Nouvelle proposition, avec le lien hypertexte cette fois-ci...

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:="", SubAddress:="'Ibk-h-1932'!B" & i
            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

 

[TooFatBoy]

Ist alles OK? 😉

 

[hermann]

C'est déjà ce que j'ai fait dans la réponse #23. 😉



C'est déjà le cas : le message #23 contient le fichier.
Mais je viens de me rendre compte que j'ai oublié de "calculer" le lien hypertexte dans le fichier 003. 🙁


Nouvelle proposition, avec le lien hypertexte cette fois-ci...

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:="", SubAddress:="'Ibk-h-1932'!B" & i
            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

Bonsoir Monsieur

Pour moi toute va très bien ( Alles zum Besten, Danke )

Note bene
Je peut ajoute toute le reste du fichier "H" ?

Votre ID correspond a votre âme. Merci
Arnold

 

[TooFatBoy]

Je peut ajoute toute le reste du fichier "H" ?

C'est-à-dire ???

 

[hermann]

C'est-à-dire ???

Les 2015 fichier?

 

[TooFatBoy]

Désolé, je ne comprends pas.

La macro commence en J4 de la feuille "Ibk-h-1932", crée le lien, et descend jusqu'à rencontrer une cellule vide en colonne J de la feuille "Ibk-h-1932".
Ca répond à ta question ?

 

[hermann]

Désolé, je ne comprends pas.

La macro commence en J4 de la feuille "Ibk-h-1932", crée le lien, et descend jusqu'à rencontrer une cellule vide en colonne J de la feuille "Ibk-h-1932".
Ca répond à ta question ?

Dans le fichier d'origine elle fini a la 2105 (Col j) et aussi pour la col B

Comment je dois faire avec l'alphabet complet A..Z avec 37 000 entrées. Mais sa on verras demain, Monsieur
Administrativement cadastralement (de l'pèque de Habsbourg)
actuellement j'arrive a la lettre H ....
Je voudrais bien d'envoyer le fichier complet par message. Vous voyer être autre chose que moi ....
Arnold

 

[TooFatBoy]

Je voudrais bien d'envoyer le fichier complet par message. Vous voyer être autre chose que moi ....

Si le fichier contient des données personnelles, alors c'est contraire à RGPD, donc interdit sur ce forum.

 

[hermann]

Si le fichier contient des données personnelles, alors c'est contraire à RGPD, donc interdit sur ce forum. dans l'année 1932 toute est mord. Ce sont des info simple

L.-Nr.

F-Name

V-Name

Beruf

Frauen 560

Orts-Fraktionen

Adresse

H. Nr.

Adresse + H.Nr.

L-Nr. Archiv

Index der Bewohner pro Hausnummer

Index der Bewohner pro K.Gemeinde -H

Index die weiblichen Vornamen -Alphab. -H

Haa-1-Ric

Haack

Richard

Buchhalter d. Ldw.-Krankenkasse

Wilten

Müllerstraße

4

Müllerstraße-4

1

Müllerstraße-4 - Haa 1 Ric

Altstadt

54

Adelheid

[td]

2



​

[/td]​

 

[hermann]

https://www.sendspace.com/file/fnbmwr

Calendrier hebdo lunaire avec Excel

 

[hermann]

Bonne nuit, a demain
Merci pour toute "TFB"

 

[TooFatBoy]

Demain je n'aurais pas trop le temps. 😕


Bonne nuit
🖖