Aide VBA Excel
Ntfsfatos
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Aide VBA Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
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 +
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 +