mettre la premiere ligne en grasRésolu

Question

Bonjour, je viens a peine de m'inscire car je me  remets tout doucement a VBA et la reprise est dur...
Justement je vous explique mon probleme :
Dans une cellule d'une feuille excel A, j'ai du texte (meme beaucoup de texte) et la premiere ligne a chaque fois en gras, mais voila lorsque je la copie (grace a un code VBA) sur une autre feuille excel B, la mise en gras disparait donc lorsque je tire des rapports, je dois le faire manuellement. 
Aurez vous une id&#233;e pour le code ??

Moi, je pensai a tester chaque caract&#233;re et des qu'il y a une retour chariot ne plus mettre en gras... mais je seche un peu sur le code ...

Merci d'avance

aieeeuuuuu · Accepted Answer

qu'est-ce qui est fusionn&#233; ? la cellule d'origine ? la cellule de destination ?

detaille un maximum ton environnement poru qu'on puisse faire des test repr&#233;sentatif...

d&#233;taille aussi pourquoi tu es oblig&#233; de la laisser fusionn&#233;e... ne peut tu pas supprimer la fusion, faire la copie, et recr&#233;er la fusion ensuite ?
c'est juste une idee pour contourner le probleme mais si c'est faisable, pourquoi pas  :)

cs_Willi · Answer

Salut,
Comment fais-tu ta copie de cellule ou de colonne (si tu peux etre plus clair svp) ?
Car j'ai fais le test j'ai une cellule avec du texte en gras et je la copie le texte dans la  nouvelle cellule est toujours en gras !
J'ai utilis&#233; les m&#233;thodes Copy et Paste ! (voir exemple ci-dessous)

-----------------------------------
    Range("A1").Select
    Selection.Copy
    Range("A6").Select
    ActiveSheet.Paste
-----------------------------------


 Si la r&#233;ponse te conviens merci de l'accepter

le_sonic · Answer

ben, chez moi ca ne marche pas, j'ai essay&#233; pas mal de chose
mais celle que j'ai retenu pour l'instant est:

    If UserForm1.Controls("CB" & i).Value = True Then 
        Sheets("B").Cells(j, 2) = Sheets("A").Cells(i + 1, 2) 
        j = j + 1 
    End If

cs_Willi · Answer

Cela marche comme sa ?

Sinon cells(j,2).Font.Bold=true


 Si la r&#233;ponse te conviens merci de l'accepter

aieeeuuuuu · Answer

salut

la premire solution de willy devrait fonctioinner chez toi...

qu'est qui ne va pas ?
tu as une erreur ?

le_sonic · Answer

la premiere solution marche tr&#233;s bien, mais quand je copie dans la feuille excel, la premiere ligne "qui doit etre en gras" ne l'est plus 

Quant &#224; la deuxieme solution, si j'ecris ce code, ca sera toute la cellule qui sera en gras et non une parti du texte...

Merci pour vos reponses, encore un peu d'aide merci, j'y suis presque...

aieeeuuuuu · Answer

La premiere solution marche tr&#232;s bien chez moi

un conseil : fait menu outil/macro->enregistrer une macro

fait une copie de ta cellule contenant la mise ne forme sp&#233;ciale

arrete la macro, et va sous VBA voir ce qu'elle contient.

v&#233;rifie aussi que ta copie &#224; la main ait copi&#233; la mise en forme.

car la il y a quelque cose de bizare. peut etre que cela vient d'un configuration sp&#233;cile de ton Excel ?!? t'as essay&#233; sur un autre poste ?car chez moi cela fonctionne tres bien

cs_Willi · Answer

Si la r&#233;ponse te conviens merci de l'accepter

le_sonic · Answer

Oufs j'ai trouv&#233;, en fait mon probleme c'est que je travail sur un prog cr&#233;e par une autre personne et il avait fusionn&#233; les cellules, en enlevant ceci ca Marche !!!
Merci a vous tous

le_sonic · Answer

Et mince, le probleme c'est que je suis oblig&#233; de les laisser fusionn&#233;, essay&#233; chez vous et dite moi si ca marche toujour
Merci

le_sonic · Answer

Merci "aieuuuuuu", tu est trop bon, tu a &#233;t&#233; mon declik !!!! j'ai comme tu la dit programm&#233; pour defusionner, coller et refusionner. ET ca marche nikel
Encore merci !!!

aieeeuuuuu · Answer

de rien :)

Mettre la premiere ligne en gras

12 réponses

Discussions similaires