Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/08/2011, 11h44   #1
Invité de passage
 
Inscription : mai 2008
Messages : 27
Détails du profil
Informations forums :
Inscription : mai 2008
Messages : 27
Points : 3
Points : 3
Par défaut message d'erreurs VBA

bonjour
j'ai réalisé une macro avec excel 2003, la derniere colonne de mon TABLEAU sur excel coef saisonnier ne fonctionne pas lorsque je clique sur mon bouton calculer et m'indique un bug voir fichier en pièce jointe.
merci pour votre aide
HERBINE

Fichier joint dans vos discussions
HERBINE est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/08/2011, 11h51   #2
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 773
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 773
Points : 16 847
Points : 16 847
Envoyer un message via Skype™ à bbil
Un peu d'effort dans la description de votre problème il affiche quoi votre écran le texte : "bug"?
sur qu'elle le ligne de code ?
...
bbil est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/08/2011, 12h52   #3
Invité de passage
 
Inscription : mai 2008
Messages : 27
Détails du profil
Informations forums :
Inscription : mai 2008
Messages : 27
Points : 3
Points : 3
Par défaut message d'erreurs VBA

bonjour
j'ai réalisé une macro avec excel 2003, la dernière colonne de mon TABLEAU sur excel coef saisonnier ne fonctionne pas lorsque je clique sur mon bouton calculer et m'indique un bug message d’erreur sur la ligne suivante :
Code :
Cells(i, 6).Value = Cells(i, 2).Value / Cells(i, 5).Value
merci pour votre aide
bien cordialement
HERBINE
HERBINE est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/08/2011, 13h01   #4
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 889
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 889
Points : 7 162
Points : 7 162
Bonjour,

Il faut gérer les erreurs (possibilité d'avoir une division par 0)
Code :
1
2
3
If Cells(i, 5).Value <> 0 Then
    Cells(i, 6).Value = Cells(i, 2).Value / Cells(i, 5).Value
End If
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/08/2011, 14h44   #5
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 773
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 773
Points : 16 847
Points : 16 847
Envoyer un message via Skype™ à bbil
Citation:
Envoyé par HERBINE Voir le message
...m'indique un bug message d’erreur sur la ligne suivante :
Code :
Cells(i, 6).Value = Cells(i, 2).Value / Cells(i, 5).Value
merci pour votre aide
bien cordialement
HERBINE
On avance ... et le message d'erreur ... ? c'est quoi ?
bbil est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h29.


 
 
 
 
Partenaires

Hébergement Web