Bonjour à vous tous,
J'ai un petit souci de compréhension : cette macro récupère, lors du clic de la CheckBox, une valeur de la feuille 'Libellé' et la colle vers la feuille 'Mémoire' à la dernière ligne, et devrait aussi récupérer la valeur de la textBox6, qui est une quantité. Ça ne fonctionne que si je renseigne la TextBox avant de cliquer sur la ChexkBox. Si je fais l'inverse, la valeur de la TextBox6 ne s'affiche pas.
Auriez-vous une explication ?
Voici le code
Private Sub CheckBox6_Click()
If CheckBox6.Value = True Then
Dim L As Integer
L = Sheets('Mémoire').Range('B28').End(xlUp).Row + 1
With Sheets('Mémoire')
.Range('B' & L).Value = Sheets('Libellé').Range('B7').Value
.Range('L' & L).Value = TextBox6.Value
End With
End If
End Sub
Merci d'avance
J'ai un petit souci de compréhension : cette macro récupère, lors du clic de la CheckBox, une valeur de la feuille 'Libellé' et la colle vers la feuille 'Mémoire' à la dernière ligne, et devrait aussi récupérer la valeur de la textBox6, qui est une quantité. Ça ne fonctionne que si je renseigne la TextBox avant de cliquer sur la ChexkBox. Si je fais l'inverse, la valeur de la TextBox6 ne s'affiche pas.
Auriez-vous une explication ?
Voici le code
Private Sub CheckBox6_Click()
If CheckBox6.Value = True Then
Dim L As Integer
L = Sheets('Mémoire').Range('B28').End(xlUp).Row + 1
With Sheets('Mémoire')
.Range('B' & L).Value = Sheets('Libellé').Range('B7').Value
.Range('L' & L).Value = TextBox6.Value
End With
End If
End Sub
Merci d'avance