Nous sommes actuellement le 28 Mars 2024, 04:48

Le fuseau horaire est UTC-5 heures [Heure d’été]




Publier un nouveau sujet Répondre au sujet  [ 2 message(s) ] 
Auteur Message
 Sujet du message: Problème code VBA Excel
MessagePublié: 07 Août 2010, 08:09 
Hors-ligne
Fidèle
Fidèle

Inscription : 07 Jan 2002, 09:35
Message(s) : 630
Localisation : Lévis
Bonjour,

J'ai l'erreur suivante lorsque je j'exécute la macro ci-dessous dans Excel 2003 :

Code :
Erreur d'exécution '9':

L'indice n'appartient pas à la sélection.


Je crois que ca a rapport avec la sélection de la cellule G26 :

Code :
Sub PireMois()

Dim VAR1, VAR2, VAR3

Sheets("Hebdomadaire").Select

VAR1 = Application.WorksheetFunction.Max(Sheets("Hebdomadaire!O6:O57"))
VAR2 = Sheets("Hebdomadaire").VAR1
VAR3 = Range("A6", VAR2).Value

Sheets("Sommaire").Select
Sheets("Sommaire").Cell("G26").Value = VAR3

End Sub


Quelqu'un a une idée?

Merci.


Haut
 Profil  
Répondre en citant  
 Sujet du message: Re: Problème code VBA Excel
MessagePublié: 07 Août 2010, 10:55 
Hors-ligne
Référence
Référence
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 00:24
Message(s) : 5834
j'ai jamais fait de VBA dans Excel, mais je suspecterais la valeur de VAR1 et l'erreur est possiblement lors de l'exécution de cette ligne:

VAR2 = Sheets("Hebdomadaire").VAR1

modifier votre code comme suit pour savoir exactement où l'erreur se produit

Code :
Sub PireMois()
  on error goto errHandler

1:  Dim VAR1, VAR2, VAR3

2:  Sheets("Hebdomadaire").Select

3:  VAR1 = Application.WorksheetFunction.Max(Sheets("Hebdomadaire!O6:O57"))
4:  VAR2 = Sheets("Hebdomadaire").VAR1
5:  VAR3 = Range("A6", VAR2).Value

6:  Sheets("Sommaire").Select
7:  Sheets("Sommaire").Cell("G26").Value = VAR3
  exit sub

errHandler:
  MsgBox Err.Number & " - " & Erl & " - " Err.Description
End Sub


Dans le temps en VB j'avais créé un programme qui ajoutais ces numéros de ligne automatiquement au moment de la compilation (pour les versions de debug), le code source original demeurait donc inchangé. À défaut de quoi tu peux regarder pour MZTools (http://www.mztools.com/v3/mztools3.aspx)

_________________
This posting is provided "AS IS" with no warranties, and confers no rights!
©2006 - 2014 Jump


Haut
 Profil  
Répondre en citant  
Afficher les messages publiés depuis :  Trier par  
Publier un nouveau sujet Répondre au sujet  [ 2 message(s) ] 

Le fuseau horaire est UTC-5 heures [Heure d’été]


Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 7 invité(s)


Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum

Recherche de:
Aller vers :  
cron
Propulsé par phpBB® Forum Software © phpBB Group
Traduction et support en françaisHébergement de site