Discussion :

[JulienLeno]

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

[Daniel.C]

Bonjour, essaie comme ceci pour cerner le problème :

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
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
 
MsgBox S.Cells(iT, "o").Value
MsgBox UserForm5.TextBox4.Value
S.Cells(iT, "o").Value = "GCW = " & UserForm5.TextBox4.Value
 iT = iT + 1
 T.Cells(100, "z").Value = iT

et reviens poster ce qui s'affiche.

[jfontaine]

Bonjour,

Quelques remarques

- J'ai du mal a cerner l'utilisation de la variable iT(qui au passage n'est pas déclarée)
Etape 1 iT prend la valeur de la cellule z100 de la feuille T qui contient le nombre de saisie.
Etape 2. iT te sert à mettre la nouvelle saisie dans la feuille S colonne O
Si je comprend bien la cellule z100 contient le nombre de valeur de la colonne O de la feuille S
On peut obtenir cela avec la formule NBVAL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBVAL('Save values'!O:O)

- Pourquoi utiliser with

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With T
 
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
 
End With

Alors que ci dessous me semble moins long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LastLig = T.Cells(T.Rows.Count, 1).End(xlUp).Row

Cela étant dit, pour ton erreur, as tu essayé, en spécifiant la feuille sur la ligne 7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iT = T.Cells(100, "z").Value

[JulienLeno]

C'est tout a fais çà jfontaine. Et le problème venait bien du fait que la feuille n'atait pas spécifié.

Pour l'utilisation de nbval comment ceci fonctionne et à quoi sert cette commande car en effet si je peux simplifier l'utilisation en ayant plus ce passage par une cellule pour l'incrémentation çà m'arrangerait?

Merci de ta réponse

[jfontaine]

NBVAL retourne le nombre de cellules non vide

dans ton cas, tu mets la formule ci dessous dans Z100

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBVAL('Save values'!O:O)

Ceci est une solution qui simplifie ton code, mais dans ton cas, l'utilisation d'une cellule qui contiendrait la prochaine ligne n'ait pas du plus "propre"

Le bout de code avec la variable LastLigne semblait être une bonne approche

Le code ci-dessous devrait faire ce que tu souhaites

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim S As Worksheet
Set S = Worksheets("Save values")
 
If TextBox4.Value <> "" Then
    S.Range("O" & S.Range("A" & S.Rows.Count).End(xlUp).Row+1).Value = "GCW = " & UserForm5.TextBox4.Value
end if