Bonjour.
Je viens de faire une macro qui affiche un formulaire. Les données de celui ci sont copiées dans une feuille mais a chaque création d'une ligne, celle ci est crée en dernier.
Je souhaiterai au contraire quelle apparaisse en premier soit en ligne 13, et que les autres descendent d'une ligne.
voici comment j'ai écris le code:
Si qlq un a une idée !!!!
merci d'avance!
Private Sub Cmdvalidation_Click()
num = Sheets('Actions').Range('A65536').End(xlUp).Row + 1
Sheets('actions').Activate
Range('A' & num).Value = CDate(TxtDate.Value)
Range('B' & num).Value = Txtconstat.Value
Range('C' & num).Value = Txtdemandeur.Value
Range('D' & num).Value = Cboligne.Value
Range('E' & num).Value = Cboproduit.Value
Range('F' & num).Value = Cbojedec.Value
Range('G' & num).Value = Cbodéfaut.Value
Range('H' & num).Value = Cbotea.Value
Range('I' & num).Value = Txtfiche.Value
Range('J' & num).Value = Cborapport.Value
Range('K' & num).Value = Txtnumero.Value
Range('L' & num).Value = Txtcommentaire.Value
'Range('M' & num).Value = TxtIngrédients.Value
'Range('N' & num).Value = TxtRecette.Value
'Range('O' & num).Value = TxtCommentaire.Value
Unload UserForm1
End Sub
Je viens de faire une macro qui affiche un formulaire. Les données de celui ci sont copiées dans une feuille mais a chaque création d'une ligne, celle ci est crée en dernier.
Je souhaiterai au contraire quelle apparaisse en premier soit en ligne 13, et que les autres descendent d'une ligne.
voici comment j'ai écris le code:
Si qlq un a une idée !!!!
merci d'avance!
Private Sub Cmdvalidation_Click()
num = Sheets('Actions').Range('A65536').End(xlUp).Row + 1
Sheets('actions').Activate
Range('A' & num).Value = CDate(TxtDate.Value)
Range('B' & num).Value = Txtconstat.Value
Range('C' & num).Value = Txtdemandeur.Value
Range('D' & num).Value = Cboligne.Value
Range('E' & num).Value = Cboproduit.Value
Range('F' & num).Value = Cbojedec.Value
Range('G' & num).Value = Cbodéfaut.Value
Range('H' & num).Value = Cbotea.Value
Range('I' & num).Value = Txtfiche.Value
Range('J' & num).Value = Cborapport.Value
Range('K' & num).Value = Txtnumero.Value
Range('L' & num).Value = Txtcommentaire.Value
'Range('M' & num).Value = TxtIngrédients.Value
'Range('N' & num).Value = TxtRecette.Value
'Range('O' & num).Value = TxtCommentaire.Value
Unload UserForm1
End Sub