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

Erreur d'exe... 6

  • Initiateur de la discussion Initiateur de la discussion JANO
  • Date de début Date de début

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 !

JANO

XLDnaute Occasionnel
Re bonsoir le forum,

J'ai un "dépassement de capacité" et je suis perdu 😕

Merci

With Sheets("sheet1")
If .[b1].Value = "Réponse" Then .[b1].EntireColumn.Delete
imax = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns("B:B").Insert Shift:=xlToRight
.Range("B1").Value = "Réponse"
formule = "=INDEX(base!R2C3:R50000C3,MATCH(1,(base!R2C1:R50000C1=RC1)*(base!R2C2:R50000C2=RC3),0))"
.Range("B2").FormulaArray = formule
.Range("B2").AutoFill Destination:=.Range("b2:b" & imax), Type:=xlFillDefault
End With
 
Re : Erreur d'exe... 6

Bonne nuit je vais dans mon lit.

Au fait pourquoi tes fichiers sont si gros ?

Un fichier exemple ne devrait jamais dépassé 100Ko selon la norme T.E.M.R (MB/0SF) en vigueur sur de nombreux forums.
(100ko non compressés 100 ans)

Bon week-end

(Je repasse ici d'ici peu, ou un peu plus)
 
Re : Erreur d'exe... 6

Re


On a besoin que de quelques lignes pour tester ...inutile d'avoir 7673 lignes là ou 17 lignes suffisaient 🙄
(On a jamais besoin de travailler sur un fichier COMPLET lorsqu'on fait des tests)

PS1: C'est plus prudent ainsi : Dim imax As Long


PS2: 48169 lignes, c'est trop peu pour faire des tests 🙄🙄, tant qu"à faire autant aller jusqu'à 65536 lignes.
 
Dernière édition:
Re : Erreur d'exe... 6

Re


Relis bien le PS1 du message précédent, fais cette modif et essaie de nouveau ton code VBA.

Dis moi si cela change quelque chose.

PS: F1 aurait pu d'expliquer le pourquoi du comment.
 
- 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éponses
5
Affichages
779
Réponses
1
Affichages
1 K
Réponses
6
Affichages
1 K
Réponses
22
Affichages
5 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…