Bonjour voilà je vous explique mon problème. J'ai un menu avec plusieurs textbox. Ces textbox correpondent à des options de recherches. Je voudrais pouvoir avoir un historique des recherches que j'ai effectué. Ainsi je souhaite venir donner à une cellule d'une page excel la valeur que j'ai utilisé lors de ma recherche. Le problème c'est que je veux incrémenter à chaque fois pour ne pas écrire deux fois dans la même ligne si je fais plusieurs recherche et c'est là que j'ai un problème. En effet à la première itération correpondant à iT j'arrive bien à écrire dans ma cellule. cependant quand je fais une deuxième recherche je ne parviens plus à écrire et excel m'écrit "application or object defined error". Je ne comprend pas pourquoi pouvez vous m'aider svp?

Je met le bout de code qui m'interesse

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
Dim iL As Long
Dim T As Worksheet
Dim LastLig As Long
Set T = Worksheets("searching results")
Set S = Worksheets("Save values")
 
iT = Cells(100, "z").Value
 
With T
 
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
 
End With
 
 If TextBox4.Value <> "" Then
 
 S.Cells(iT, "o").Value = "GCW = " & UserForm5.TextBox4.Value
 iT = iT + 1
 T.Cells(100, "z").Value = iT

Le débuger m'indique que la ligne qui plante est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
S.Cells(iT, "o").Value = "GCW = " & UserForm5.TextBox4.Value
La partie qui m'interesse se trouve apres le End With

Merci de votre aide