Un copier/coller spécial RESOLU

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :

Code:
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,
 

Pièces jointes

Dernière édition:
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.
 
Dernière édition:
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,
 
Dernière édition:
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:
VB:
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
 

Pièces jointes

Dernière édition:
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,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
1 K
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
16
Affichages
1 K
Réponses
5
Affichages
477
Réponses
5
Affichages
567
Réponses
12
Affichages
703
Retour