copier ligne entiere sur autre feuille

[wachoo31]

Bonsoir à toutes et tous,


Encore un petit problème, a partir d'un fichier ci-joint de notre ami @thierry,je construit un programme, mais malheureusement je bloque sur une chose.

Dans le fichier joint, dans le USF, il y a un bouto pour supprimer une ligne entière, mais voilà j'aurais voulu pouvoir copier cette ligne sur la derniere ligne vide d'une autre feuille avant de le supprimer

en vous remerciant

 

[Lionel]

Bonsoir wachoo31,

Je ne comprends pas trop où se situe ton problème :unsure: .

Il te suffit d'utiliser la procédure événementielle 'on click' et, si tu connais la ligne à copier et l'endroit de destination, tu devrais pouvoir t'en sortir, non ?

Amicalement
Lionel

 

[wachoo31]

bONSOIR Lionel? LE FORUM

Non je ne connais pas exactement laligne, enfin si c'est celle qui apparait dans les textbox de l'USF, mais le numéro de ligne est variable

 

[Lionel]

Re-bonsoir wachoo,

Alors, un fichier joint (promis au départ du fil) serait peut-être le bienvenu pour t'aider, non ???

Amitiés
Lionel

 

[wachoo31]

Bonjour à tous,

En effet le fichier n'est pas passé je le remet

[file name=USF_Gestion_Base_de_donnees.zip size=28487]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USF_Gestion_Base_de_donnees.zip[/file]

 

[Lionel]

Bonjour wachoo et le forum,

J'ai regardé ton code et je te propose, pour la sauvegarde de modifier celui de ta commande supprimer de la sorte :

Private Sub CmdSupprimer_Click()
Dim CTRL As Control 'Variable pour la collection des controls
Dim i As Integer
Dim Response As Byte

For Each CTRL In Me.Controls
If CTRL = '' Then MsgBox 'Donnée Incomplete', vbCritical, T: CTRL.SetFocus: Exit Sub
Next CTRL

'Ici un message demandant d'accepter la suppression en les listant
Response = MsgBox('Les coordonnées de ' & vbCrLf & vbCrLf & _
'Nom : ' & vbTab & vbTab & ComboBox1 & vbCrLf & vbCrLf & _
'New Prénom : ' & vbTab & TextBox1 & vbCrLf & vbCrLf & _
'New Adresse : ' & vbTab & TextBox2 & vbCrLf & vbCrLf & _
'New C/Postal : ' & vbTab & ComboBox2 & vbCrLf & vbCrLf & _
'Vont être définitivement Supprimées ? ', vbCritical + vbOKCancel, T & ' SUPPRESSION de : ' & Nom)

'Si Réponse OK on continue
If Response = 1 Then
Application.ScreenUpdating = False

'ici avec la Feuille on va faire :
With WS
.Rows(Me.ComboBox1.ListIndex + 2).EntireRow.Copy
Sheets('Données').Activate
Range('A65536').End(xlUp).Select
If Not IsEmpty(Selection) Then Selection.Range('A2').Select
ActiveSheet.Paste
Sheets('database').Activate
.Rows(Me.ComboBox1.ListIndex + 2).EntireRow.Delete
End With
Application.ScreenUpdating = True
'On evoie un message de confirmation
MsgBox 'Opération accomplie', vbInformation, T
Ini 'On lance la réinitialisation du UserForm (Macro en haut du Module)

'Si Réponse Annulation on envoie un message et on a rien fait
Else: MsgBox 'Opération annulée', vbInformation, T
End If
End Sub

Ce n'est certainement pas la meilleure solution, mais ça pourra répondre à ta demande, je pense...

Amicalement
Lionel

 

[wachoo31]

Bonjour, Lionel, le forum

Lionel, merci de m'avoir accordé un peu de ton temps, je prend ta solution et la mais en application

Passe un bon dimanche

@+