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

erreur 6 sur un annuaire

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

La Vouivre

XLDnaute Occasionnel
Bonjour les amis du forum

J'ai télécharger l'annuaire v1 de notre ami Nantouillet à l'adresse :

Excel Downloads - Annuaire

un magnifique travail , mais je doit faire une mauvaise manip car quand je recopie une basse de donnée, environ 2000 noms, j'ai un message " erreur 6 dépassements de capacité"
j'ai cherché sur le web à me dépanner, mais je ne comprends pas ou je doit modifier le code.
je ne sais pas modifier les variables ,j'ai trouvé une solution sur le web

Ainsi pour éviter le message d'erreur il suffit de convertir au moins une
des variables Entier en un type Long, Variant, ou Double dans
l'opération. Pour ceci il vous suffit d'utiliser une fonction de
conversion de type tel que Cdouble, CLong, Csimple, etc...

mais je ne sais pas faire , pouvez-vous m'aider ,je ne peu pas passer de fichier, car trop volumineux, je peu le passer par mail ou si vous voulez le consulter à l'adresse ci dessus
bon weekend à tous
 
Trier par date Trier par votes
Re : erreur 6 sur un annuaire

Bonjour,

Essayez de changer Dim x As Byte par Dim x As Long
Code: 
Private Sub initlistbox()
Dim c As Range
Dim x As Long      '/// Dim x As Byte
Dim der As Long

Me.ListBox1.Clear

der = Sheets("Base").Range("C3").End(xlDown).Row
x = 0

For Each c In Sheets("Base").Range("C2:C" & der)
    With ListBox1
        .AddItem c
        .List(x, 0) = c
        .List(x, 1) = c.Offset(0, 1)
 x = x + 1
    End With
Next c

End Sub
 
Vote positif 0 Vote négatif
Re : erreur 6 sur un annuaire

Bonjour à tous

LaVouivre
Une suggestion:
Une autre façon de remplir la ListBox
Code: 
Private Sub initlistbox()
Dim t
Me.ListBox1.Clear
t = Sheets("Base").Range(Cells(2, "C"), Cells(Rows.Count, "D").End(xlUp)).Value
ListBox1.List = t
End Sub
Mets ta procédure initiale en commentaire, puis remplaces là par celle-ci le temps de tester
Et redis-nous si le résultat est le même.
PS: j'ai testé le code ci-dessus avec un ListBox dont la propriété ColumnCount a comme valeur 2


Une autre suggestion
Au cas ou il y aurait des trous dans la colonne C, modifies cette ligne de la procédure originale ainsi
[noparse]der = Sheets("Base").Cells(Rows.Count, "C").End(xlUp).Row[/noparse]
 

Pièces jointes

  • 01Listbox.png
    5.7 KB · Affichages: 80
  • 01Listbox.png
    5.7 KB · Affichages: 76
Vote positif 0 Vote négatif
Re : erreur 6 sur un annuaire

Re

LaVouivre
Je ne serai pas aussi affirmatif
Comme tu peux le constater cela fonctionne 😉

Maintenant que tu n'arrives pas à le faire fonctionner sur ton fichier, c'est une autre histoire 😉
 
Vote positif 0 Vote négatif
Re : erreur 6 sur un annuaire

Bonjour STAple1600
je n'arrive pas à adapter votre code au fichier ,par contre celui de PMO2 je l'ai facilement adapter au programme .Désolé de ne pas avoir donné des nouvelles plus rapidement
je vous remercie pour votre aide
bon weekend à tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL 2021 Erreur 6 dépassement de capacité
Réponses
5
Affichages
320
patricktoulon
P
  • Résolu(e)
Microsoft 365 Erreur d’exécution de type 13
Réponses
4
Affichages
375
Ptitloups56
P
C
  • Résolu(e)
XL 2021 Modifier un annuaire
2
Réponses
20
Affichages
1 K
Oneida
A
  • Question Question
XL 2016 erreur de code
Réponses
10
Affichages
389
AlphaOne
A
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
440
Phil69970
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
341
VBA_dev_Anne_Marie
C
  • Question Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
557
ChTi160
N
  • Résolu(e)
XL 2010 A partir d’un Shape, ouvrir un fichier dont l'adresse est sur une autre feuille dans une cellule
Réponses
4
Affichages
381
Nounours_59
N
N
  • Question Question
XL 2013 installer un fichier.crx sur chromedriver.exe
Réponses
1
Affichages
334
jurassic pork
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
582
Nadou69
  • Question Question
Autres Affichage d'un Userform
Réponses
6
Affichages
173
Poltoine
  • Question Question
XL 2016 Macro erreur exécution
Réponses
8
Affichages
744
crackerwood
  • Résolu(e)
Autres Collage spécial. Ajout d'une courbe sur un graphique existant.
Réponses
7
Affichages
126
CISCO
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
345
Latias
L
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
  • Question Question
XL 2016 Erreur sur mon fichier de génération automatique de planning
Réponses
5
Affichages
449
halecs93
T
  • Question Question
Microsoft 365 Comment colorier les zones de non-conformité sur un graphique
Réponses
6
Affichages
165
Efgé
C
  • Question Question
XL 2021 Créer une vue filtrée sur plusieurs lignes
Réponses
1
Affichages
504
djidji59430
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
511
Gégé-45550
EXCEL :: TRIER - TRIER.PAR - SOMMEPROD - CHOISIR - INDEX - SOMME.SI - NB.SI - DECALER - SEQUENCE : Tris dynamiques, regroupements et somme
Réponses
0
Affichages
168
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…