Bug VBA : chargement d'un contenu dans un tableau

[michaelexcel]

Bonjour à tous,

La difficulté que je rencontre provient d'un code que l'on m'a aidé à réaliser sur ce forum. Ca a fonctionné pendant des années. Hélas, un bug vient d'apparaître et avec mes connaissances limitées en VBA, je n'ai pas le début d'une piste pour comprendre où ça coince.

Voilà la situation :

Sur la page AGENDA, quand on change la semaine via les boutons situé en haut sur I2:K2, cela lance l'actualisation de l'agenda C621. La Sub en question s'appelle "toto", elle se trouve dans le module 3 et elle plante quand elle tente de charger le contenu de RV dans ri.

Qqun pour un diagnostique ?

D'avance mille mercis !!!

 

[Staple1600]

Bonjour le fil, le forum

On reconnait là le bel ouvrage de ROGER2327
En regardant ses commentaires

"Feuil9.[RV] est une plage nommée dynamique définie par
=DECALER('Système Agenda'!$B$1:$E$1;;;MAX(('Système Agenda'!$B$1:$B$2001<>"""")*LIGNE('Système Agenda'!$1:$2001))
Elle s'adapte automatiquement au nombre de lignes de données dans les colonnes B:E de l'onglet Système Agenda. (2000 lignes au maximum.)"

Puis en allant dans le gestionnaire de noms
1) on lit des choses qu'on ne devrait pas lire
2) on voit une erreur dans un nom
3) on voit que RV est modifiée (mais pas en respectant la syntaxe de la formule originale, non ?)

 

[michaelexcel]

Parfait, mille mercis !!! C'est vrai que cette ligne, je n'y comprends rien... J'ai du la modifier en changeant le nom de la feuille.

Merci beaucoup

 

[Staple1600]

Re

@michaelexcel
Tu n'es donc pas interpellé par le 1) de mon précédent message ?

 

[Lone-wolf]

Bonjour à tous

@Staple1600

on lit des choses qu'on ne devrait pas lire

.
Bah! Tant que ce n'est pas des cochonneries, ça va.

En testant la macro j'ai l'erreur Objet requit. Ici
Dim ri()
With Feuil9.[RV]
ri = .Value

Mais vus que c'est ROGER2327....

 

[Staple1600]

Bonjour Lone-Wolf

Moi je ne parlais pas cochonneries mais plutôt confidentialité...
Par exemple, le nom Identifiant pointe vers
https://d.docs.live.net/*/[EXCEL NIVEAU 2 - partie 14.xlsm]CLIENTS'!$A:$A
Idem pour le nom Références

Si j'étais moi, j'aurais supprimé ces noms* avant de joindre mon fichier exemple...

*: donc les liens qui s'y rapportent.

 

[Lone-wolf]

Re Jean Marie

@Staple1600 : j'avais compris . C'était juste un brin d'humour.

 

[michaelexcel]

Merci pour le commentaire, Je ne m'en étais pas rendu compte. J'ai retiré le fichier...

 

[Staple1600]

Re

@michaelexcel
Pour l'intérêt du fil
Pour les autres membres du forum
Pour le partage des connaissances
Tu pouvais simplement supprimer les noms cités dans le gestionnaire de noms puis uploader un nouveau fichier expurgé*

NB: *:Sans oublier également de faire le ménage dans les propriétés du fichier, où on pouvait lire...
Auteur:Michaël D**illi***

Spoiler: aparté pour petit plaisir personnel

Je remets le code de ROGER2327 pour le plaisir de le lire de nouveau
En espérant qu'il revienne sous peu faire un tour sur les ondes d'XLD
ROGER, si tu nous entends

Sub toto()
Dim i%, j%, k%, d As Date, ri(), rt(), s(1 To 16, 1 To 14)
  With Feuil9.[RV]
    ri = .Value
    .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Key2:=.Cells(1, 2), Order2:=xlAscending, Header:=xlYes
    rt = .Value
    .Value = ri
  End With
  Erase ri
  With Feuil2
    With .[SemAct]
      For i = 1 To .Areas.Count
        On Error Resume Next
        d = .Areas(i).Value
        If Err.Number = 0 Then
          k = 0
          For j = 2 To UBound(rt)
            If rt(j, 1) = d Then
              k = k + 1
              s(k, 2 * i - 1) = rt(j, 2)
              s(k, 2 * i) = rt(j, 3)
            End If
          Next
        End If
      Next
    End With
    Application.EnableEvents = False
    .[Sem].Value = s
    Application.EnableEvents = True
  End With
End Sub