Discussion :

[Mac__fly]

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

[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 ?

[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

[SfJ5Rpw8]

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

[Mac__fly]

Voici mon code

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

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
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