Sélection et copier

[Michel_91380]

Bonsoir à tous,

Un petit problème qui me tiens tête depuis un moment je voudrais pouvoir sélectionner une ligne en cliquant sur une cellule de la colonne A de ma feuille (il faudrait que ça sélectionne toutes les colonnes de la ligne concernée) et que ça colle la ligne sur la feuille suivante à la première ligne vide.
J'espère avoir été clair dans mon explication, je joint un petit fichier pour que ce soit plus clair. Merci pour vos idées.

 

[Modeste geedee]

Re : Sélection et copier

Bonsour®

as- tu essayé de faire toute la manipulation de façon manuelle
en utilisant toutes les commandes claviers

permettant :
sélectionner une cellule
puis la ligne complete
puis copier
puis changer d'onglet
atteindre la fin de colonne
coller

si Oui : alors utilise l'enregistreur de macro

 

[JHA]

Re : Sélection et copier

Bonjour Mdeste🙂

Comment je fais pour étendre la sélection jusque la colonne "G" 😕
Ne doit on pas figer la zone du double clic avec par exemple
"If Not Intersect(Target, Range("A1:A5")) Is Nothing Then ...."

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'
' allerversFeuilleSelection Macro
'


With Selection
    .Copy Destination:=Feuil2.Range("A65536").End(xlUp).Offset(1, 0)
    '.Delete
End With


End Sub

J'avais mis ".delete" pour effacer la ligne de l'onglet base mais cela n'est pas demandé.

JHA

 

[DoubleZero]

Re : Sélection et copier

Bonjour à toutes et à tous,

@ Michel_91380,

Placer le code ci-après dans le module de l'onglet "Base". Un clic double en colonne a duplique les valeurs sur l'onglet "Selection".

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    If c.Column <> 1 Then Exit Sub
    With c
        .EntireRow.Copy Destination:=Sheets("Selection").Range("a" & Rows.Count).End(xlUp)(2)
        .Interior.ColorIndex = 36    ' facultatif
        .Select
    End With
End Sub

@ JHA 🙂,

Comment je fais pour étendre la sélection jusque la colonne "G" 😕

With Selection.Resize(, 7)

A bientôt 🙂

 

[Si...]

Re : Sélection et copier

salut

Avec l’indice donné ci-dessus par ÒÓ ou 😀😀 pour les 7 colonnes et dans la page de code de la feuille Base :

pour copier les valeurs, formats, formules sur la même ligne (A4) :

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If R.Column = 1 Then R.Resize(, 7).Copy Feuil2.[A4]
End Sub

pour ne copier que les valeurs sur la même ligne (A4) :

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If R.Column = 1 Then Feuil2.[A4].Resize(, 7) = R.Resize(, 7).Value
End Sub

 

[JHA]

Re : Sélection et copier

Bonjour DoubleZero🙂

Merci pour la syntaxe proposée, cela fonctionne correctement.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'
' allerversFeuilleSelection Macro
'


With Selection.Resize(, 7)
    .Copy Destination:=Feuil2.Range("A65536").End(xlUp).Offset(1, 0)
    .Delete
End With


End Sub

Ce code n'est pas parfait car il autorise un double clic n'importe où mais si on double clic en colonne A cela donne le résultat escompté.

JHA

 

[DoubleZero]

Re : Sélection et copier

Bonjour, le Fil 🙂, le Forum,

... pas parfait car il autorise un double clic n'importe où...

C'est la raison pour laquelle il est préférable de préciser où l'action doit avoir lieu :

If c.Column <> 1 Then Exit Sub

Cela signifie : procédure active uniquement en colonne a.

A bientôt 🙂