ou ai-je fait une errerur (macro)

  • Initiateur de la discussion Initiateur de la discussion gege21
  • 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 !

gege21

XLDnaute Occasionnel
bonsoir a tous

je se code qui marche
je l'ai intégrer dans mon projet et la il plante je du zappe quelque chose
mais je trouve pas koi

Cijoint.fr - code qui plante
 
Re : ou ai-je fait une errerur (macro)

Salut gege, il faut déclarer toutes tes variables, Il en maque 2 (An-ok et n)
@+

Code:
Option Explicit
' -------------------------
' -  Graphique mini maxi  -
' -      TEMPERATURE      -
' -------------------------
Sub temperatureminimaxi()
  Dim DLig As Long, Lig As Long
  Dim FirstCel As String, LastCel As String
  Dim FirstF As String, LastF As String
  Dim VAn As Integer
  Dim Zone As String
  Dim An_ok
  Dim n
 
Re : ou ai-je fait une errerur (macro)

Bonsoir Gege, j'utilise Excel 2003 et je 'ai pas de problème, j'ai modifié également le nombre de ligne ici.

Code:
For n = 1 To Sheets("Données").Range("A65536").End(xlUp).Row 
'à la place de
For n = 1 To Sheets("Données").Range("A1048576").End(xlUp).Row
 
Re : ou ai-je fait une errerur (macro)

re .
alors la y comparant plus rien en déclarant les 2 variable et repassant a 65536 ligne tout marche
le seul et gros problème🙁 et qui j'aurai plus de 65000 ligne)
que faire 😕
au cas ou voila le code d'origine
ps : sur le code d'origine les 2 variable non déclare et plus 104000 de ligne tout marche bien ????
 

Pièces jointes

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

  • Question Question
Microsoft 365 Problème plantage
Réponses
14
Affichages
488
  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
661
Réponses
3
Affichages
222
Retour