Passer a la ligne suivante [Résolu]

Signaler
Messages postés
12
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007
-
Messages postés
12
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007
-
bonjour forum, voici un petit bout de code :

Private Sub cmdok_Click()


lg = 11
lg = lg + 1
wsexcel.Cells(lg, 2) = Textdesign.Text


Textdesign.Text = ""


End Sub


qui ecrit le texte d'un textbox dans la cellule b12 d'un fichier excel.
Comment faire pour ecrire en b13 puis en b14 etc... sans effacer les cellules précédentes.

Merci de votre aide


 

6 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut,

Il faut initialiser lg au tout début et non à chaque ajout.
Dans le From_Load par exemple.

__________
  Kenji
Messages postés
12
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007

lg est deja declarée toute en haut de form en declaration générale et ça ne marche pas quand meme
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
MAIS il ne faut pas la remettre à 11 à chaque ajout !!

Private Sub cmdok_Click()
<strike>lg = 11</strike>
lg = lg + 1
wsexcel.Cells(lg, 2) = Textdesign.Text

Textdesign.Text = ""

End Sub

__________
  Kenji
Messages postés
12
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007

j'ai fait ce que t'as dit et rien ne s'ecrit. De plus je suis obliger d'ecrire a partir de b12
Messages postés
12
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007

c'est niquel, c'est au poil, c'est tellement beau ......

ça fait 2 jours que je planche la dessus.

merci beaucoup a toi
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Bon, on reprend, il faut déclarer lg en déclaration générale mais aussi l'initialiser.
Ca donnerai donc :
Dim lg As Integer ' Déclaration

Private Sub Form_Load()
  lg = 11 ' Initialisation
End Sub

Private Sub cmdok_Click()
  lg = lg + 1
  wsexcel.Cells(lg, 2) = Textdesign.Text
  
  Textdesign.Text = ""
End Sub, ----
(Coloration syntaxique automatique par Kenji)

__________
  Kenji