Discussion :

[flouo]

Bonjour,

A première vue on pourrait croire que ce sujet a été traité 20 fois ,mais non je ne pense pas.

Lorsque manuellement je double clic sur une cellule A1, je sélectionne le "texte1" et je le copie/colle en D1 la mise en forme du texte est conservée sur la feuille. En clair le texte se colle dans plusieurs cellules (par phrases, indentations, etc.) afin que la mise en forme soit conservée et c'est ce que je souhaite obtenir.

J'ai codé plusieurs méthodes en macro afin d'obtenir ce résultat mais en vain: à chaque fois c'est dans une et une seule cellule que tout le texte se colle. Une solution? Y a-t-il un paramètre à modifier quelque part?

[Marc-L]

Bonjour, bonjour,

le double clic sur une cellule entre en mode édition et concerne uniquement le texte mais pas sa mise en forme !

Lors du Coller dans une autre cellule, la mise en forme de cette dernière est appliquée.

En VBA c'est pareil, la mise en forme de la cellule doit être définie de préférence avant le Coller …

Pour le reste, rien qu'en utilisant l'Enregistreur de macros et hop, une base de code livrée sur un plateau !

[flouo]

Pour commencer, merci pour la réponse.

J'ai bien compris ce que tu m'as dis mais un problème est que lorsque j'enregistre une macro en faisant toutes les étapes correctes, le texte copié apparaît dans la macro , or dans mon cas je suis censé copier plusieurs textes de plusieurs cellules et donc j'aimerais utiliser une sorte de variable dans laquelle se placerait le texte de la cellule en question.

Le tout sera compris dans une boucle donc pour ce qui est du placement dans les cellules c'est ok , par contre la récupération du texte....

En clair dans le code suivant je voudrais une variable à la place du texte et je ne sais pas comment faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub copier_coller()
 
    Range("A1").Select
 
    ActiveCell.FormulaR1C1 = _
        "       </testcase>" & Chr(10) & "" & Chr(10) & "       <capltestcase name=""Snap"" title=""(1) CAPL: Snap"" /> " & Chr(10) & "     " & Chr(10) & "     <testcase ident=""2"" title=""Variable database"">      " & Chr(10) & "         <set title=""Settings"" wait=""100"">" & Chr(10) & "                <envvar name=""Ev_Symb_1""> S12 </envvar>               " & Chr(10) & "             <envvar name=""Ev_Symb_2"">S0</envvar>" & Chr(10) & "               <envvar name=""Ev_Symb_3"">X</envvar>" & Chr(10) & "                " & Chr(10) & "             <envvar name=""Ev_Text1"">AIRPRODUCTION</envvar>            " & _
        "vvar name=""Ev_Text2"">X</envvar>" & Chr(10) & "               <envvar name=""Ev_Text3"">X</envvar>" & Chr(10) & "         </set>  " & Chr(10) & "     </testcase>" & Chr(10) & "              " & Chr(10) & "     <capltestcase name=""Comp_im_1"" title=""(1) CAPL: Comp_im_1"" />" & Chr(10) & "        <capltestcase name=""Comp_im_2"" title=""(1) CAPL: Comp_im_2"" />" & Chr(10) & "        <capltestcase name=""Comp_im_3"" title=""(1) CAPL: Comp_im_3"" />" & Chr(10) & "        " & Chr(10) & "     <capltestcase name=""Ocr_L1"" title=""(1) CAPL: Ocr_L1" & _
        "capltestcase name=""Ocr_L2"" title=""(1) CAPL: Ocr_L2"" />" & Chr(10) & "      <capltestcase name=""Ocr_L3"" title=""(1) CAPL: Ocr_L3"" />"
 
    Sheets("Scheme").Select
    Range("C182").Select
 
    ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
        False
 
End Sub