C
Compte Supprimé 979
Guest
Bonjour à toutes et à tous,
Décidément, j'aurais toujours des problèmes avec ces fichus tableaux
Voici ma fonction personnalisée
Normalement, cela devrait fonctionner
Lorsque je saisi ma formule
par exemple
est systématiquement vide, alors que dans ma feuille j'ai bien des valeurs
Merci d'avance pour l'aide que vous pourrez m'apporter
A+
Décidément, j'aurais toujours des problèmes avec ces fichus tableaux
Voici ma fonction personnalisée
Code:
Function NumSemaine(RngSearch As Range) As Integer Dim Tblo As Variant, JSem As Integer
Dim DerJSem As String
' Redimensionner la plage avec la 2ème colonne
Set RngSearch = RngSearch.Resize(, 2)
' Mémoriser la sélection dans un tableau
Tblo = RngSearch.Value
' Pour chaque jour de la sélection
For JSem = LBound(Tblo, 1) To UBound(Tblo, 1)
If Weekday(Tblo(JSem, 1), vbMonday) < 5 Then
DerJSem = Tblo(JSem, 2)
End If
Next JSem
End Function
Normalement, cela devrait fonctionner
Lorsque je saisi ma formule
Code:
=NumSemaine(A2:A32)
Code:
Tblo(JSem, 2)
Merci d'avance pour l'aide que vous pourrez m'apporter
A+