Discussion :

[jpe123]

Bonjour,

Etant débutant en vba, j' aurais besoin d' une aide pour supprimer des lignes

je dois supprimer les lignes dans les colonnes a et b par rapport a une cellule c1 qui me donne le nombre de lignes a supprimer et qui n' est jamais le même

une aide serait la bien venue

Merci d'avance

[COCONUT2]

il faudrait déjà commencer par montrer ton code
et pour supprimer, utilise la fonction delete ou alors clear ou clearcontents en fonction de ce que tu veux faire exactement

[jpe123]

Bonjour,
merci pour la réponse, le probleme est que je ne sais pas comment créer mon code et declarer la variable dont le résultat est en c1 pour pouvoir supprimer un range a1 à b(nombre de lignes)
par contre j ai trouvé un code qui me permet de supprimer les lignes qui commence par une lettre D ou E, et j aimerais bien supprimer les lignes commencant par DD ou EE (supprimer_si "DD") me supprime toutes les lignes commencant par D.

J'ai rajouter le code ci dessous

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub supprimer_si(lettre)
 
Dim DerLig As Long, Lig As Long, cptr As Long, nbre As Long
 
DerLig = Columns("A").Find("**", , , , , xlPrevious).Row
Lig = Cells.Rows.Count
nbre = Application.CountIf(Range("A1:A" & DerLig), "*" & lettre & "*")
For cptr = 1 To nbre
     Rows(Columns("A").Find(lettre, Cells(Lig, "A"), xlValues).Row).Delete
Next
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SUP()
 Sheets("sched1").Select
 
Application.ScreenUpdating = False
supprimer_si "D"
supprimer_si "E"
 
End Sub