Forcer le copier-coller d'un texte avec paragraphe dans une cellule

Bonjour,

En colonne C, de nombreuses données sont sont saisies manuellement; des formes peuvent y être insérées (j'ai rendu cela automatique) et des copier-coller divers peuvent être reportés.

J'aimerais forcer le copier-coller dans une cellule. (à l'exemple d'un texte aléatoire avec paragraphes)

Sur l'onglet "1 en colonne "1", après avoir sélectionner un texte sur un internet, je double clique sur la cellule de mon choix. Une mise en forme s'applique automatiquement.

Sur l'onglet "2", le résultat de certains collègues. Ils se positionnent sur la cellule et font leur copier-coller. Ils oublient régulièrement de double-cliquer sur la cellule. Cela entrave la bonne marche du fichier.

Auriez-vous une solution?

Merci.

5test.xlsm (34.35 Ko)

La solution.

La réponse m'avait été déjà donnée sur le forum.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dta, i%, lng%
    If Target.Count > 1 And Target.Cells(1, 1).Value <> "" Then
        For i = 1 To Target.Cells.Count
            lng = IIf(Len(Target.Cells(i).Value) > lng, Len(Target.Cells(i).Value), lng)
            dta = dta & Chr(10) & Target.Cells(i).Value
        Next i
        dta = Replace(dta, Chr(10), "", 1, 1)
        With Application
            .EnableEvents = False
            .Undo
            Target.Cells(1, 1).WrapText = True
            Target.Cells(1, 1).ColumnWidth = lng
            Target.Cells(1, 1) = dta
            .EnableEvents = True
        End With
    End If
End Sub
Rechercher des sujets similaires à "forcer copier coller texte paragraphe"