Problème pour affecter plage de cellules dans un tableau (décidément)

[Compte Supprimé 979]

Bonjour à toutes et à tous,

Décidément, j'aurais toujours des problèmes avec ces fichus tableaux 🙁😉


Voici ma fonction personnalisée

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

=NumSemaine(A2:A32)

par exemple

Tblo(JSem, 2)

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+

 

[Dranreb]

Re : Problème pour affecter plage de cellules dans un tableau (décidément)

Bonjour.

Où est-ce que tu affectes la valeur à retourner à NumSemaine dans ta fonction de ce nom ?

 

[david84]

Re : Problème pour affecter plage de cellules dans un tableau (décidément)

Bonjour Bruno,
Sans pouvoir tester j'ai l'impression que ta fonction ne retourne rien (je ne vois pas par exemple NumSemaine=...).
A+

 

[Compte Supprimé 979]

Re : Problème pour affecter plage de cellules dans un tableau (décidément)

Re,

Désolé les gars, le code que j'ai collé n'était pas complet 😱

Mon pb vient surtout du fait que la deuxième partie de mon tableau semble vide 🙁

A+

 

[david84]

Re : Problème pour affecter plage de cellules dans un tableau (décidément)

Re,

Désolé les gars, le code que j'ai collé n'était pas complet 😱

Mon pb vient surtout du fait que la deuxième partie de mon tableau semble vide 🙁

A+

Pourquoi

' Redimensionner la plage avec la 2ème colonne
Set RngSearch = RngSearch.Resize(, 2)

et non pas

 ' Redimensionner la plage avec la 2ème colonne
Set RngSearch = RngSearch.Columns(2)

(non testé).
Le mieux est de poster un petit fichier exemple pour que l'on puisse tester.
A+

 

[job75]

Re : Problème pour affecter plage de cellules dans un tableau (décidément)

Bonjour Bruno, Bernard, David,

La 2ème colonne du tableau n'est pas du tout vide ! Voir fichier joint.

A+

 

[Compte Supprimé 979]

Re : Problème pour affecter plage de cellules dans un tableau (décidément)

Re,

Désolé, problème de réseau ce matin, impossible d'envoyer le fichier 😛

Le voici donc, vous pourrez voir que la cellule F10 me retourne #Valeur! 😕
Si je force la valeur de cette cellule et que j'inscris : 11
C'est la cellule N7 qui pose problème...

Lorsque j'analyse le code à ce moment là,

TbloV(JSem, 2)

est vide !?

Edit : c'est bon j'ai trouvé d'ou venait l'erreur 😀
C'est à cause des jours du mois suivant qui sont remplacés par "" dans mes formules
Cela me créé une erreur et la fonction est annulée

J'ai remis le fichier corrigé, au cas ou cela intéresserait quelqu'un

En tout cas merci.