Discussion :

[Mr l'Ashanti]

bjr à vous.
je tiens à remercier tous ceux qui prennent leur précieux temps pour nous aider.
en suivant les conseils sur ce forum et les petits cours en pdf j'ai énormément progressé. merci encore une fois.
ouf, ben voila qu'en progressant exponentiellement je me suis heurté à un gros mur.

je voulais ajouter des données a ma feuille source via des textbox dans mon userform et j ai écris ce code par moi même.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
private sub Bt1_ajouter
dim lig as long
 
if t1<>""  then
sheets("feuil1").listobjects(1).listrows.add
lig=sheets(" feuil1").range("A6500").end(xlup).row
sheets("feuil1").range("A2"& lig )=me.t1
sheets("feuil1").range("B2"& lig )=me.t2
sheets("feuil1").range("C2"& lig )=me.t3
sheets("feuil1").range("D2"& lig )=me.t4
sheets("feuil1").range("E2"& lig )=me.t5
 
end if

mais quand je saisie, les lignes s'ajoutent belle et bien mais pas les valeurs des textbox. vous pouvez me dire qu'est ce qui bloque dans ce code au point où aucune donnée ne s'ajoute à part les lignes vierges?

voici un extrait de mon formulaire simplifié