Re: checkbox_vba special Programmeurs CORSES !!! lol lol
Bonsoir Val, Arnaud, Eric, Michel, le Forum
Michel a gagné un apéro (même deux) si il passe sur la Cote d'Azur
ET OUI, dans certains cas on a beau faire des boucles sur les Controls, ils faut quand même capter les évènements un par un !
MAIS en tant que développeur, on a pas le temps d"écrire :
Private Sub CheckBox1_Click()
CbxID = 1
CbxVA = CheckBox1
TheCheckBoxing
End Sub
... 90 fois !!!
ALORS on finte...... Donc on rédige ceci :
Sub MacroWrite() 'lol !!
Dim i As Byte
Dim MyString As String
For i = 1 To 90
MyString = MyString & "Private Sub CheckBox" & i & "_Click()" & vbCrLf & _
"CbxID = " & i & vbCrLf & _
"CbxVA = CheckBox" & i & vbCrLf & _
"TheCheckBoxing" & vbCrLf & _
"End Sub" & vbCrLf & vbCrLf
Next
With New DataObject
.SetText MyString
.PutInClipboard
End With
End Sub
ET on va dans le Private Modul du UserForm et on fait la combinaison de CTRL + V ........
Et hop, on a plus de temps pour aller boire l'apéro (et en plus pas d'errur de numéro non plus !!!
Bonne Soirée
@+Thierry
PS qu'est-ce qui sont faignants ces développeurs et qu'est-ce qui boivent lol !!