Une macro trop longue

[Marcus]

Bonjour le forum,
Voici le problème que je soumet aux membres de ce magnifique site :
J'ai un UserForm (1 TextBox et 2 CommanButton) qui me permet de choisir et d'effacer des lignes dans les feuilles de mon classeur.
Voilà la macro du bouton 'Ok' :

'Bouton 'Ok'
Private Sub CommanButton1_Click
If TextBox1.Value=('1')
Range ('A1:K1').ClearContents
End If
Range ('A1').Select
UserForm1.Hide

Même chose pour la deuxième ligne, la troisième, etc ... Jusqu'à la cinquantième ligne.
Vous comprendrez que cela fait du 'texte' :S Y a-t-il un moyen de réduire la macro ? Une variable ?
Je vous remercie tous d'avance.

Marcus

 

[michel_m]

salut marcus

Private Sub CommanButton1_Click

lig = CInt(TextBox1.Value)
Range(Cells(lig, 1), Cells(lig, 11)).ClearContents
Cells(lig, 1).Select

End sub

N'oublie pas cependant de tester les exclusions d'action: valeur vide ou valeur >50

Michel

 

[Marcus]

Bonjour et merci Michel
Ta macro est-elle à répetée pour chaque ligne ?
Cordialement.
Marcus

 

[Franck]

Salut Marcus et michel_m ...


Michel je trouve ton code interessent mais j'aimerai savoir a quoi correspond le C dans CInt

Merci d'avance

Franck

 

[michel_m]

Salut Franck et Marcus,

Juste avant d'aller me promener: ya un rayon de soleil...

Marcus: fais un essai sur une feuille- classeur de brouillon; la procédure vide la ligne correspondant à la valeur inscrite dans la textbox

Franck: Une textbox renvoie du texte Cint convertit le texte (string) en entier (integer) nécessaire pour affecter la variable 'lig'

A+ et bon Lundi férié (pour une fois!)

Michel