Bloquer une macro

[anat63]

Bonjour tout le monde,

Voilà j'ai deux macros dirigées par un spinbutton (up and down)
La première, partant de la ligne C14, ajoute des lignes en recopiant les formules du dessus.
La deuxième macro supprime ces lignes en partant de la dernière créée, seulement je voudrais qu'elle ne puisse plus supprimer de lignes lorsqu'elle atteint la ligne C16. Je ne sais pas comment faire.

Voici le code pour que vous compreniez mieux:

Private Sub SpinButton1_SpinUp()
Range("C14").End(xlDown).Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.FillDown
End Sub
Private Sub SpinButton1_SpinDown()
Range("C14").End(xlDown).EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

Si quelqu'un peut m'aider??

Anat

 

[job75]

Re : Bloquer une macro

Bonjour anat63,

If Selection.Row > 16 Then Selection.Delete

Pas champion d'utiliser les Select, sachez qu'en général ils ne servent à rien en VBA...

A+

 

[Gorfael]

Re : Bloquer une macro

Salut anat63, job75 et le forum

sachez qu'en général ils ne servent à rien en VBA...

Suis farpaitement d'accord

Private Sub SpinButton1_SpinDown()
With Range("C14").End(xlDown).EntireRow
    If .Row > 16 Then .Delete
End With
End Sub

A+

 

[anat63]

Re : Bloquer une macro

Parfait!!
Merci beaucoup de votre rapidité c'est exactement ce que je voulais 🙂