Un copier/coller spécial RESOLU

[Usine à gaz]

Bonjour à toutes et à tous,

Sans bruit, tout doucement, je pose un problème que je n'arrive pas à résoudre (certains me reconnaîtront 🙂)
Peut-être que la nuit apporte l'oubli ......

Voici mon soucis et je ne sais vraiment pas le résoudre. Je planche depuis des jours la-dessus, je consulte, je recherche et je n'y arrive pas.

Votre aide bienveillante me sera précieuse bien évidemment.

Voici ce que je recherche :

Sub Copie()
'
' Copie Macro
'

'
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    ActiveSheet.Unprotect Password:="mdp"
    feuille sur laquelle je souhaite faire la copie

    Sheets("Copie").Select
    ActiveSheet.Unprotect Password:="mdp"
    feuille sur laquelle je sélectionne la cellule à copier

    Range("A2:C37").Select
    Selection.Copy

    Sheets ( Il faudrait que la macro me propose la liste de mes feuilles pour sélection de la
    feuille et que je clique sur la cellule concernée ) Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("Copie").Select
    ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True

    Sheets ( retour sur ma feuille ou a été copié la valeur ).Select

    ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

J'aimerais aussi comprendre la solution en espérant ne pas trop vous importuner,
Merci encore une fois pour votre gentillesse,
Amicalement,
Caliméro,

 

[Dranreb]

Re : Un copier/coller spécial

Bonjour.

Mais qu'est-ce que vous espérez de cette macro comme gain par rapport aux manœuvres normales sous Excel pour copier une plage et la coller par valeurs à partir d'une cellule d'une autre feuille ?
Remarque: Si ce n'est qu'un exemple bidon, centré autour du problème de spécifier plusieurs plages devant faire l'objet d'un traitement, j'ai un Userform conçu pour préparer ce genre de travail, si ça vous intéresse, avec possibilité de rappeler depuis la procédure exécutante une sélection qui ne conviendrait pas.
…sans compter, durant le travail de préparation, la possibilité de passer en revue les différentes sélections avant de lancer le traitement.

 

[Usine à gaz]

Re : Un copier/coller spécial

Bonjour Dranreb,
Bonjour à tous,

Désolé de ne pas avoir pu répondre tout de suite à votre rapide réponse, j'étais absent.

De cette macro, j'espère pouvoir copier dans une seule cellule des textes venant de plusieurs cellules.

J'ai "regroupé" ces textes venant avec une formule "concatener" et je souhaiterais automatiser le copier/coller vers ma cellule de destination.

Bien sûr, votre UserForm m'intéresse et j'aimerai l'essayer 🙂

Un grand merci à vous.

Je vous souhaite à tous un très bon dimanche,
Amicalement,
Caliméro,

 

[Dranreb]

Re : Un copier/coller spécial

Bonjour.

Voyez si ça vous convient.

P.S Oublié UfSelect.Fermer. En profiter pour ajouter une gestion d'erreurs:

Option Explicit

Sub Concaténer()
UfSelect.Ouvrir "ConcaténerGo", "Concaténer", _
   "Cels:Les cellules dont vous voulez concaténer les valeurs." & vbLf & "(maintenez la touche Ctrl enfoncée.)", _
   "1Cel:La cellule résultante" & vbLf & "de la concaténation."
End Sub
Sub ConcaténerGo(TRg() As Range)
Dim Zon As Range, Cel As Range, Z As String, Étape As Long
On Error GoTo Err
Étape = 0
For Each Zon In TRg(0).Areas: For Each Cel In Zon: Z = Z & Cel.Value: Next Cel, Zon
Étape = 1
TRg(1).Value = Z
UfSelect.Fermer
Exit Sub
Err: UfSelect.ÉtapePlage Étape, "Err " & Err.numer & vbLf & Err.Description
End Sub

 

[Usine à gaz]

Re : Un copier/coller spécial

Merci Dranreb,
Je vais tester,
Amicalement,
Caliméro,

 

[Usine à gaz]

Re : Un copier/coller spécial

Waooo !!!

Vous lisez dans mes pensées.
C'est exactement ça !!!!
De plus, on peut changer de feuille pour sélectionner la cellule de destination.

Vraiment merci et aussi pour votre rapidité.

En ce qui concerne le "nouveau" code que vous m'indiquez, le j'ai copié mais il me semble identique à celui qui existait.

Encore merci,
Amicalement,
Caliméro,

 

[Dranreb]

Re : Un copier/coller spécial RESOLU

il me semble identique à celui qui existait.

Il était légèrement plus concis, mais j'ai décidé de remplacer aussi le classeur joint et vous avez dû récupérer tout ça après.

 

[Usine à gaz]

Re : Un copier/coller spécial RESOLU

Un super merci pour votre gentillesse,
Amicalement,
Caliméro,