Salut Curulis !
Ca marche Nickel !
Par contre le fait de placer le Application.OnKey "^c", "ConcatCOPY" dans l'ouverture du classeur, ça dit a excel, "a chaque fois que ctrl+c alors concat copy ... et donc impossible de copier les valeurs en dehors des plages voulues sans que ça bug vu que la condition se trouve dans la fonction concatcopy, donc après la procédure on key !
J'ai juste modifié un peu j'ai mis ça dans l'évenement Workbook_SheetSelectionChange
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Copie_concat_ref
If Selection.Column = 13 And Selection.Row > 4 And Selection.Cells.Count = 1 Then
Application.OnKey "^c", "ConcatCOPY"
Else
Application.OnKey "^c"
End If
End Sub
avec un ELSE qui remet par défaut la procédure CTRL+C si la sélection n'est pas dans la plage.
et du coup ta fonction mais sans condition
Public Sub ConcatCOPY()
'
Dim obj As DataObject, sData$
iRow = Selection.Row:
sData = Range("A" & iRow).Value & " - " & Range("M" & iRow).Value
Set obj = New DataObject
obj.SetText sData
obj.PutInClipboard
End Sub
tout est bon du coup, Un grand merci cette macro va m'être très utile.
Par contre j'ai une petite question, car pour moi la procédure OnKey à fonctionné correctement, mais si c'est pas le cas j'ai pas compris quoi faire...
quand tu dis:
Il faut d'abord t'assurer que la référence "Microsoft Forms 2.0" est bien cochée.
C'est ou qu'il faut vérifier ça ?