[macro Excel] chercher première ligne vide

Résolu/Fermé

schont Messages postés 33 Date d'inscription samedi 14 juillet 2007 Statut Membre Dernière intervention 11 juillet 2013 - 17 juil. 2007 à 09:20
schont Messages postés 33 Date d'inscription samedi 14 juillet 2007 Statut Membre Dernière intervention 11 juillet 2013 - 17 juil. 2007 à 14:17

Bonjour,
J'utilise un UserForm pour remplir plus facilement un tableau.
Mon problème est que je ne sais pas comment faire pour que lorsque je rentre les infos dans la fenetre de l'UserForm, elles soient ajoutées automatiquement à la suite des autres.
Concrètement j'ai en A1 : Reférence; en B1 : Nom produit ; ect ... et en A2;A3;A4 ... les références et en B2; B3; B4 ... les noms des produits.
Actuellement j'ai dans mon userform une case dans la laquelle je saisie la ligne dans laquelle toutes les infos doivent être ajoutées et je souhaite une macro qui cherche automatiquement la première ligne vide et que les informations que je saisie dans l'UserForm soient ajoutées dans cette ligne.
Je ne sais pas si je suis très clair ,

Le début de code actuel :

Private Sub CommandButton2_Click()
Dim Lg As String
' La ligne dans laquelle sont ajoutées les valeurs est définie par la textbox6
Lg = UserForm1.TextBox6.Value
' texte des cases
Sheets("Feuil1").Cells(Lg, "A").Value = UserForm1.TextBox1.Value

Si quelqu'un peut m'aider ... merci

A voir également:

[macro Excel] chercher première ligne vide
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Hors ligne instagram - Guide

1 réponse

Réponse 1 / 1

Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 59
17 juil. 2007 à 14:10

Bonjour schont,

Et voilà :

Private Sub CommandButton2_Click() 
Dim Lg As String 
' La ligne dans laquelle sont ajoutées les valeurs est définie par la textbox6 
Lg = Sheets("Feuil1").cells(65536,1).end(xlup).row+1
' texte des cases 
Sheets("Feuil1").Cells(Lg, "A").Value = UserForm1.TextBox1.Value

Attention, si la colonne est vide, il faut supprimer le '+1', sinon :

Private Sub CommandButton2_Click() 
Dim Lg As String 
' La ligne dans laquelle sont ajoutées les valeurs est définie par la textbox6 
If Sheets("Feuil1").cells(65536,1).end(xlup).row = 1 then
  Lg=2
  Else
  Lg=Sheets("Feuil1").cells(65536,1).end(xlup).row+1
End If
' texte des cases 
Sheets("Feuil1").Cells(Lg, "A").Value = UserForm1.TextBox1.Value

Cordialement

schont Messages postés 33 Date d'inscription samedi 14 juillet 2007 Statut Membre Dernière intervention 11 juillet 2013 10
17 juil. 2007 à 14:17

Merci Papou93 !!! Vous reglez tous mes problèmes !!

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters