rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

[macro Excel] chercher première ligne vide

schont, le mardi 17 juillet 2007 à 09:20:59
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
Configuration: Windows XP
Internet Explorer 6.0
Excel 2003
Répondre à schont  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Papou93, le mardi 17 juillet 2007 à 14:10:46
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
Répondre à Papou93

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 schont, le mardi 17 juillet 2007 à 14:17:34
Merci Papou93 !!! Vous reglez tous mes problèmes !!
Répondre à schont
Logiciels pertinents trouvés dans les téléchargements
Télécharger StaxRip 1.0.0.3StaxRip - StaxRip est un logiciel libre pour convertir votre DVD. Avec cet outil, vous pouvez facilement convertir en MPEG-4 votre...Catégorie: Conversion
Licence: Open Source
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger PSP Video 9 2.25PSP Video 9 - PSP Video 9 est un outil de conversion gratuit permettant de convertir des fichiers vidéo (avi, divx, mpeg, etc.) au formats...Catégorie: Edition vidéo
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [macro Excel] chercher première ligne vide »