Une petite macro ce matin et voil=E0 qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow =E0 c=F4t=E9 de Lastrow
Sub ClairerRaison()
Application.ScreenUpdating =3D False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow =3D Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
For i =3D Lastrow To 2 Step -1
If Cells(i, 1).Value <> "Account Consolidation" And Cells(i,
1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial
Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete
Next
Rows("1:1").Select
Selection.Delete Shift:=3DxlUp
End With
End Sub
Quelqu'un a une petite id=E9e comment corriger cela?
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
Mais qui est Paul
Bonsour® Denys avec ferveur ;o))) vous nous disiez :
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow
Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767 choisir Dim Lastrow as Long
-- -- @+ ;o)))
Bonsour® Denys avec ferveur ;o))) vous nous disiez :
Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767
choisir Dim Lastrow as Long
Bonsour® Denys avec ferveur ;o))) vous nous disiez :
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow
Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767 choisir Dim Lastrow as Long
-- -- @+ ;o)))
Ellimac
Bonjour,
Attention une variable Integer ne peut dépasser la valeur 32000 et quelques Supprime la déclaration de variable tu n'aura pas le problème
Camille
"Denys" a écrit dans le message de news:
Bonjour à tous,
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow For i = Lastrow To 2 Step -1 If Cells(i, 1).Value <> "Account Consolidation" And Cells(i, 1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete Next Rows("1:1").Select Selection.Delete Shift:=xlUp End With End Sub
Quelqu'un a une petite idée comment corriger cela?
Merci
Denys
Bonjour,
Attention une variable Integer ne peut dépasser la valeur 32000 et quelques
Supprime la déclaration de variable tu n'aura pas le problème
Camille
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
f500eaeb-e025-4a19-8119-dcce268706cc@8g2000hse.googlegroups.com...
Bonjour à tous,
Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
For i = Lastrow To 2 Step -1
If Cells(i, 1).Value <> "Account Consolidation" And Cells(i,
1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial
Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete
Next
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End With
End Sub
Quelqu'un a une petite idée comment corriger cela?
Attention une variable Integer ne peut dépasser la valeur 32000 et quelques Supprime la déclaration de variable tu n'aura pas le problème
Camille
"Denys" a écrit dans le message de news:
Bonjour à tous,
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow For i = Lastrow To 2 Step -1 If Cells(i, 1).Value <> "Account Consolidation" And Cells(i, 1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete Next Rows("1:1").Select Selection.Delete Shift:=xlUp End With End Sub
Quelqu'un a une petite idée comment corriger cela?
Merci
Denys
Jacky
Bonjour,
Un petit coup de F1 sur "Integer" et tu comprendras... ;o)
-- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow For i = Lastrow To 2 Step -1 If Cells(i, 1).Value <> "Account Consolidation" And Cells(i, 1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete Next Rows("1:1").Select Selection.Delete Shift:=xlUp End With End Sub
Quelqu'un a une petite idée comment corriger cela?
Merci
Denys
Bonjour,
Un petit coup de F1 sur "Integer" et tu comprendras...
;o)
--
Salutations
JJ
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
f500eaeb-e025-4a19-8119-dcce268706cc@8g2000hse.googlegroups.com...
Bonjour à tous,
Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
For i = Lastrow To 2 Step -1
If Cells(i, 1).Value <> "Account Consolidation" And Cells(i,
1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial
Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete
Next
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End With
End Sub
Quelqu'un a une petite idée comment corriger cela?
Un petit coup de F1 sur "Integer" et tu comprendras... ;o)
-- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow For i = Lastrow To 2 Step -1 If Cells(i, 1).Value <> "Account Consolidation" And Cells(i, 1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete Next Rows("1:1").Select Selection.Delete Shift:=xlUp End With End Sub
Quelqu'un a une petite idée comment corriger cela?
Merci
Denys
isabelle
bonjour Denys,
je crois qu'il faut remplacer As Double et .Range
With ActiveSheet Dim Lastrow As Double, i As Integer Lastrow = .Range("A65000").End(xlUp).Row
isabelle
Bonsour® Denys avec ferveur ;o))) vous nous disiez :
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow
Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767 choisir Dim Lastrow as Long
bonjour Denys,
je crois qu'il faut remplacer As Double et .Range
With ActiveSheet
Dim Lastrow As Double, i As Integer
Lastrow = .Range("A65000").End(xlUp).Row
isabelle
Bonsour® Denys avec ferveur ;o))) vous nous disiez :
Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767
choisir Dim Lastrow as Long
With ActiveSheet Dim Lastrow As Double, i As Integer Lastrow = .Range("A65000").End(xlUp).Row
isabelle
Bonsour® Denys avec ferveur ;o))) vous nous disiez :
Une petite macro ce matin et voilà qu'Excel me donne un message que je n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run Time error 6 Overflow à côté de Lastrow
Sub ClairerRaison() Application.ScreenUpdating = False Sheet1.Select With ActiveSheet Dim Lastrow As Integer, i As Integer Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6 Overflow
Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767 choisir Dim Lastrow as Long
Denys
Bonjour tout le monde,
Wow !!! Ça n'a pas été trop long !!
Merci infiniment à tous et bonne journée.... Tout fonctionne
Denys
Bonjour tout le monde,
Wow !!! Ça n'a pas été trop long !!
Merci infiniment à tous et bonne journée.... Tout fonctionne