Discussion :

[Anthony47]

Bonjour le forum

Je rencontre un soucis que je ne parviens pas le résoudre.

J'ai repris une macro que j'avais dans un autre fichier et qui me permettait de masquer des lignes selon le contenu d'une cellule de la ligne.

Je parviens à exécuter la macro modifiée pour supprimer la ligne.
Mais si je dupplique la macro, ça ne fonctionne plus. (ça me dit la méthode 'Union' de l'objet '_Global a échoué puis Set p = Union(p, cel.MergeArea) est surligné à la ligne 29)
Note: dans le fichier initial, la cellule de test pouvait être fusionnée. Ce n'est plus le cas dans ce fichier, plus de cellules fusionnées

la macro en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim p As Range, plage As Range
 
       numcol = Application.IfError(Application.Match("Code OF", Rows(1), 0), 0)
        If numcol > 0 Then
          Set plage = Columns(numcol)
        Else
          MsgBox "Erreur : Pas de colonne 'Code OF'"
          Exit Sub
        End If
            With plage
              For Each cel In plage.Cells
                 If cel = "AD-DEBUT" Or cel = "HNONP" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea)
              Next
            End With
         p.EntireRow.Delete
 
  Sheets("Temps salariés").Select
    Range("A2").Select
 
           numcol = Application.IfError(Application.Match("Salarié (code)", Rows(1), 0), 0)
If numcol > 0 Then
   Set plage = Columns(numcol)
Else
   MsgBox "Erreur : Pas de colonne 'Salarié (code)'"
   Exit Sub
End If
    With plage
        For Each cel In plage.Cells
            If cel = "MACHINSEUL" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea)
        Next
    End With
  p.EntireRow.Delete
 
  Sheets("Temps salariés").Select
    Range("A2").Select
 
           numcol = Application.IfError(Application.Match("Salarié (code)", Rows(1), 0), 0)
If numcol > 0 Then
   Set plage = Columns(numcol)
Else
   MsgBox "Erreur : Pas de colonne 'Salarié (code)'"
   Exit Sub
End If
    With plage
        For Each cel In plage.Cells
            If cel <> "MACHINSEUL" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea)
        Next
    End With
  p.EntireRow.Delete

Si quelqu’un saurait m'aider à corriger la macro

[ARTURO83]

Bonjour,

Dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If p Is Nothing

que vaut "p"? Avant le premier For ...Next, Ne manquerait-il pas la recherche de ce fameux "p"?

Cdlt

[Anthony47]

Bonjour Arturo, merci de ton aide,

Je ne sais pas, en tout cas la macro de base semble ne pas le définir en amont non plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Masquer_D()
    Dim p As Range, plage As Range
    Application.ScreenUpdating = False
    Set plage = Range("Descriptif!N1:N250")
    With plage
        For Each cel In plage.Cells
            If cel = "0" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea)
        Next
    End With
 p.EntireRow.Hidden = True 'ligne a débloquer
 Application.ScreenUpdating = True
End Sub

Et cette macro fonctionne parfaitement

[ARTURO83]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Columns(numcol)

plage = la colonne entière, mais vos données ne prennent pas toute la colonne, Non?
définissez une plage avec une adresse de début et de fin

[Phil Free]

Bonjour le file,

voir mes commentaires dans le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim p As Range, plage As Range
 
       numcol = Application.IfError(Application.Match("Code OF", Rows(1), 0), 0) '<-- numcol Non dimensionné !
        If numcol > 0 Then
          Set plage = Columns(numcol) '<-- Plage est dimensionné à Range et vous lui donnez un objet Column !
        Else
          MsgBox "Erreur : Pas de colonne 'Code OF'"
          Exit Sub
        End If
            With plage
              For Each cel In plage.Cells '<-- si on est ici et que VBA n'a rien dit c'est que la ligne "Set plage = Columns(numcol)" à été interprété comme une collection de Cells ou Ranges et comme plage est dimensionné à range cells ne sert à rien !!! De plus la variable Cel n'est elle pas dimensionné non plus !!!
                 If cel = "AD-DEBUT" Or cel = "HNONP" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea) ' <-- "AD-DEBUT" et "HNONP c'est quoi ? des valeurs possible de cel ? non de non on spécifi la propriété de l'objet que l'on utilise !!!
              Next
            End With
         p.EntireRow.Delete ' <-- ce n'est pas parce que le contenu de p est supprimé que p passe à nothing !!!
 
  Sheets("Temps salariés").Select
    Range("A2").Select
 
           numcol = Application.IfError(Application.Match("Salarié (code)", Rows(1), 0), 0)
If numcol > 0 Then
   Set plage = Columns(numcol)
Else
   MsgBox "Erreur : Pas de colonne 'Salarié (code)'"
   Exit Sub
End If
    With plage
        For Each cel In plage.Cells
            If cel = "MACHINSEUL" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea) 'Maintenant p est potentiellement pas à nothing mais pointant vers une plage qui n'existe plus !!!
        Next
    End With
  p.EntireRow.Delete
 
  Sheets("Temps salariés").Select
    Range("A2").Select
 
           numcol = Application.IfError(Application.Match("Salarié (code)", Rows(1), 0), 0)
If numcol > 0 Then
   Set plage = Columns(numcol)
Else
   MsgBox "Erreur : Pas de colonne 'Salarié (code)'"
   Exit Sub
End If
    With plage
        For Each cel In plage.Cells
            If cel <> "MACHINSEUL" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea)
        Next
    End With
  p.EntireRow.Delete

Votre code fonctionne sur l'interpretation que VBA peu en faire ! Bref des variables non dimensionnées des objets mal utilisés, des propriétés d'objet non spécifiées... un vrais cocktail à erreur !!!