passer a la ligne suivanteRésolu

Question

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

Charles Racaud · Answer

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

jeanlucsl65 · Answer

lg est deja declarée toute en haut de form en declaration générale et ça ne marche pas quand meme

Charles Racaud · Answer

MAIS il ne faut pas la remettre à 11 à chaque ajout !! Private Sub cmdok_Click() ~~lg = 11~~ lg = lg + 1 wsexcel.Cells(lg, 2) = Textdesign.Text Textdesign.Text = "" End Sub __________ Kenji

jeanlucsl65 · Answer

j'ai fait ce que t'as dit et rien ne s'ecrit. De plus je suis obliger d'ecrire a partir de b12

Charles Racaud · Answer

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

jeanlucsl65 · Answer

c'est niquel, c'est au poil, c'est tellement beau ......

ça fait 2 jours que je planche la dessus.

merci beaucoup a toi

Passer a la ligne suivante

6 réponses

Votre réponse