Error 1004 VBA avec GEF acomba Résolu

Question

Bonjour, 
Je fais une macro pour masquer des lignes. Ma macro marche super bien dans un fichier indépendant. Toutefois, lorsque je tente de le faire dans mon fichier excel GEF, cela me fait error 1004 erreur définie par l'application ou par l'objet. Je ne comprends pas pourquoi ... 

Voici ma macro :
Sub Macro1()
' pour afficher les lignes
Cells.Select
Selection.EntireRow.Hidden = False

' Pour masquer les lignes

Dim ligne As Integer

For ligne = 10 To 370
 If Cells(ligne, 9) = "M" Then
 Rows(ligne & ":" & ligne).EntireRow.Hidden = True
 End If
Next

End Sub

Le "M" représente une fonction si pour laquelle chaque M, on doit masquer la ligne
Je travail sur Excel 2010

Merci beaucoup d'avance

f894009 · Answer

Re,
Y a une ligne visible en erreur?

f894009 · Answer

Re,
Ouvrez le VBA
Ouvrez le module ou il y a le code
Pour mettre un point d'arret, mettez le curseur souris sur la gauche de la fenetre du code et faite un clic gauche souris. pour l'enlever, clic dessus le point

g&eacute;rard · Answer

Je te propose ce code VBA, qui est plus simple :

Sub Macro1()
  Dim lig As Integer: Application.ScreenUpdating = False
  ' affiche toutes les lignes
  Rows("1:" & Rows.Count).Hidden = False
  ' des lignes 10 à 370, masque les lignes où il y a
  ' un "M" en colonne I
  For lig = 10 To 370
    If Cells(lig, 9) = "M" Then Rows(lig).Hidden = True
  Next lig
End Sub

Ça devrait mieux marcher pour ton fichier excel GEF ;
et tu devrais l'utiliser aussi pour ton fichier excel
indépendant.

&#x26A0;  Si une ligne > 32 767, mettre Dim lig As Long
au lieu de Dim lig As Integer

eriiic · Answer

Bonjour,

mettre un simple filtre auto pour masquer tes "M" n'est pas suffisant ?
C'est prévu pour...
eric 
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

gbinforme · Answer

Bonjour à tous, 

Je ne connais non plus ton excel GEF mais je pense que la macro ne sais pas où elle se trouve. Vba excel fonctionne a priori par défaut sur la feuille active mais il me semble que tu pourrais essayer de le préciser ainsi avec la macro de gérard.
Sub Macro1()
  Dim lig As Integer: Application.ScreenUpdating = False
  With ActiveSheet
    ' affiche toutes les lignes
    .Rows("1:" & .Rows.Count).Hidden = False
    ' des lignes 10 à 370, masque les lignes où il y a
    ' un "M" en colonne I
    For lig = 10 To 370
      If .Cells(lig, 9) = "M" Then .Rows(lig).Hidden = True
    Next lig
  End With
End Sub

christ.lenoir · Answer

J'essaie maintenant la simple macro de masquer des lignes sans même les afficher et ça ne fonctionne pas. Par contre, lorsque je garde mon entrer enfoncé jusqu'à ce que le message d'erreur s'en va, j'arrive à mes fins...
Sub Masquer_lignes() 
'

' Pour masquer les lignes

    Dim ligne As Integer

    For ligne = 33 To 70
    If Cells(ligne, 9) = "M" Then
    Rows(ligne & ":" & ligne).EntireRow.Hidden = True
     End If
    Next
 
End Sub

L'erreur ce trouve donc la dedans, mais dans un excel indépendant, ça marche super bien ...

eriiic · Answer

Pas une solution à ton pb mais peut-être le message d'erreur à valider une fois ou deux seulement :
Sub Macro1()
    Dim lig As Long, pl As Range
    For lig = 10 To 370
        If Cells(lig, 9) = "M" Then
            If pl Is Nothing Then
                Set pl = Cells(lig, 9)
            Else
                Set pl = Union(pl, Cells(lig, 9))
            End If
        End If
    Next lig
    ' affiche toutes les lignes
    Rows.Hidden = False
    ' des lignes 10 à 370, masque les lignes où il y a
    ' un "M" en colonne I
    If Not pl Is Nothing Then pl.EntireRow.Hidden = True
End Sub
en attendant de trouver la cause réelle...
eric

Error 1004 VBA avec GEF acomba

7 réponses

Discussions similaires

Newsletters