copie simple en vba

[cromate]

bonjour,

je souhaite pouvoir copier en cliquant sur une cellule qu'elle se copie 2 colonnes plus loin sur la même ligne. J'ai trouvé un exemple qui n'est pas loin de mon souhait, mais je suis bloquée.

merci d'avance et bonne journée

 

[DoubleZero]

Re : copie simple en vba

Bonjour, cromate, le Forum,

Peut-être ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 And Target.Row > 5 Then
Target.Offset(, 2) = Target
End If
End Sub

A bientôt 🙂

P. S. : Bonjour, camarchepas 😀

 

[camarchepas]

Re : copie simple en vba

Bonjour Cromate,

Comme ceci peut être :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = ActiveCell
If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
 Target.Offset(0, 2) = Target.Value
End Sub

@ Double Zéro bonjour , le temps de lever la tête et hop trop tard , tu était déjà passé , la solution est presque du copié coller .... aurait -on eu les mêmes professeurs , lol

Un plus pour toi , tu sécurise la prise en compte de la première ligne effective ....

 

[DoubleZero]

Re : copie simple en vba

Re-bonjour,

... tu sécurise la prise en compte de la première ligne effective ....

Oui, et j'aurais dû y penser avant 😱

A bientôt 🙂🙂

 

[job75]

Re : copie simple en vba

Bonjour cromate, hello 00 🙂 camarchepas 🙂

(...) mais je suis bloquée.

Votre profil indique un homme ?

Cette macro permet la sélection d'une plage et même de plusieurs plages (touche Ctrl enfoncée) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Range("B6:B" & Rows.Count))
If r Is Nothing Then Exit Sub
For Each r In r.Areas
  r.Columns(3) = r.Value
Next
End Sub

A+

 

[job75]

Re : copie simple en vba

Re,

Si l'on ne veut pas copier les cellules vides, le plus simple est de les analyser une par une :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Range("B6:B" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r
  If r <> "" Then r(1, 3) = r
Next
End Sub

A+