Discussion :

[lilou86]

bonjour j'ai une macro qui demande (dans des textbox) le numéro de la premiere ligne à supprimer et le nombre de ligne à supprimer

pour programmer la suppression, j'ai écrit ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub BoutonOK_Click()
 
c = numeroligne.Value
n = nombreligne.Value
 
For i = c To c + n
Selection.Rows(i).EntireRow.Delete
Next i
 
End Sub

je sais qu'il faut la modifier mais je n'arrive pas à savoir comment.

Merci d'avance

[fring]

Bonjour,

La boucle For...Next n'est pas vraiment nécessaire, tu peux essayer comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub BoutonOK_Click()
Dim PremLigne As Integer, DerLigne As Integer
 
PremLigne = numeroligne.Value
DerLigne = numeroligne.Value + nombreligne.Value -1
 
Rows(PremLigne & ":" & DerLigne).Delete
 
End Sub

[lilou86]

j'ai essayé ton programme et il me supprime toutes le slignes deja ecrites.
c'est pas tout a fait l'effet recherche (lol).

as-tu une autre solution ?

merci

[fring]

Je ne comprend pas ? Tu demandes de supprimer de la ligne x à la ligne y, il n'est pas question dans ton code de vérifier si les lignes comportent quelque chose ou non !

Peux-tu être un peu plus explicite ?

[lilou86]

le programme que tu m'as ecrit efface tout.
Pourtant ton programme me parait juste.

je lui ai demandé de m'effacer de la ligne 11 à 15 (j'ai entre 11 et 4 dans mes textbox) et je n'ai plus de tableau en dessous de la ligne 10 un fois que le programme a ete execute.

[lilou86]

j'ai reussi a contourner le probleme!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub BoutonSuppression_Click()
 
Dim PremLigne As Integer
Dim DerLigne As Integer
Dim c As Integer
Dim n As Integer
c = numeroligne.Value
n = nombreligne.Value
 
PremLigne = c
DerLigne = c + n - 1
 
Rows(PremLigne & ":" & DerLigne).Delete
Unload UserForm9
 
End Sub

merci beaucoup pour ton aide
ca m'a mis sur la bonne voie

[fring]

Etrange, le code est pourtant correcte, là comme ça je ne vois pas d'où vient le problème, essaye le petit bout de code ci-dessous avec simplement 2 InputBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim PremLigne As Integer, DerLigne As Integer, NbLigne As Integer
 
PremLigne = InputBox("A partir de quelle ligne ?")
NbLigne = InputBox("Combien de lignes ?")
DerLigne = PremLigne + NbLigne - 1
 
Rows(PremLigne & ":" & DerLigne).Delete
 
End Sub

[ucfoutu]

Bonjour,

J'espère que tu ne t'es pas obstiné à utiliser une boucle, en commençant par la premère ligne (car dans ce cas, en effet, tout serait effacé après la 10ème ligne...)
Si tu fais une boucle, il faut commencer par la dernière ligne à effacer et continuer à effacer en remontant vers la premère ...

[lilou86]

non je ne me suis pas obstinée (lol).

Et puis mon code me va bien (meme si c'est de la bidouille)

Merci pour votre aide

bonne journee