ligne vers le bas en VBA

  • Initiateur de la discussion Initiateur de la discussion xavier
  • 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 !

X

xavier

Guest
re bonjour a tous

encor un problème! voila je voudrait lorsque je valide un userform, que les information soit noter ligne par ligne et surtout les une en dessous des autres. dans ce que j'ai fait, il m'insère bien les ligne mais voila la ligne 1 devient la ligne 2 etc..

voila le code :

Dim I As Integer
I = ActiveCell.row
I = Worksheets("Liste_absent").Range("A200" & I).End(xlUp).row
Range("A5:A" & I).Select
Rows(I & ":" & I).Insert shift:=xlUp
Range("A" & I - 1 & ":H" & I - 1).AutoFill Destination:=Range("A" & I - 1 & ":H" & I), Type:=xlFillDefault
Worksheets("Liste_absent").Range("A" & I).Value = TextBox1.Value
Worksheets("Liste_absent").Range("D" & I).Value = TextBox2.Value
Worksheets("Liste_absent").Range("E" & I).Value = TextBox3.Value
Worksheets("Liste_absent").Range("F" & I).Value = TextBox4.Value
Worksheets("Liste_absent").Range("G" & I).Value = TextBox5.Value
Worksheets("Liste_absent").Range("H" & I).Value = ComboBox2.Value

ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show
end sub

et pour augmenté la difficulté, je voudrait qu'il m'incère les lignes a partir de la cellule A6 meme si une autre cellule est sélectioné.


merci d'avance

@+ xavier
 
Salut Xavier, salut le forum,

Si j'ai bien compris ton problème (c'est pas sûr du tout...), voici ta macro que j'ai modifiée :

Dim I As Integer
I = Worksheets("Liste_absent").Range("A200").End(xlUp).Row
Range(Cells(I, 1), Cells(I, 8)).Copy Destination:=Cells(I + 1, 1)
Worksheets("Liste_absent").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Liste_absent").Range("D" & I + 1).Value = TextBox2.Value
Worksheets("Liste_absent").Range("E" & I + 1).Value = TextBox3.Value
Worksheets("Liste_absent").Range("F" & I + 1).Value = TextBox4.Value
Worksheets("Liste_absent").Range("G" & I + 1).Value = TextBox5.Value
Worksheets("Liste_absent").Range("H" & I + 1).Value = ComboBox2.Value

ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show

À plus,

Robert
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
655
Réponses
4
Affichages
468
Réponses
3
Affichages
587
Réponses
6
Affichages
607
Réponses
0
Affichages
466
Retour