Discussion :

[kapoo]

Bonsoir à tout le monde.
Je suis en train de mettre en place pour mes cours un "logiciel" de gestion de stock dans une entreprise.

J'ai relativement bien avancé mais comme dit dans le titre, J'ai des problèmes avec l'utilisation de la fonction END(XLDOWN) ...

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
 Private Sub Enter1_Click()
Dim Produit As String
'produit

Dim quantité As Integer
'quantité

Dim variable As String

Dim variable2 As String

variable = Range("A1").End(xlDown).Row + 1

variable2 = Range("B1").End(xlDown).Row + 1

Produit = TextBox1.Value
quantité = TextBox2.Value

Cells(variable, 1).Value = Produit

Cells(variable2, 2).Value = quantité

End sub

Bref, mon programme ne veut pas marcher (logique) et me renvoit toujours à ce que j'ai balisé en rouge.
Je ne comprend pas pourquoi et si quelqu'un pourrait m'aider ce serait vraiment sympa.

[jfontaine]

Bonjour,

Pour avoir la prochaine ligne disponible, utilises plutot xlUP

Code :

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

variable = Range("A" & rows.count).End(xlUp).Row + 1

[Kaëléphine]

bonjour ,

Alors déjà :

Code :

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

Range("A1").End(xlDown).Row + 1

renvoi un nombre, je te conseil donc de changer tes :

Code :

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

1
2
3
Dim variable As String
 
Dim variable2 As String

Par :

Code :

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

1
2
3
Dim variable As Integer
 
Dim variable2 As Integer

Ensuite je pense que cela devrais fonctionner donc à toi d'essayer.

Je suis également d'accord avec jfontaine, c'est mieux de faire avec xlUp si tu cherche la dernière ligne

[kapoo]

Oui merci de vos réponses.
Ps : par rapport au changement de string en tant qu'integer, j'avais déjà essayé mais ça n'avait pas marché...
Ce n'est pas grave la fonction de Jfontaine marche au poil !
Merci !

PPS : Je recherchais en fait la fonction me permettant de revenir à la dernière ligne vide : par exemple : J'ai volontairement supprimé la ligne 4 de mon tableur excel et puis ai lancé mon programme. Comme je le pensais c'est la ligne la plus basse non utilisée(12) qui a été prise en compte, et non la 4 ...

De plus : en utilisant la fonction xldown du départ, avec les mêmes données du PPS, cela fonctionne. Mais dès qu'on retire manuellement toutes les données et en laissant les cellules (1, 1) et (1, 2) respectivement "Produit" et "Quantité", la fonction ne marche plus du tout.

C'est bizarre.