Suprimer des Text box dans USF

[JB]

Bonjour à tous,

j'ai une base de donnée dans laquelle je peux rentrer quatre lot différents. Si je n'enregistre pas quatre lots, je souhaite que dans mon USF 'Bouton 1', il n'apparaisse que le meme nombre de ligne que la base de donnée.

Cf exemple.

Merci [file name=Essaimacro.zip size=10778]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaimacro.zip[/file]

 

[Hervé]

Bonsoir JB

une proposition, je ne les supprime pas (les pauvres textbox ) je les masques en création, puis les affiches en execution.

J'utilise la propriété tag des controls.

Je te laisse faire le reste.

salut

Private Sub UserForm_Initialize()
Dim i As Byte
Dim ctrl As Control
For i = 1 To Application.WorksheetFunction.CountA(Range('b3:b6'))
        For Each ctrl In Controls
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ctrl.Tag <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ctrl.Tag = i Then ctrl.Visible = True
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next ctrl
Next i

End Sub

[file name=Essaimacro_20051116191813.zip size=12079]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaimacro_20051116191813.zip[/file]

 

[JB]

Merci Hervé pour ta réponse.
Masquer ou supprimer revient au même...
Salutations