élimination des 0 ou vides

Question

Bonjour,
J'ai un classeur avec plusieurs feuilles. 
Je voudrais faire une sorte de sommaire de ces infos en reprenant sur une seule feuille celles des autres.
J'ai des numéro de lieux en A dans chaque feuille.
Je voudrais que dans ma feuille de sommaire, il y ait la liste des lieux des autres feuilles sans cases vides et sans 0. 
Savez-vous comment procéder pour que ce soit automatique lorsqu'on remplit une feuille?
ex: je rajoute un lieu dans la feuille 1, eil s'inscrit automatiquement dans mon sommaire.
Par la suite, je rapatrierai les info qui ont trait à chaque lieu avec index et equiv.

Merci d'avance

gbinforme · Answer

bonjour

Comme tu utilises plusieurs feuilles, pour faire ton sommaire avec des formules, cela me parait très compliqué pour ne pas dire impossible.

Je te propose de mettre une macro événementielle dans ta feuille sommaire (mode d'emploi éventuel) qui te mettra à jour ton sommaire à chaque fois que tu afficheras l'onglet.

Private Sub Worksheet_Activate()
Dim f As Integer
Dim l As Long
Dim p As Long
p = 2
Application.ScreenUpdating = False
For f = 1 To Sheets.Count
    If Sheets(f).Name <> ActiveSheet.Name Then
        For l = 2 To Sheets(f).UsedRange.Rows.Count
            If Sheets(f).Cells(l, 1).Value > 0 Then
                Sheets(f).Rows(l).Copy Destination:=Cells(p, 1)
                p = p + 1
            End If
        Next l
    End If
Next f
End Sub
J'ai considéré que ta première ligne de chaque feuille était la ligne du nom des rubriques (d'où le 2 gras)

élimination des 0 ou vides

1 réponse

Votre réponse

Discussions similaires

Newsletters