recopier ligne du dessus au double/clic ou clic droit

[pascal21]

bonjour le forum
je suis en train de réaliser un tableau où des valeurs identiques peuvent se retrouver lignes après lignes
je suis à la recherche du code qui permet sur un clic droit ou un double clic (au choix!!) de recopier la cellule située au dessus de celle qui est active et ce, sur les colonnes C, D, et E
comment réaliser ceci en VBA?
merci

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Bonjour Pascal,

regarde le code ci-dessous si il peut t'aider, à utiliser dans le module de la feuille concernée...

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 2 And Target.Column < 6 Then
    If Target.Row > 1 Then Target.Offset(-1, 0).Copy Range("h65536").End(xlUp)(2)
    Cancel = True
End If
End Sub

bonne journée
@+

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

bonjour pierrot
la recopie se fait bien mais pas dans la bonne colonne
en que je fasse clic droit (oui j'ai choisi le clic droit!!) dans la colonne C D ou E
ça me recopie tout dans la colonne H
peut-être que je me suis mal expliqué
j'aimerais d'ailleurs que la colonne B soit aussi concernée par le code si possible
merci

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Re,

fait avec les indications fournies.... il me semble que tu peux maintenant adapter les colonnes concernées et celle de destination, non....

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

jamais été très fort avec les "target" et autres "rows" mais je vais essayer

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Re,

pour prendre en compte la colonne B :

modifier cette ligne :

If Target.Column > [COLOR="red"]2[/COLOR] And Target.Column < 6 Then

par :

If Target.Column > [COLOR="Red"]1[/COLOR] And Target.Column < 6 Then

@+

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

re
pour cette partie du code j'avais déja modifier , je l'ai fais un peu à la "sauvage"

If Target.Column < 6 Then

ça marche aussi
merci quand même
là je suis en train de chercher un code qui fasse la recopie mais colonne par colonne, pour éviter de me servir de "target" quitte à le recopier pour autant de colonne qu'il y a

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

If Target.Row > 1 Then [COLOR="Red"]Target[/COLOR].Offset(-1, 0).Copy Target.End(xlUp)(2)

ok c'est bon , j'ai trouvé en remplacent 'range(f65000) par target
tput betement
merci pour ton aide

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Re,

En l'occurence, "target" représente la cellule double cliquée... c'est la cellule qui a déclenchée l'événement....

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Re,

attention, avec ce code :

If Target.Row > 1 Then Target.Offset(-1, 0).Copy Target.End(xlUp)(2)

il y a des chances pour que la cllulle de destination ne soit pas vide, et donc son contenu remplacé... A voir si c'est cela que tu veux...

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

SI 9A CONVIENT
C'EST UNIQUEMENT Pour ne pas à avoir à réécrire plusieurs fois les saisies identiques qui se suivent
bonne journée

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Re,

ok, alors c'est parfait... bonne journée

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

bonjour
je relance car je souhaiterais une petite modification
toujours sur la base du code ci-dessous

If [COLOR="Red"]Target[/COLOR].Column < 6 Then
    If Target.Row > 1 Then Target.Offset(-1, 0).Copy Target.End(xlUp)(2)
    Cancel = True
End If

mais avec un bouton et non plus au double clic ou au clic droit
tel quel, j'ai une erreur du type "variable non définie"
avec "target" surligné
pouvez-vous m'aider à modifier ce code merci
ce que je souhaiterais en fait:
c'est les colonnes b c d et e recopie la derniere ligne écrite
je vous joint cette fois un petit fichier
il s'agit de gagner du temps sur des saisies répètitives
au pire un bouton par colonne me conviendrait aussi
merci de votre aide

 

[Pierrot93]

Re : recopier ligne du dessus au double/clic ou clic droit

Bonjour Pascal,

remplace peut être tous les "Target" par "activecell", à voir... Enlève également cette ligne

Cancel = True

bonne journée
@+

 

[pascal21]

Re : recopier ligne du dessus au double/clic ou clic droit

bonjour pierrot
ça marche mais uniquement sur une cellule active
j'ai modifié le code comme cela
c'est un peu barbare mais ça fonctionne

    If ActiveCell.Row > 1 Then ActiveCell.Offset(-1, 0).Copy ActiveCell.End(xlUp)(2)
ActiveCell.Offset(0, 1).Select
If ActiveCell.Row > 1 Then ActiveCell.Offset(-1, 0).Copy ActiveCell.End(xlUp)(2)
ActiveCell.Offset(0, 1).Select
If ActiveCell.Row > 1 Then ActiveCell.Offset(-1, 0).Copy ActiveCell.End(xlUp)(2)
ActiveCell.Offset(0, 1).Select
If ActiveCell.Row > 1 Then ActiveCell.Offset(-1, 0).Copy ActiveCell.End(xlUp)(2)
ActiveCell.Offset(0, 1).Select

il y a surrement le moyen de le simplifier
mais je ne sais pas faire