Aide VBA Excel
Fermé
Ntfsfatos
-
23 juin 2009 à 12:10
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 23 juin 2009 à 15:08
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 23 juin 2009 à 15:08
A voir également:
- Aide VBA Excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
23 juin 2009 à 15:08
23 juin 2009 à 15:08
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 +