Bug VBA : chargement d'un contenu dans un tableau

Staple1600

XLDnaute Barbatruc

• 15 Avril 2018

• #2

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.)"

Cliquez pour agrandir...

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 ?)

 

Vote positif 0 Vote négatif

M

michaelexcel

XLDnaute Nouveau

• 15 Avril 2018

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Avril 2018

• #4

Re

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Avril 2018

• #5

Bonjour à tous

@Staple1600

on lit des choses qu'on ne devrait pas lire

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Avril 2018

• #6

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Avril 2018

• #7

Re Jean Marie

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

 

Vote positif 0 Vote négatif

M

michaelexcel

XLDnaute Nouveau

• 15 Avril 2018

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Avril 2018

• #9

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

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

 

Vote positif 0 Vote négatif