Discussion :

[croky23]

Bonjour le forum

je nomme une cellule "toto" (en A1 par exemple)
puis une autre cellule "tata" (en d1 par exemple)

je voudrais un code qui me supprime les lignes entre ces deux cellules en prenant en charge les noms donnés à ces cellules


merci de votre aide

[LeForestier]

Bonjour,
Je te ferais remarquer que A1 et D1 sont sur la même ligne, il n'y aurais donc pas de ligne à supprimer, à moins que ce ne soit les valeurs des cellules,
exemple en A1 = 10 et D1 = 20
Supprimé les lignes de 11 à 19 ?
Dans ce cas, je ne vois pas l'intéret de les nommer !!
A+

[croky23]

désolé et mea culpa
en effet ma cellule peut etre en A1
et l'autre en A17
le nombre de lignes entre les deux cellules est variable c'est pourquoi j'ai nommé les cellules

mon code serait de supprimer les lignes entre les deux cellules nommées et ceci qu'il y en ai 1 ou plusieurs entre
merci

[LeForestier]

Code :

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

1
2
3
4
5
6
7
Deux solutions...
Sub SuppLigne1()
Dim Lig As Long
    For Lig = Range("tata").Row - 1 To Range("toto").Row + 1 Step -1
        Rows(Lig).Delete
    Next Lig
End Sub

ou

Code :

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

1
2
3
Sub SuppLigne2()
    Rows(Range("toto").Row + 1 & ":" & Range("tata").Row - 1).Delete
End Sub

A+

[croky23]

merci beaucoup
cela fonctionne , j'ai cependant un petit tracas
comment lui dire de ne rien faire si il n'y a pas de ligne entre ?
merci

[LeForestier]

Si tu emploi la 1ère solution ce sera automatique
A+

[Lonely1]

Salut,
Voici une autre alternative (solution 2 modifiée)

Code :

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

1
2
 
   If Range("toto").Row + 1 < Range("tata").Row - 1 Then Rows(Range("toto").Row + 1 & ":" & Range("tata").Row - 1).Delete

;-)

[croky23]

Merci beaucoup
cela fonctionne super
bonne soirée