Microsoft 365 ListBox - colonne Lien Hypertexte

[Scorpio]

Bonjour à tous,
J'ai récupéré ce travail dans le Forum, et j'aimerais, car je ne suis pas un champion VBA, faire une correction.
En fait, j'ajoute dans la colonne "E", de la feuil1, des liens hypertextes, et, lorsque je fait le transfert dans la feuille "Transfert",
le lien ne suis pas, il n'est plus un lien, voilà.
Est-ce qu'un membre pourrais juste, s'il vous plaît, me dépanner.
Je vous en remercie et à ++++

 

[Scorpio]

Par exemple, si je fais plus cour ou plus long une colonne sur la feuille, cela modifie en même temps la disposition des titres dans le formulaire

 

[Scorpio]

Je pense avoir trouvé.
Comme ceci, concernant la mobilité des titres dans le formulaire, plus de souci, pour moi en tous les cas.

 

[job75]

La macro EnteteListBox permettait d'ajuster les largeurs des colonnes, je trouve que c'était bien...

J'en profite pour corriger le fichier (3) post #22.

Pour les boutons j'ai remplacé .Rows(ligne) par .Cells(ligne, 1) et .Rows(lig) par .Cells(lig, 1)

Ici ce n'est pas indispensable mais ce le serait si le nombre de colonnes du tableau était un diviseur du nombre de colonnes de la feuille (16384).

 

[Scorpio]

Est-ce que je dois recopier le code du #22 et le changer dans le classeur, je sais pas ??

 

[job75]

Au post #22 j'ai modifié les macros du fichier (3) joint, pas la macro affichée sur le post.

 

[Scorpio]

Je garde le le fichier 3 et je continue comme ça !!!

 

[job75]

Oui, si le nombre de lignes n'est pas très grand ça ne change pas grand-chose.

 

[Scorpio]

Re bonjour job75,
Juste une petite question:
J'aimerais ajouter un format date dans la colonne 4 et 5 du formulaire comme ceci
mercredi, 14 mars 2020, mais ma correction ne fonctionne pas, voici le code

Private Sub CommandButton2_Click() 'Transfert en bloc
Dim d As Object, i&, x$, ligne&
Set d = CreateObject("Scripting.Dictionary")
With [Tableau1]
For i = 1 To .Rows.Count
x = .Cells(i, 1) & .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4) & .Cells(i, 5)
If Not d.exists(x) Then d(x) = i 'mémorise la ligne
Next
End With
ligne = 2
With Sheets("Transfert")
.Range("A2:E" & .Rows.Count).Clear
For i = 0 To ListBox1.ListCount - 1
With ListBox1: x = .List(i, 0) & .List(i, 1) & .List(i, 2) & .List(i, 3) & .List(i, 4): End With
If d.exists(x) Then
[Tableau1].Rows(d(x)).Copy .Rows(ligne)
.Cells(ligne, 1).Validation.Delete 'supprime la liste de validation éventuelle
ligne = ligne + 1
End If
Next
.Cells(ligne, 2) = "Total"
.Cells(ligne, 3) = "=SUM(C1:C" & ligne - 1 & ")"
.Cells(ligne, 3).NumberFormat = "#,##0.00"
.Cells(ligne, 2).Resize(, 2).Font.Bold = True 'gras
.Cells(ligne, 4).Date = "dddd dd mmmmm yyyy" 'Format de la date
.Cells(ligne, 5).Date = "dddd dd mmmmm yyyy" 'Format de la date
.Visible = xlSheetVisible 'si la feuille est masquée
Application.GoTo .[A1]
End With
Unload UserForm1
End Sub

 

[job75]

Ce n'est pas clair, joignez le fichier que vous voulez traiter avec les colonnes de dates.

Je vous rappelle qu'il faut dans la macro remplacer .Rows(ligne) par .Cells(ligne, 1)

 

[Scorpio]

Voici

 

[job75]

Ecoutez soyez un peu cohérent :

- partez de mon fichier (3) dont les macros sont au point

- mettez des dates partout en colonne D et E, ne mélangez pas les choux et les carottes.

Pour faire ce que vous voulez il faudra 2 colonnes supplémentaires transformant les dates en textes.

 

[Scorpio]

OK,
Je laisse tombé
Les dates s'affiche 29/03/2020 dans le formulaire, et je ferais avec.
Merci