pb dans une spreadsheet

[daniel]

Bonjour le forum,

Dans un USF, j'ai une textbox, dans laquelle je saisis des codes en boucle. Chaque fois qu'un code est saisi, il apparait dans un contrôle spreadsheet (chaque code apparaissant 'à la suite' du précédent).

Je voudrais empêcher la saisie en double d'un code et j'ai tenté le code suivant :

Dim code as range
Dim plage as range

set plage = Spreadsheet1.ActiveSheet.Columns(1)

For Each Code In Plage
If TextBox1 = Code Then
Exit sub
End If
Next Code

Mais cela ne marche pas... J'arrive à me servir de ce code dans des feuilles excel 'normales' mais pas dans ce contrôle.

Help, please...

Merci à vous

Daniel

 

[Hervé]

Bonjour daniel


Attention un controle spreadsheet à la forme d'une feuille excel, sa couleur, certaine de ces attibuts, mais n'est pas une feuille excel.

par exemple le set n'est pas reconnu, essaye comme ceci :

Dim code As Range
Dim i As Integer

With Me.Spreadsheet1
    For i = 1 To .Cells(65536, 1).End(xlUp).Row
        If TextBox1 = .Cells(i, 1) Then
            Exit Sub
        End If
    Next i
End With

salut

 

[daniel]

Bonjour Hervé, le forum

Merci pour ton aide Hervé. Ca n'a pas fonctionné avec End(XlUp).Row (est-ce géré dans les spreadshhets) mais ça a très bien marché avec une boucle For i=1 to 100 (par exemple) et ça me va amplement !

Merci pour ton aide

Daniel