Stopper une liste

[Arkonide51]

Bonjour à tous,

Voici une macro créer sur Excel 2003, qui me permet apres avoir remplis une "Box" d'incrementer une liste d'une ligne N°13 à la ligne 80.

Je souhaiterais qu'une fois la ligne 80 remplie une boite s'ouvre pour me dire "STOP" ligne 80 atteinte, etant donne que cette ligne n'est pas visible quand je rentre le chiffre dans la "BOX"

Vous serait il posible de m'aider ?
D'avance MERCI

Public Sub HHHH()
Dim valeur As String
Dim l As Integer
nombre = Application.InputBox("Combien ? :", Type:=1)
If nombre = False Then Exit Sub
l = Sheets("HHHH").Range("c80").End(xlUp).Row + 1
valeur = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

For Each c In Sheets("CODE").Range("b3:b" & Sheets("code").Range("b500").End(xlUp).Row)

If c.Value = valeur Then

With Sheets("HHHH")
.Range("b" & l).Value = nombre
.Range("c" & l).Value = c.Value
.Range("e" & l).Value = c.Offset(0, 1).Value
.Range("a" & l).Value = c.Offset(0, -1).Value
End With
End If

Next c

End Sub

 

[JCGL]

Re : Stopper une liste

Bonjour à tous,

L'utilisation des balises est fortement recommandé ainsi que la jonction d'un fichier...

A + à tous