Aide VBA Excel

Ntfsfatos -  
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,

Voilà je suis débutant sur le VBA et je rencontre un petit soucis.

Je souhaiterai incorporer dans une worksheet un code permettant de supprimer une ligne sur condition.
En gros j'aimerai qu'Excel regarde chaque cellules remplies dans ma colonne H et supprime la ligne si H est inférieur et non égal à 58.

Merci par avance pour l'aide que vous pourrez m'apportez.

Cordialement,

Ntfsfatos
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1.
    Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    Bonjour,

    un petit exemple

    Sub test()
    '
    ' test Macro
    '

    Dim nbligne As Long

    Sheets("feuil1").Select
    Range("H1").Select

    nbligne = Selection.CurrentRegion.Rows.Count

    For i = 1 To nbligne
    If Cells(i, 8) = "" Then
    'ligne vide
    Else
    If Cells(i, 8) < 58 Then
    Rows(i).Delete
    i = i - 1
    End If
    End If
    Next i

    End Sub

    Dis-moi si c'est ce que tu veux?

    A +
    0