modifier des données et les enregistrer à la fin

[jpcwe]

bonjour,

Voilà mon probléme:
Des candidats peuvent se présenter jusqu'à trois fois à un jury.
Il faut que j'enregistre jusqu'à trois fois le même dossier d'un candidat en modifiant sa date de présentation et sa note.
Ce que je souhaite c'est récupérer ses informations, les modifier et les enregistrer sur la dernière ligne vide.
la formule suivante peut-elle m'aider?

Range('CA1O1').Copy Cells(Range('A1').End(xldown).Row + 1, 1)

merci a+

 

[ziopizza]

Bonjour jpcwe et le forum,
Essaye comme ça si j'ai bien compris.

Sub tt()
Range('ca1:do1').Copy Cells(Range('A65536').End(xlUp).Row + 1, 1)
End Sub

 

[jpcwe]

Re:modifier des données et les enregistrer à la fi

bonsoir
il suffisait de mettre un indice LL pour repérer l'enregistrement puis dés détection du changement de récupérer la ligne:

Private Sub Combobox6_Change()
Dim pres As String
Dim i As Integer

pres = Combobox6.Value
If pres = '2ème' Then
LL = Sheets('IDENTIF').Range('A65536').End(xlUp).Row + 1
End If

End Sub

merci