Private Sub CommandButton1_Click() Sheets("Données").Select Range("A2").Activate Do If ActiveCell.Value = "" Then Arch = Archivage() Else ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell.Value = "" End Sub Function Archivage() ActiveCell.Value = ArchivageCommande.TextBox1.Value ActiveCell.Offset(0, 1).Select ActiveCell.Value = ArchivageCommande.TextBox2.Value ActiveCell.Offset(0, 1).Select ActiveCell.Value = ArchivageCommande.TextBox3.Value ActiveCell.Offset(0, 1).Select ActiveCell.Value = ArchivageCommande.TextBox4.Value ActiveCell.Offset(0, 1).Select End Function
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.