Bonjour à tous,
J'ai un petit soucis avec VBA : J'utilise un UserForm composé de TextBox et de CheckBox.
Lorsque le formulaire est rempli, les données sont retranscrite dans la première ligne vide d'un tableau... du moins en théorie. J'ai réussi avec les TextBox, en utilisant ceci :
Dim ligvid As Integer
Dim message As String
Dim titre As String
Dim reponse As VbMsgBoxResult
ligvid = Columns("A").Find("", Range("A3"), xlValues).Row
Cells(ligvid, "A") = dateift
ligvid = Columns("B").Find("", Range("B3"), xlValues).Row
Cells(ligvid, "B") = produitift
ligvid = Columns("C").Find("", Range("C3"), xlValues).Row
Cells(ligvid, "C") = dhift
ligvid = Columns("D").Find("", Range("D3"), xlValues).Row
Cells(ligvid, "D") = duift
ligvid = Columns("E").Find("", Range("E3"), xlValues).Row
Cells(ligvid, "E") = surfaceift
ligvid = Columns("H").Find("", Range("H3"), xlValues).Row
Cells(ligvid, "H") = herbicideift
Mais je souhaiterais faire de même avec les CheckBox :
"Si CheckBox1 est cochée, alors inscrire "Oui" dans la première ligne vide de la colonne G, à partir de G3"
PS : Ce que j'ai utilisé pour les TextBox n'est sans doute pas la manière la plus optimisée, ne m'en voulez pas trop !
Merci d'avance