Macro ligne suivante

  • Initiateur de la discussion Initiateur de la discussion mathcyber
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mathcyber

XLDnaute Nouveau
Bonjour à tous,

Je bloque sur un point et celà fait trop longtemsp donc je me décide à poster.
Voilà j'ai un formulaire à remplir avec une macro. Ce formulaire va remplir la feuille 1 , a la première ligne. Mais quand je relance cette macro, les nouvelles infos remplacent les anciennes. Je joins mon code et qui pourrait me donner la formule pour aller à la ligne suivante vide...

Merci d'avance !!!

le code :

Private Sub CommandButton1_Click()

Unload UserForm1
Sheets("feuil1").Range("A1").Value = ComboBox1.Value
Sheets("feuil1").Range("B1").Value = TextBox8.Value
Sheets("feuil1").Range("C1").Value = ComboBox2.Value
Sheets("feuil1").Range("D1").Value = TextBox3.Value
Sheets("feuil1").Range("E1").Value = TextBox4.Value
Sheets("feuil1").Range("F1").Value = TextBox5.Value
Sheets("feuil1").Range("G1").Value = TextBox6.Value
Sheets("feuil1").Range("H1").Value = TextBox7.Value
Sheets("feuil1").Range("I1").Value = ComboBox3.Value


Sheets("Feuil1").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
If Selection.Row = 65536 Then
ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
End If

ActiveCell.Offset(1, 0) = ComboBox1.Value

End Sub

Merci encore!!!!
 
Re : Macro ligne suivante

Bonsoir mathcyber, bienvenue sur XLD,

remplace le début du code par celui-ci:


Code:
Unload UserForm1
derlig = Range("a65536").End(xlUp).Offset(1, 0).Row
Sheets("feuil1").Range("A" & derlig).Value = ComboBox1.Value
Sheets("feuil1").Range("B" & derlig).Value = TextBox8.Value
Sheets("feuil1").Range("C" & derlig).Value = ComboBox2.Value
Sheets("feuil1").Range("D" & derlig).Value = TextBox3.Value
Sheets("feuil1").Range("E" & derlig).Value = TextBox4.Value
Sheets("feuil1").Range("F" & derlig).Value = TextBox5.Value
Sheets("feuil1").Range("G" & derlig).Value = TextBox6.Value
Sheets("feuil1").Range("H" & derlig).Value = TextBox7.Value
Sheets("feuil1").Range("I" & derlig).Value = ComboBox3.Value
.......
.........
 
Re : Macro ligne suivante

Salut Mathcyber,

Une possibilité
Code:
Private Sub CommandButton1_Click()
Dim DerLig as long
 
Unload UserForm1
DerLig = Sheets("feuil1").Range("A" & Rows.count).End(XlUp).Row
If DerLig = 65536 Then
ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
End If
' Inscrire sur la ligne suivante
Sheets("feuil1").Range("A" & DerLig + 1).Value = ComboBox1.Value
Sheets("feuil1").Range("B" & DerLig + 1).Value = TextBox8.Value
Sheets("feuil1").Range("C" & DerLig + 1).Value = ComboBox2.Value
Sheets("feuil1").Range("D" & DerLig + 1).Value = TextBox3.Value
Sheets("feuil1").Range("E" & DerLig + 1).Value = TextBox4.Value
Sheets("feuil1").Range("F" & DerLig + 1).Value = TextBox5.Value
Sheets("feuil1").Range("G" & DerLig + 1).Value = TextBox6.Value
Sheets("feuil1").Range("H" & DerLig + 1).Value = TextBox7.Value
Sheets("feuil1").Range("I" & DerLig + 1).Value = ComboBox3.Value
 
ActiveCell.Offset(1, 0) = ComboBox1.Value
 
End Sub

A+

Edit : Opus désolé, skoobi, tu as été plus rapide 😉
 
Re : Macro ligne suivante

Re bonjour les gars,

Bon tout est presque ok, cependant encore un soucis,j'espère que quelqu'un va revenir sur ce post !!!

Dans la macro ci-dessus, la TextBox3 est une saisie de date. Mais une fois que cette saisie est insérée dans excel, excel ne reconnait pas le format date, et vu que cette case est associé à une autre case recherchant grace à elle.... Et ben il ne trouve pas !

EN gros excel interprète mal la saisie que je lui fait dans cette TextBox...

Avez vous une idée?

++++
ET merci d'avance
 
Re : Macro ligne suivante

bonjour mathcyber, le forum,

Sans etre sur d'avoir bien compris, essaies de mettre ta cellule au format date
apres l'avoir renseigné:

A insérer dans le code:

Sheets("feuil1").Range("D" & DerLig + 1).Value = TextBox3.Value

Sheets("feuil1").Range("D" & DerLig + 1).NumberFormat = "dd/mm/yy;@"

Sheets("feuil1").Range("E" & DerLig + 1).Value = TextBox4.Value

A+
 
Re : Macro ligne suivante

Salut Mathcyber, CelluleVide, Skoobi🙂, Bruno🙂, le Forum

Merci encore une fois...
A force je vais finir par m'abonner pour soutenir ce forum qui me semble vraiment complet...

Merci encore!
Justement... Qu'est-ce qui t'en empêche?


Heu...C'estpourlabonnecause

Un grand Salut à David 😀

Bonne Journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
370
Réponses
2
Affichages
409
Réponses
9
Affichages
366
Retour