Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Overflow (Excel a mal dormi)

Overflow (Excel a mal dormi)

5 réponses
Avatar
Denys
Bonjour =E0 tous,

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?

Merci

Denys
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
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)))

Avatar
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
Avatar
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
Avatar
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






Avatar
Denys
Bonjour tout le monde,

Wow !!! Ça n'a pas été trop long !!

Merci infiniment à tous et bonne journée.... Tout fonctionne

Denys