Bonjour,
Je suis novice dans vba.
Je souhaite avec le programme (ci dessous ) sélectionner la ligne du module écrit dans l'input box.
Puis a partir de cette même ligne , je souhaite cherché la première case vide et y inscrire une note ( allant de 0 à 20).
D'apres l'option explicit vba ainsi que quand je lance mon bouton j'ai un problème a la ligne en rouge.
Je souhaite donc connaitre mon erreur dans cette même ligne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub CommandButton2_Click() Dim recep As Integer Dim Ligne As Range Dim Module As String Dim c As Range Dim note As Single Module = InputBox("Saisissez votre module") note = InputBox(" Saisissez votre note") recep = ActiveSheet.Range("a:a").Find(what:=Module).Row Set Ligne = Worksheets("Module").Range("&recep&:&recep&").Find(what:="").Row Ligne.Value = note End Sub
Cordialement
Partager