Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bug VBA : chargement d'un contenu dans un tableau

michaelexcel

XLDnaute Nouveau
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 !!!
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

On reconnait là le bel ouvrage de ROGER2327
En regardant ses commentaires
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 ?)
 

Staple1600

XLDnaute Barbatruc
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.
 

Staple1600

XLDnaute Barbatruc
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***

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
VB:
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…