Discussion :

[baloote69]

Bonjour,
je souhaite masquer des lignes vides (de A41 à A43) dans plusieurs feuillés en même temps à l'ouverture de mon fichier et si possible en auto-contrôle permanent (lorsque la ligne est vide elle se cache et lorsqu'elle est remplie elle réapparaisse).
Pour l'instant j'ai fait ce code qui fonctionne, mais uniquement sur le feuillé actif.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Range("A41:A43").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
Else
o.EntireRow.Hidden = False
End If
Next
End Sub

En vous remerciant d'avance.

[parmi]

Bonjour,

Je pense que la méthode que tu utilises va toujours masquer les lignes puisque la dernière cellule vérifiée sera la dernière, qui est vide.
J'opterais pour quelque chose comme

Code :

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

If Application.WorksheetFunction.CountA(Rows(41)) = 0 Then Rows(41).Hidden = True

Qu'en est-il s'il y a des valeurs en ligne 41 et pas en 42 et/ou 43 ?
Est-ce que tu masques seulement la/les lignes vides ou les 3 ?

[baloote69]

Pour simplifier ma demande je vous mets à disposition deux fichiers.
Le fichier "Date" me sert pour modifier la date sur plusieurs fichiers d'un coup, je l'ouvre en premier et je mets la date souhaitée.
Le fichier "Base identité" s'ouvre en deuxième, la macro se lance à l'ouverture et modifie les lignes 41 à 43 en fonction des lignes vide ou non, mais seul le feuillet actif est concerné, j'aimerais que ça fonctionne sur tous.
Dans le futur je vais avoir bien 30 fichiers "base identité" qui vont comporter entre 1 et 6 feuillets.

Merci de votre aide.

[parmi]

Code :

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

1
2
3
4
Dim Sh as worksheet
For each Sh in Activeworkbook  'boucle toutes les feuilles
   'Faire l'action souhaitée
Next

autre méthode si on ne veut pas toucher TOUTES les feuilles

Code :

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

1
2
3
4
5
Dim I as long, Tablo as Variant
Tablo = Array("Feuil1", "Feuil2", "Feuil3")
For i = 0 to UBound(Tablo)
   'Faire l'action souhaitée
Next

[baloote69]

Je n'arrive pas à faire fonctionner ce code, Erreur 438 Propriété ou méthode non gérée par cet objet, avec For Each Sh In ActiveWorkbook en jaune

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook
Range("A41:A43").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
Else
o.EntireRow.Hidden = False
End If
Next
Next
End Sub

J'aurais toujours besoin que ce soit sur toutes les feuilles car c'est pour adapter les lignes en fonction du nombre de jour dans le mois.
Merci quand même pour le deuxième code.

[parmi]

Désolé, j'ai oublié le Worksheets...

Code :

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

1
2
For Each Sh In ActiveWorkbook.Worksheets
   Sh.Range("A41:A43").Select