Bonjour, je traduit mon prog en VBA vers VB.net, et j'ai un gros problème avec la fonction Range. voici la partie prog
For
Each countd In Range("j1:j700")
vzr = vzr + 1
Me.sheet1.Cells(6, 7).Value = countd.value
If Me.sheet1.Cells(6, 7).Value = "" Then
Me.sheet1.Cells(vzr, 10) = TextBox2.Text
Me.sheet1.Cells(vzr, 11).Value = 1
vzr = 0
Exit For
Else
If Me.sheet1.Cells(7, 7).Value = Me.sheet1.Cells(6, 7).Value Then
Me.sheet1.Cells(vzr, 11).Value = Me.sheet1.Cells(vzr, 11) + 1
vzr = 0
Exit For
End If
End If
Next countd
Une feuille de calcul est déclarée dans form, mais le défaut est "Range n'est pas accessible dans ce contexte car il est private".
Merci de votre aide