XL 2021 PB dans ma VBA

SamLion91 · 3 Février 2024

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

Gégé-45550 · 3 Février 2024

SamLion91 à dit:
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)...

Oneida · 3 Février 2024

Bonjour,
Dans votre fichier, la bdd est vide!

Gégé-45550 · 3 Février 2024

SamLion91 à dit:
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 · 3 Février 2024

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 · 3 Février 2024

p56 à dit:
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 !

XL 2021 PB dans ma VBA

SamLion91

XLDnaute Junior

Gégé-45550

Oneida

XLDnaute Impliqué

Gégé-45550

XLDnaute Accro

p56

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

Discussions similaires