Complèment de code

Bonjour tout le monde,

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 " .

Je vous remercie d’avance pour votre aide.

Rubis

1 « J'aime »

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 ?

Bonjour,

Merci pour votre intérêt à ma demande.

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.

Re Cow18,

voici un fichier modèle, car je n’y arrive pas avec ta modification.

Merci à vous
Fichier Rubis.xlsm (23,0 Ko)

Fichier Rubis.xlsm (33,8 Ko)

1 « J'aime »

Re,

Super, comme souhaité. :+1: :+1:

Merci beaucoup Cow18.

Bonne soirée et à une prochaine fois peut-être.

Rubis

1 « J'aime »