Bouton couper-coller ligne

[Louidji]

Bonjour,
je m'emmèle les pinceaux: comment faire pour programmer le bouton qui doit repérer la ligne de la cellule sélectionnée, et la couper-coller sur une autre feuille sur la première ligne vide par exemple?
Merci beaucoup!!!

 

[Louidji]

Re : Bouton couper-coller ligne

C'est moi où j'ai posé une colle aux pro d'excel? 😎

 

[roro69]

Re : Bouton couper-coller ligne

réponses

ActiveCell.EntireRow.Copy (non de le feuille ou tu souhaite collé).Range("A1").End(xlDown).Offset(1, 0)

PS:je pense pas que ce soit une histoire de pro mais bon...........

 

[job75]

Re : Bouton couper-coller ligne

Bonjour Louidji,

Une colle 😕

Ce type de problème a été réglé maintes et maintes fois sur le forum.

Cherchez un peu.

Et si vous ne trouvez pas, revenez en joignant votre fichier.

Edit : salut roro69, c'est bon, avec nom de la feuille => CodeName de la feuille

A+

 

[Louidji]

Re : Bouton couper-coller ligne

bonsoir a vous,
J'ai essayé ce que roro69 propose mais ca ne fonctionne pas visiblement dans mon cas, est-ce normal?
Et j'ai cherché effectivement sur le forum et les solutions me paraissent toutes compliqués, ou trop pour moi,
d'où ma question.
Si quelqu'un veut bien encore m'aider: j'ai mis en PJ le fichier type!

 

[laurent950]

Re : Bouton couper-coller ligne

Bonsoir,

sur le fichier test, faite une couleur sur la ligne a selectionner (ous les ligne a selectionner) celle qui sero copie sur la feuille (l'autre feuille) et copier les donner ( a cette endroit) ?

puis vous voulais (ensuite je verais qu'elle commenade mettre)

laurent

 

[job75]

Re : Bouton couper-coller ligne

Re,

D'où l'intérêt de voir le fichier...

Utiliser l'une ou l'autre de ces 2 macros pour le code du bouton :

Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy Tabelle4.Rows(Tabelle4.Range("D65536").End(xlUp).Row + 1)
End Sub

Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy Sheets("Tabelle2").Rows(Sheets("Tabelle2").Range("D65536").End(xlUp).Row + 1)
End Sub

En feuille Tabelle1 sélectionner une cellule en ligne 9, 10 ou 11 puis cliquer sur le bouton.

C'est du Copier-Coller, pour le Couper-Coller, remplacer Copy par Cut (pas bien beau).

Edit 1 : je joins quand même le fichier au cas où...

Edit 2 : je n'avais pas joint le bon fichier !!!

A+

 

[job75]

Re : Bouton couper-coller ligne

Bonjour le fil, le forum,

Deux solutions plus élaborées utilisant le double-clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 9 Then Exit Sub
Cancel = True
With Tabelle4 'CodeName de la feuille
'With Sheets("Tabelle2") 'Name de la feuille
  Target.EntireRow.Copy .Rows(.[D65536].End(xlUp).Row + 1)
  Target.EntireRow.Delete
  .Activate 'facultatif
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 9 Then Exit Sub
Dim lig As Variant
Cancel = True
With Tabelle4 'CodeName de la feuille
'With Sheets("Tabelle2") 'Name de la feuille
  lig = Application.Match(Cells(Target.Row, 4), .[D9:D65536], 0)
  If IsError(lig) Then lig = .[D65536].End(xlUp).Row + 1 _
    Else lig = lig + 8
  Target.EntireRow.Copy .Rows(lig)
  .Activate 'facultatif
End With
End Sub

Fichiers joints.

La 2ème solution (fichier Copier) met à jour la ligne si elle a déjà été copiée.

A+

 

[Louidji]

Re : Bouton couper-coller ligne

Un grand merci, c'est bon, j'ai ce que je voulais, vous etes formidables !