XL 2021 PB dans ma VBA

[SamLion91]

Bonjour

J'ai un souci dans ma VBA lorsque je sélectionne les sites dans mon USF (pour l'ouvrir, il faut sélectionner 2 cases minimum en longueur pour les dates)
il me note Bug 9
et quand j'ouvre la VBA, il me souligne la ligne bug mais je ne vois pas où est l'erreur

Quelqu'un pourrais t'il m'aider à trouver mon erreur
Cordialement

 

[Oneida]

Bonjour,
Dans votre fichier, la bdd est vide!

 

[Gégé-45550]

Bonjour

J'ai un souci dans ma VBA lorsque je sélectionne les sites dans mon USF (pour l'ouvrir, il faut sélectionner 2 cases minimum en longueur pour les dates)
il me note Bug 9
et quand j'ouvre la VBA, il me souligne la ligne bug mais je ne vois pas où est l'erreur

Quelqu'un pourrais t'il m'aider à trouver mon erreur
Cordialement

Bonjour,
Essayez :

Function TCdg() As Variant
Dim T() As Variant, S As Variant, i As Long

    With Range("Ts_Prjt").ListObject
         If Not .DataBodyRange Is Nothing Then
            T = .ListColumns("Codage").Range.Value
            ReDim Preserve T(1 To UBound(T), 1 To 3)
            For i = 2 To UBound(T) - 1
                S = Split(T(i, 1), ".")
                T(i, 1) = S(0)
                T(i, 2) = S(1)
                T(i, 3) = S(2)
            Next i
        Else
             ReDim T(1 To 1, 1 To 3)
        End If
    End With
    TCdg = T
End Function

Cordialement,

 

[p56]

Bonjour à tous,

Une remarque en passant, je trouve assez indélicat, voire malhonnête de remplacer ou modifier la mention d'origine contenu dans le code :

' ***********************************************************************
' *****                                                             *****
' *****        CODE PierreP56 : http://tatiak.canalblog.com/        *****
' *****                                                             *****
' ***********************************************************************

Et surtout dans l'USF je trouve hallucinant la mention "Créé par Samuel ..."

C'est à dégouter de fournir du code et des fichiers pleinement fonctionnels sur ce forum

Pour rappel => https://excel-downloads.com/threads...un-planning-de-taches.20080683/#post-20626397

 

[Gégé-45550]

Bonjour à tous,

Une remarque en passant, je trouve assez indélicat, voire malhonnête de remplacer ou modifier la mention d'origine contenu dans le code :

' ***********************************************************************
' *****                                                             *****
' *****        CODE PierreP56 : http://tatiak.canalblog.com/        *****
' *****                                                             *****
' ***********************************************************************

Et surtout dans l'USF je trouve hallucinant la mention "Créé par Samuel ..."

C'est à dégouter de fournir du code et des fichiers pleinement fonctionnels sur ce forum

Pour rappel => https://excel-downloads.com/threads...un-planning-de-taches.20080683/#post-20626397

Bonjour p56 (alias Tatiak),
j'avais répondu mais j'ai supprimé ma réponse compte tenu de ce qui précède.
Respect à toi !