J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de
capacité) et je vois pas vraiment pourquoi.
Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)"
Une petite idée ?
Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes
Cells(i, 11) = Cells(i, 4) / Cells(i, 3)
Cells(i, 12) = Cells(i, 5) / Cells(i, 3)
il fonctionne.
Sub test()
Dim i As Long
Dim x As Range
If Selection.Rows.Count > 1 Then
Set x = Selection
Else
Set x = ActiveSheet.UsedRange.Rows
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Tu n'as pas de cellule vide ou à zéro comme diviseur ? Daniel "If" <~ a écrit dans le message de news: 41ec58d6$0$323$
Bonsoir, Bonjour,
J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de capacité) et je vois pas vraiment pourquoi. Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)" Une petite idée ? Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes Cells(i, 11) = Cells(i, 4) / Cells(i, 3) Cells(i, 12) = Cells(i, 5) / Cells(i, 3) il fonctionne.
Sub test() Dim i As Long Dim x As Range
If Selection.Rows.Count > 1 Then Set x = Selection Else Set x = ActiveSheet.UsedRange.Rows End If
Bonjour.
Tu n'as pas de cellule vide ou à zéro comme diviseur ?
Daniel
"If" <~yves.duchene@skynet.be> a écrit dans le message de news:
41ec58d6$0$323$ba620e4c@news.skynet.be...
Bonsoir, Bonjour,
J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de
capacité) et je vois pas vraiment pourquoi.
Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)"
Une petite idée ?
Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes
Cells(i, 11) = Cells(i, 4) / Cells(i, 3)
Cells(i, 12) = Cells(i, 5) / Cells(i, 3)
il fonctionne.
Sub test()
Dim i As Long
Dim x As Range
If Selection.Rows.Count > 1 Then
Set x = Selection
Else
Set x = ActiveSheet.UsedRange.Rows
End If
Bonjour. Tu n'as pas de cellule vide ou à zéro comme diviseur ? Daniel "If" <~ a écrit dans le message de news: 41ec58d6$0$323$
Bonsoir, Bonjour,
J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de capacité) et je vois pas vraiment pourquoi. Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)" Une petite idée ? Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes Cells(i, 11) = Cells(i, 4) / Cells(i, 3) Cells(i, 12) = Cells(i, 5) / Cells(i, 3) il fonctionne.
Sub test() Dim i As Long Dim x As Range
If Selection.Rows.Count > 1 Then Set x = Selection Else Set x = ActiveSheet.UsedRange.Rows End If
Oh oui ! Merci Me reste donc à insérer une condition.
"Daniel" a écrit dans le message de news: 41ece915$0$1031$
Bonjour. Tu n'as pas de cellule vide ou à zéro comme diviseur ? Daniel "If" <~ a écrit dans le message de news: 41ec58d6$0$323$
Bonsoir, Bonjour,
J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de capacité) et je vois pas vraiment pourquoi. Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)" Une petite idée ? Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes Cells(i, 11) = Cells(i, 4) / Cells(i, 3) Cells(i, 12) = Cells(i, 5) / Cells(i, 3) il fonctionne.
Sub test() Dim i As Long Dim x As Range
If Selection.Rows.Count > 1 Then Set x = Selection Else Set x = ActiveSheet.UsedRange.Rows End If
Oh oui !
Merci
Me reste donc à insérer une condition.
"Daniel" <dcolardelle@free.fr> a écrit dans le message de news:
41ece915$0$1031$626a14ce@news.free.fr...
Bonjour.
Tu n'as pas de cellule vide ou à zéro comme diviseur ?
Daniel
"If" <~yves.duchene@skynet.be> a écrit dans le message de news:
41ec58d6$0$323$ba620e4c@news.skynet.be...
Bonsoir, Bonjour,
J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de
capacité) et je vois pas vraiment pourquoi.
Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)"
Une petite idée ?
Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes
Cells(i, 11) = Cells(i, 4) / Cells(i, 3)
Cells(i, 12) = Cells(i, 5) / Cells(i, 3)
il fonctionne.
Sub test()
Dim i As Long
Dim x As Range
If Selection.Rows.Count > 1 Then
Set x = Selection
Else
Set x = ActiveSheet.UsedRange.Rows
End If
Oh oui ! Merci Me reste donc à insérer une condition.
"Daniel" a écrit dans le message de news: 41ece915$0$1031$
Bonjour. Tu n'as pas de cellule vide ou à zéro comme diviseur ? Daniel "If" <~ a écrit dans le message de news: 41ec58d6$0$323$
Bonsoir, Bonjour,
J'ai le code ci-dessous qui me donne un code d'erreur 6 (Dépassement de capacité) et je vois pas vraiment pourquoi. Mon code est stopé à ce niveau "Cells(i, 11) = Cells(i, 4) / Cells(i, 3)" Une petite idée ? Merci d'avance pour votre aide.
P.S. : ce code doit me permet d'obtenir des pourcentages.
Si j'enlève les lignes Cells(i, 11) = Cells(i, 4) / Cells(i, 3) Cells(i, 12) = Cells(i, 5) / Cells(i, 3) il fonctionne.
Sub test() Dim i As Long Dim x As Range
If Selection.Rows.Count > 1 Then Set x = Selection Else Set x = ActiveSheet.UsedRange.Rows End If
