Discussion :

[SeigneurMorgoth]

Bonjour à tous,

Je tiens une petite BDD sur excel de 600 personnes, me permettant de générer des "fiches" détaillées selon le nom choisis, et puis de générer à la volée une fiche pour chacune de ces personnes en version HTML.
Mais tous le monde n'a pas la meme quantité d'infos, et je dois souvent masquer sur la fiche certaines lignes qui se révèlent vide et donc inutile.

J'ai trouvé un code (affiché ci-dessous) me permettant de le faire. Il fait très bien son taf, mais le problème est qu'il le fait uniquement sur l'onglet affichée.
Je souhaiterais qu'il puisse le faire sur tous les onglets du fichier excel en une seule exécution. Je précise que je ne sais pas coder VBA. Est-ce que quelqu'un peut me rajouter les quelques lignes de code manquantes pour arriver à ce but ?

Ce sera la dernière pièce manquante de mon puzzle, que j'ai réussis a assembler bout à bout grâce aux différents topics de ce site. J'en profite donc pour dire un grand merci général à tous ceux qui aident et qui expliquent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub masque()
   Dim z As Long, i As Long
     Application.ScreenUpdating = False
         z = Cells.Find("*", , , , , xlPrevious).Row + 1
            Range("A" & z & ":A" & 65536).EntireRow.Hidden = True
               For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
If Range("A" & i & ":iv" & i).Rows.Count - Application.CountBlank(Range("A" & i & ":iv" & i)) = -255 Then
                Rows(i).EntireRow.Hidden = True
                  End If
                       Next i
End Sub

[Invité]

Bonjour,
Tu fais un filtre élaboré pour la personne considérer, et ensuite tu génère ton html sur le résultat du filtre!

[SeigneurMorgoth]

Je ne comprends pas cette histoire de filtre, j'ai dû mal me faire comprendre !

Il y a un 1 onglet/feuille par personne, qui génèrera donc une fiche html par personne.
J'ai donc 600 onglets/feuille avec pour chaque onglet 1 ou plusieurs lignes vides à masquer.

Le code affiché sur le topic si je l'execute me permet uniquement de traiter l'onglet (donc une seule personne) visible. Là ou je voudrais qu'il traite les 600 onglets en une seule exécution.

Il ne doit pas y avoir grand chose à rajouter. J'ai essayé de rajouter des trucs du genre For each Sheets in Activeworksheet etc....
Mais j'ai zéro notion de codage et je n'y arrive pas.

[Invité]

Le filtre élaboré te permet de récupérer le valeur <> (rien) tu récupères donc toutes tes valeurs sens ligne vide.

Ensuite tu peux gérer la convention html comme tu le souhaites.

Est plus clair!

http://philippetulliez.developpez.co...dvancedfilter/

Code :

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

1
2
3
for i =1 to sheets.count
HtmlConver sheets(i)
Next

[SeigneurMorgoth]

Je n'ai aucune problème avec l'étape de conversion HTML.


Je souhaite juste savoir ce que je rajoute la-dedans (et ou) pour que cela agisse sur tous les onglets et pas seulement sur l'onglet qui s'affiche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Sub masque()
   Dim z As Long, i As Long
     Application.ScreenUpdating = False
         z = Cells.Find("*", , , , , xlPrevious).Row + 1
            Range("A" & z & ":A" & 65536).EntireRow.Hidden = True
               For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
If Range("A" & i & ":iv" & i).Rows.Count - Application.CountBlank(Range("A" & i & ":iv" & i)) = -255 Then
                Rows(i).EntireRow.Hidden = True
                  End If
                       Next i
End Sub

[Invité]

Je te l'ai dit au postes précédent la boucle for i !

Code :

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

1
2
3
4
for i =1 to sheets.count
Sheets(i).select
masque 
Next

Mais je pense que ton souhait n'est pas d'apprendre mais qu'on te fournisse un code clé en main!
Alors désolé je ne connais pas vba!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Sub masque()
   Dim z As Long, i As Long
     Application.ScreenUpdating = False
         z = Cells.Find("*", , , , , xlPrevious).Row + 1
            Range("A" & z & ":A" & 65536).EntireRow.Hidden = True
               For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
If Range("A" & i & ":iv" & i).Rows.Count - Application.CountBlank(Range("A" & i & ":iv" & i)) = -255 Then
                Rows(i).EntireRow.Hidden = True
                  End If
                       Next i
End Sub

Le filtre élaboré t'aurais facilité la vie et gagner du temp!