Passer a la ligne suivante [Résolu]

jeanlucsl65 12 Messages postés vendredi 23 novembre 2007Date d'inscription 1 décembre 2007 Dernière intervention - 1 déc. 2007 à 21:35 - Dernière réponse : jeanlucsl65 12 Messages postés vendredi 23 novembre 2007Date d'inscription 1 décembre 2007 Dernière intervention
- 1 déc. 2007 à 23:21
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


 
Afficher la suite 

Votre réponse

6 réponses

Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 1 déc. 2007 à 21:45
0
Merci
Salut,

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

__________
  Kenji
Commenter la réponse de Charles Racaud
jeanlucsl65 12 Messages postés vendredi 23 novembre 2007Date d'inscription 1 décembre 2007 Dernière intervention - 1 déc. 2007 à 22:07
0
Merci
lg est deja declarée toute en haut de form en declaration générale et ça ne marche pas quand meme
Commenter la réponse de jeanlucsl65
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 1 déc. 2007 à 22:09
0
Merci
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
Commenter la réponse de Charles Racaud
jeanlucsl65 12 Messages postés vendredi 23 novembre 2007Date d'inscription 1 décembre 2007 Dernière intervention - 1 déc. 2007 à 22:51
0
Merci
j'ai fait ce que t'as dit et rien ne s'ecrit. De plus je suis obliger d'ecrire a partir de b12
Commenter la réponse de jeanlucsl65
jeanlucsl65 12 Messages postés vendredi 23 novembre 2007Date d'inscription 1 décembre 2007 Dernière intervention - 1 déc. 2007 à 23:21
0
Merci
c'est niquel, c'est au poil, c'est tellement beau ......

ça fait 2 jours que je planche la dessus.

merci beaucoup a toi
Commenter la réponse de jeanlucsl65
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 1 déc. 2007 à 23:14
-2
Merci
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
Commenter la réponse de Charles Racaud

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.