Discussion :

[SpcCwb]

Bonjour le forum!

J'ai un problème de syntaxe, je n'arrive pas à trouver mon bonheur!

A la fin d'une macro où je copie des données d'une feuille à une autre, je voudrais masquer les colonnes vides de la feuille qui reçoit les données, sachant que lorsqu'une colonne doit être masquée j'aimerai que la suivante soit masquée aussi.

Pour cela j'ai écrit le code suivant; qui de toute évidence n'est pas bon

Code :

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

1
2
3
4
5
6
For Each r In Range("C5:O5")
    If r.Value = "" Then
        Columns(r, r.Offset(, 1)).Select
        Selection.EntireColumn.Hidden = True
    End If
Next r

Je ne trouve pas la syntaxe correcte équivalente à cette ligne: Columns(r, r.Offset(, 1)).Select

Merci du coup de main

[mercatog]

Plutôt Resize

Exemple condensé

Code :

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

1
2
3
For Each R In Range("C5:O5")
    R.Resize(, 2).EntireColumn.Hidden = R.Value = ""
Next R

sinon

Code :

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

1
2
3
4
5
Dim R As Range
 
For Each R In Range("C5:O5")
    If R.Value = "" Then Columns(R.Column).Resize(, 2).Hidden = True
Next R

[Philippe Tulliez]

Bonjour,
1) en VBA il est inutile d'utiliser les méthodes Select, Activate, Etc.
2) Pour manipuler une ou plusieurs colonnes d'un Range, on peut utiliser la propriété EntireColumn

Code :

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

1
2
3
4
5
Sub t2()
 With Feuil1.Range("D5:E5")
 .EntireColumn.Hidden = True
 End With
End Sub

[SpcCwb]

Merci à tous les deux!

Passez un bon week end!