Discussion :

[Joris LEMONDE]

Bonjour,

Je viens vers vous car je ne trouve pas la réponse à mon problème.

J'ai créer de code et pour moi il n'y a aucune raison pour que cela ne marche pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Activate()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In Range("P2:AUH2")
    If cel = "" Then
    cel.EntireColumn.Hidden = True
    Else: cel.EntireColumn.Hidden = False
    End If
    Next
    Application.ScreenUpdating = True
 
End Sub

l'idée est d'analyser toutes les cellules de l'entête (P2 à AUH2), et lorsque la cellule est égale à "" => De cacher la colonne complète.

Les cellules de l'entête ont cette formule ci: =SI(Service!A7="";"";Service!A7)


la marco marche mais à la fin de son exécution, j'ai l'erreur 2029 qui apparait...

Pourquoi ???

[unparia]

Bonjour
Je lis :

Dim cel As Range

et

If cel = "" Then

un objet ne saurait être = ""
Sa proriété Value, oui

[Joris LEMONDE]

Bonjour,

merci de ta reponse, je comprends le probleme, mais comment dois-je declarer ma variable alors ?

[joe.levrai]

Ce n'est pas le type de ta variable à changer.

Comme l'a souligné unparia, tu utilises l'objets sans mentionner la propriété adéquate

Code :

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

Cel.Value

Au passage, quelle est l'utilité de cette formule ?

=SI(Service!A7="";"";Service!A7)

Si la cellule vaut "", on met "", sinon on met la valeur de la cellule
Ou comment se compliquer la vie ... un simple =Service!A7 me semble parfaitement suffisant ?

[Joris LEMONDE]

Merci pour votre aide, j'ai donc ajoute le .Value

mais j'ai toujours la meme erreur.

La selection des colonnes est elle bonne ?

Private Sub Worksheet_Activate()
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Range("P2:AUH2")
If cel.Value = "" Then
cel.EntireColumn.Hidden = True
Else: cel.EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True

End Sub

Tu as raison Joe, le Si ne sert a rien je vais l'enlever ...

[Invité]

Bonsoir,
Par défaut une range retourne value, mais effectivement il vaut mieux écrire value!

Code :

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

If Trim("" & cel.value) = "" Then

[joe.levrai]

Non !

Souvent, Range renvois par défaut la propriété .Value ... mais pas toujours

On a plusieurs fois noirci le forum avec ce débat

[Invité]

Bonjour Joe,
Je m'en remet à toi, de toute façon c'est mieux de préciser la propreté concerné.

Sur ce forum je ne le fait pas systématiquement, mais vue que je passe de langage en langage sur certains ça ne pardonne pas!

[unparia]

On ne laisse pas VBA décider "par défaut" pour "rattraper" les absences de précision.
On écrit proprement ainsi (exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim cel As Range ' ---> cel est donc un objet (un objet range)
 Application.ScreenUpdating = False
 For Each cel In Range("A2:B4").Cells '--->> on précise la collection d'objets parcourus
    If cel.Value = "" Then ' --->> on précise la propriété concernée de chaque objet parcouru en boucle
      cel.EntireColumn.Hidden = True
    Else
      cel.EntireColumn.Hidden = False
    End If
 Next
Application.ScreenUpdating = True

[Patrice740]

Bonjour,

On ne laisse pas VBA décider "par défaut" pour "rattraper" les absences de précision.
On écrit proprement ...[/CODE]

Entièrement d'accord avec toi, le "par défaut" est la source de trop nombreux problèmes
et j'ajouterais même qu'il faut au minimum préciser la feuille i.e :

Code :

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

1
2
3
4
5
6
7
8
9
Dans un module de feuille :
'...
 For Each cel In Me.Range("A2:B4").Cells 
 '....

Et dans un module standard :
'...
 For Each cel In Worksheets("Feuil1").Range("A2:B4").Cells 
'....

[Joris LEMONDE]

Bonjour,


merci à tous votre aide, j'avoue ne pas tout comprendre sur les spécificités des types de variables et les propriétés.

J'ai toujours le même problème avec l'erreur d'incomptabilité.

La macro marche mais l'erreur apparait toujours sur la ligne If Cel.Value = "" then

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In Me.Range("P2:AUH2").Cells
    If cel.Value = "" Then
    cel.EntireColumn.Hidden = True
    Else: cel.EntireColumn.Hidden = False
    End If
    Next
    Application.ScreenUpdating = True
End Sub

Comment puis-je faire ? les formats des cellules me semblent bonnes (standard)

Peux on inclure des lignes de codes supplémentaire pour ignorer l'erreur ?

[Patrice740]

Bonjour,

Le problème peut venir du fait que la cellule contient une formule dont le résultat produit une erreur.

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
Private Sub Worksheet_Activate()
Dim cel As Range
  Application.ScreenUpdating = False
  For Each cel In Me.Range("P2:AUH2").Cells
    If IsError(cel.Value) Then
      cel.EntireColumn.Hidden = True 'ou False
    Else
      If cel.Value = "" Then
        cel.EntireColumn.Hidden = True
      Else
        cel.EntireColumn.Hidden = False
      End If
    End If
  Next
  Application.ScreenUpdating = True
End Sub

[Invité]

Bonjour Unparia,

C'est ma faute,c'est ma faute, c'est ma très grande faute