Problème VB avec End(xlUp)

[toony.m]

Bonjour à tous!

Voici une fonction appliquée à une feuille qui permet de cacher des lignes dont une certaine colonne n'a pas la bonne valeure.
Ce script marche TB.

Option Explicit

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim i As Integer
With ActiveSheet
    .Rows.Hidden = False
    For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 6 Step -1
        If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = True
        
    Next i
End With
Application.ScreenUpdating = True
End Sub

'ThisWorkbook.Sheets("Profil1").range("B6").interior.color
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Le problème est que des que j'insère une nouvelle ligne (en faisant un clic droit et insertion sur la colonne des lignes) ce script ne marche plus et j'obtiens une erreur VB n°13 à ce niveau :

 If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = False

Idem si je vais ou couper/coller de certaines lignes
Alors que cela fonctionne avec un copier/coller.

La fonction End(xlUp) semble ne pas aimer les modifications de lignes...
D'où pourrait venir le problème ?
Peut-on le contourner ?

 

[mutzik]

Re : Problème VB avec End(xlUp)

bonjour,
essaie :
Derlig = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = Derlig To 6 Step -1
CellVal = .Cells(i, 1).Value
If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = True
Next i

et tu mets un point d'arret sur la ligne contenant CellVal = ...
le code s'arretera à cet endroit et tu pourras vérifier ta condition

 

[Catrice]

Re : Problème VB avec End(xlUp)

Bonjour,

Je ne reproduit pas le probleme.
Peux tu detailler le pas à pas pour reproduire le probleme ?
Eventuellement poster ton fichier ...

voir le fichier joint (testé en Excel XP)

 

[ROGER2327]

Re : Problème VB avec End(xlUp)

Bonjour à tous

Même remarque : cela fonctionne correctement.
(Excel 2003)​

ROGER2327

 

[toony.m]

Re : Problème VB avec End(xlUp)

Merci pour vos réponses !

En attendant voici le fichier en question qui fonctionne bien sans couper/coller ou suppresion/insertion.

Et voici celui qui pose problème.

Mutzik: En tant que débutant que je suis quand même:

Comment met-on un point d'arret ?

Et j'ai essayé en déclarant les variables comme suit:

Option Explicit

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim i As Integer
Dim Derlig As Integer
Dim CellVal As Integer

With ActiveSheet
    .Rows.Hidden = False
       
    Derlig = .Cells(.Rows.Count, 2).End(xlUp).Row
    For i = Derlig To 6 Step -1
    CellVal = .Cells(i, 1).Value
    If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = True
    Next i

End With
Application.ScreenUpdating = True
End Sub

Mais j'ai encore l'erreur 13...

 

[ROGER2327]

Re : Problème VB avec End(xlUp)

Re...

Etes-vous sûr des formules des lignes 226 et suivantes de la feuille Emploi1 du classeur exemple2 ?​

ROGER2327

 

[toony.m]

Re : Problème VB avec End(xlUp)

Re...

Etes-vous sûr des formules des lignes 226 et suivantes de la feuille Emploi1 du classeur exemple2 ?​

ROGER2327

Effectivement il y a une erreur de formule temporaire, il faut reprendre les formules lignes 224 et 225 et les étendre jusqu'à la ligne 500.

 

[ROGER2327]

Re : Problème VB avec End(xlUp)

Re...

Effectivement il y a une erreur de formule temporaire, il faut reprendre les formules lignes 224 et 225 et les étendre jusqu'à la ligne 500.

OK.
Et, la correction faite, le problème subsiste-t-il ?​

ROGER2327

 

[Catrice]

Re : Problème VB avec End(xlUp)

re,
Chez moi, la correction de la ligne 226 résout le probleme

 

[ROGER2327]

Re : Problème VB avec End(xlUp)

Re...

re,
Chez moi, la correction de la ligne 226 résout le probleme

Idem.
​

ROGER2327

 

[toony.m]

Re : Problème VB avec End(xlUp)

Effectivement, le problème se résoud dès que c'est corrigé...

Mais comment est-ce arrivé, c'est ce que je dois trouver...
A suivre..

Merci beaucoup!