Discussion :

[cneau]

Bonsoir,

Je suis perdue. Je dois utiliser une macro pour un tableau où toutes les lignes ne seront pas remplies et ceci pour impression.
C'est en fait le bilan.
Je mets en pièce jointe le tableau concerné et le modèle de macro à utiliser (mais comment ?)
L'idée serait d'insérer une feuille après le tableau prête à imprimer avec le tableau où apparaissent seulement les lignes.
Je ne sais même pas si c'est très clair.
Merci à tous par avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Masquage
    REM Masquage conditionnel de lignes dans un tableau avec une cellule texte vide à gauche
    dim oFeuille As Object
    dim oCellule As Object
    dim oColonne As integer
    dim i as integer
    oFeuille = ThisComponent.CurrentController.ActiveSheet 'Définit la feuille de travail
    oColonne = 0
    REM Masquage des lignes avec prénoms
          for i = 3 to 9 'Numéros des lignes à vérifier
             oCellule = oFeuille.getCellByPosition(oColonne,i) 'Définit la cellule à vérifier i=ligne
             if oCellule.string = "" then oCellule.rows.isVisible = false 'si case prénom vide, masquer la ligne
          next i
    End Sub

[zoom61]

Salut,

Si j'ai bien compris ta demande, avec quelque chose comme cela :

Code vb :

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
Sub zoom61()
 
    Dim monDocument As Object, lesFeuilles As Object 
    Dim maFeuille As Object
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("competences")
 
    For i = 7 to 17
        if maFeuille.GetCellRangeByName("E" & i).string = "" _
            and  maFeuille.GetCellRangeByName("F" & i).string = "" _
            and maFeuille.GetCellRangeByName("G" & i).string = "" _
            and maFeuille.GetCellRangeByName("H" & i).string = "" _
            and maFeuille.GetCellRangeByName("I" & i).string = ""  then
            maFeuille.GetCellRangeByName("A" & i).Rows.IsVisible = FALSE
        end if
    Next
 
End Sub

@+.

[cneau]

MERCI MERCI MERCI ça m'a l'air de fonctionner.

Maintenant, mon autre pb est le suivant :
Cette feuille du classeur est donc remplie, l'idée est qu'elle soit copiée sur une autre feuille et c'est là que s'exécutera la macro pour ne garder que les lignes remplies et ceci pour impression.

[zoom61]

C'est un sujet par discussion.

Mais dans ton cas, cela ne sert à rien, vu que l'on ne supprime pas les lignes, donc il te suffit d'imprimer ta page, et ensuite de rendre visible toutes les lignes masquées.

@+.