dans le code ci dessous, je souhaiterai qu’il me copie chaque nouvelles données à la ligne suivante.
Private Sub CommandButton1_Click() 'valider
If Me.TextBox1.Value = "" Then MsgBox ("Vous n'avez pas saisie la date"):
Me.TextBox1.SetFocus: Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("RTV")
If Me.OptionButton1 = True Then
Sheets("RTV").Range("AJ8").Value = Me.ComboBox2.Value & " " & TextBox1.Value
Sheets("RTV").Range("AJ14").Value = Me.ComboBox3.Value
Sheets("RTV").Activate
Unload Me
End If
End Sub
Donc pour être plus précis, si je valide la première fois un enregistrement il me copie les données du Combobox2 et Textbox1 dans la cellule " AJ8 " de l’onglet " RTV".
Mon souhait serait qu’il me place lors de mon prochain enregistrement les données du Combobox2 et Textbox1 dans la cellule " AJ9 ". Et ainsi de suite jusqu’à la cellule " AJ13 " .
pour une feuille ordinaire
Sheets(« RTV »).Range(« AJ » & rows.count).end(xlup).offset(1).Value = Me.ComboBox2.Value & " " & TextBox1.Value
pour un tableau structuré
Range(« Tableau1 »).listobject.listrows.add.range(« A1 »).value = Me.ComboBox2.Value & " " & TextBox1.Value
cela dépend ce que vous avez …
Avez-vous un fichier à partager ?
Y-a-t-il quelque chose de particulier à partir de AJ14 ?
Oui c’est une feuille ordinaire. J’ai besoin de 6 cellules pour enregistrer des données. Donc pour cela ça démarre de la cellule AJ8 et se termine à la cellule AJ14.
Parfois il arrive que l’on doit saisir 6 fois des données et parfois cela ne peut être qu’une seule.
