Bonsoir à tous,
je suis débutant et j'ai besoin de lire et ou ecrire le textbox3 par rapport
à une cellule se trouvant de la colonne C, i
merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub VALIDER_Click()
 
Dim i As Integer
Dim NbreEleve As Integer, NoteEleve As Integer
Dim Cel As Range
Dim ESSAI As Range
 
Set Cel = Range("A1")
Set ESSAI = Range("C1")
NbreEleve = Cel.End(xlDown).Row - 1
 
    For i = 1 To NbreEleve
        If Cel.Offset(i) = Range("C1") Then
        NoteEleve = Cel.Offset(i, 1)
        TextBox3.Value = ESSAI.Offset(i)
 
    Exit For
 
End If
 
Next i
Range("C1") = TextBox1.Value
Label3 = NoteEleve
Range("H1") = NoteEleve
Label1 = Range("C1")
 
End Sub