XL 2021 PB dans ma VBA

SamLion91

XLDnaute Junior
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
 
Dernière édition:
Solution
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 :
VB:
' ***********************************************************************
' *****                                                             *****
' *****        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 =>...

Gégé-45550

XLDnaute Accro
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 :
VB:
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

XLDnaute Occasionnel
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 :
VB:
' ***********************************************************************
' *****                                                             *****
' *****        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

XLDnaute Accro
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 :
VB:
' ***********************************************************************
' *****                                                             *****
' *****        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 !
 

Discussions similaires

Réponses
3
Affichages
477
Réponses
17
Affichages
934

Statistiques des forums

Discussions
313 209
Messages
2 096 240
Membres
106 541
dernier inscrit
edf