Afficher seulement si en colonne A contiens un numéro

Bonjour,

je ne parviens pas à trouver la formule qui afficherai une ligne si seulement celle-ci contient un numéro sinon passé à la ligne suivante.

du coup J'aimerai que dans l'onglet "en attente de règlement" soit affiché seulement les lignes 2,4,5,8. en gros s'il y a un numéro alors affiche la ligne correspondant , si rien passe à la ligne suivante et j'aurai du coup seulement les règlement non versés car lorsqu'il y aura 350 lignes se sera dure de tout contrôler.

Merci d'avance pour votre aide

Salut Rolins,

quelque chose comme ça?

Passe en 'ATTENTE DE REGLEMENT' pour voir le résultat.

Private Sub Worksheet_Activate()
'
Dim iRow%, iRowBDC%, iFlag%
'
Application.ScreenUpdating = False
'
iRow = Range("B" & Rows.Count).End(xlUp).Row
If iRow > 2 Then Range("B3:H" & iRow).Delete
'
With Worksheets("BDC")
    iRowBDC = .Range("A" & Rows.Count).End(xlUp).Row
    If iRowBDC > 4 Then
        For x = 5 To iRowBDC
            If .Range("A" & x).Value <> "" Then
                iFlag = iFlag + 1
                Range("B" & 2 + iFlag & ":H" & 2 + iFlag).Value = .Range("B" & x & ":H" & x).Value
            End If
        Next
    End If
    Range("B2:H" & 2 + iFlag).Borders.LineStyle = 1
End With
'
Application.ScreenUpdating = True
'
End Sub

A+

Bonsoir,

Oui c'est exactement ça

Merci beaucoup

bonne soirée

juste une petite question pour centrer le texte dans les cellule sauf les montants

ou dois-je modifier

Merci d'avance.

Private Sub Worksheet_Activate()

'

Dim iRow%, iRowBDC%, iFlag%

'

Application.ScreenUpdating = False

'

iRow = Range("B" & Rows.Count).End(xlUp).Row

If iRow > 2 Then Range("B3:H" & iRow).Delete

'

With Worksheets("BDC")

iRowBDC = .Range("A" & Rows.Count).End(xlUp).Row

If iRowBDC > 4 Then

For x = 5 To iRowBDC

If .Range("A" & x).Value <> "" Then

iFlag = iFlag + 1

Range("B" & 2 + iFlag & ":H" & 2 + iFlag).Value = .Range("B" & x & ":H" & x).Value

End If

Next

End If

Range("B2:H" & 2 + iFlag).Borders.LineStyle = 1

End With

'

Application.ScreenUpdating = True

'

End Sub