Mise en forme excel

Version imprimable

11/08/2010, 15h33
Mac__fly

Mise en forme excel

Bonjour a tous,

voila dans un cadre professionnel j'utilise excel afin de suivre mon activité et je dois générer des comptes rendus. Pour cela j'ai créé une macro qui me permettent d'extraire les données dans une case avec les retours a la ligne.

Je me retrouve donc avec une case que je copie colle et que j'envoie par mail.

Mon problème est que je souhaite faire de la mise en forme conditionnelle avec cette macro mais je ne peux pas stocker ca dans ma variable texte et quand je copie une case pour la concaténer je perds la mise en forme.

voici un exemple de ce que je souhaite

feuille origine
ok test1
ko test 2

et je souhaite avoir au final dans mon rapport que j'envoie par mail
test 1
test 2

Merci d'avance pour votre aide
11/08/2010, 18h44
SfJ5Rpw8

bonjour,

tu nous dis pas ou tu en est ...

lit cela :
l
Utiliser Excel à partir de Visual Basic

et peu-être
Comment savoir si l'on utilise VBA (Visual basic pour application) ou VB6 ?
12/08/2010, 09h23
Mac__fly

bonjour,

en fait j'en suis toujours au meme point, le script VB fonctionne pour me generer mon code dans une case excel (ce n'est pas super propre mais ca marche)

par contre je n'ai aucune mien en fomre pour le moment

Je ne vois pas comment faire du tout
12/08/2010, 10h12
SfJ5Rpw8

mon nous le code qui te sert à remplir ta case excel..

Voici mon code

je sais qu'il n'est pas très propre mais c'est mon premier code visual :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub toto()
Dim cellule As Variant
Dim feuille As Variant
Dim chaine As Variant
Dim chaineFinale As Variant
 
Dim a As Integer 'compteur
Dim b As Integer 'compteur
Dim i As Integer
 
 
Sheets("resultat").Cells(1, 1).Value = ""
i = 1
j = 2
While Sheets("registre").Cells(i, 1).Value <> ""
 
    chaine = Sheets("registre").Cells(i, 2).Value & Chr(10)
 
    Sheets("resultat").Cells(1, 2).Value = chaine
    Sheets("resultat").Cells(1, 1).Value = Sheets("resultat").Cells(1, 1).Value & Sheets("resultat").Cells(1, 2).Value
 
    feuille = Sheets("registre").Cells(i, 1).Value
 
    j = 2
    While (Sheets(feuille).Cells(j, 1).Value) <> ""
        If (Sheets(feuille).Cells(j, 1).Value = "aprevoir") Then chaine = "aprevoir" & Sheets(feuille).Cells(j, 2).Value & Chr(10)
        If (Sheets(feuille).Cells(j, 1).Value = "encours") Then chaine = "encours" & Sheets(feuille).Cells(j, 2).Value & Chr(10)
        If (Sheets(feuille).Cells(j, 1).Value = "bloque") Then chaine = "bloque" & Sheets(feuille).Cells(j, 2).Value & Chr(10)
        If (Sheets(feuille).Cells(j, 1).Value = "clos") Then chaine = "clos" & Sheets(feuille).Cells(j, 2).Value & Chr(10)
 
         Sheets("resultat").Cells(1, 2).Value = chaine
 
        Sheets("resultat").Cells(1, 1).Value = Sheets("resultat").Cells(1, 1).Value & Sheets("resultat").Cells(1, 2).Value
        j = j + 1
    Wend
    i = i + 1
 
Wend
 
End Sub

Pour m'expliquer,

je recopie ce que je veux comme information dans une case je souhaitais lui faire de la mise en forme et ensuite le recopier dans la case finale

Le problème c'est que lors de la copie le texte perd sa mise en forme

19/08/2010, 21h49
AlainTech

Bonjour,

Qu'as-tu fait pendant les 7 jours qui sont passés entre ton dernier message et aujourd'hui?

As-tu lu des tutoriels, fait un peu de recherche sur le forum, lu des FAQ?

En utilisant l'enregistreur de macros, tu devrais obtenir une ébauche de code dont tu pourrais t'inspirer.