Incrementation dans du texte?

Version imprimable

Bonjour a la Team,

Juste une petite question rapide...

Quand on veut afficher un texte en le mettant dans une variable tel que :

Code:

Corp = "Numero d'id : " & tableau(n) &

Puis mettre a la suite un tableau rempli des numeros d'ID comment fait t'on pour incrementer ce tableau dans du texte?

Question peut etre conne mais en mettant une boucle j'y arrive pas...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Do While Not IsEmpty(Selection) If (Selection.Offset(0, 16) - Selection.Offset(0, 8)) <= 6 Then NbTaches = NbTaches + 1 Tableau(n) = Selection.Offset(0, 9) Corp = "Numero d'id : " Corp = Corp & Tableau(n) n = n + 1 End If Selection.Offset(1, 0).Select ' Sélection de la cellule suivante Loop
Effectivement je me dis c'est logique il me renvoie le dernier numero d'ID...
Or moi je voudrais que ca fasse un truc genre :

Numero d'ID : 5458
Numero d'ID : 5358
Numero d'ID : 5245
Numero d'ID : 5899
Numero d'ID : 5756
...

Il faut savoir aussi que cette variable correspond apres au corp d'un mail que je genere...

Et une deuxieme question, comment fait on pour sauter de ligne avec thunderbird dans le corp d'un mail génerer en vba?

Thx...

fring aide moi please... :P

20/05/2008, 15h12
fred65200

bonjour,

pour ta 2ème question, tu aurais du ouvrir un second post.

De mémoire tu dois avoir quelquechose comme ça

Code:

Texte = Texte1 & "%0A" & Texte2

, %0A étant le saut de ligne.

Cordialement
20/05/2008, 15h48
Baloux

"%0A"

c'est pas pour du HTML ça?

J'ai test ca aussi, pas d'effet...

Code:

1
2
3
"1ere Ligne" & Chr(13) & "2eme Ligne."
 
"1ere Ligne" & vbcrlf & "2eme Ligne"

Merci de ta reponse.

Je vais essayer de mieux expliquer.

Deja voila ma fonction :

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
Sub prevention()
 
    Dim NbTaches As Integer, LeMessage As String, LObjet As String
    Dim Réponse As Integer
    Dim Tableau(1000) As Integer
    Dim n As Integer
    Dim Corp As String
 
    ' sélection de la feuille de test
    Sheets("Transfert").Select
    ' positionnement au début de la liste des taches 
    Range("A2").Select
    NbTaches = 0 ' initialisation du compteur de taches
    n = 0
 
    ' Tant que la sélection n'est pas vide
    Do While Not IsEmpty(Selection)
        If (Selection.Offset(0, 16) - Selection.Offset(0, 8)) <= 6 Then
            NbTaches = NbTaches + 1
            Tableau(n) = Selection.Offset(0, 9)
 
            Corp = "Numero d'id : "
            Corp = Corp & Chr(13) & Chr(10)
            Corp = Corp & Tableau(n)
 
            n = n + 1
 
        End If
        Selection.Offset(1, 0).Select   ' Sélection de la cellule suivante
    Loop
 
        Réponse = MsgBox("Confirmer l'envoi d'un message pour " & NbTaches & " taches", vbYesNo + vbQuestion, "CONFIRMATION SVP")
        If Réponse = vbYes Then
            LObjet = "Test Prevention"
            EnvoiEmail Adresse:="test@yahoo.fr", Objet:=LObjet, Corps:="test : il y a " & NbTaches & " taches " & Corp & " Fin", Collage:=False
        End If
End Sub

Et je veux que dans le corp du mail il y est affiché :

test : il y a X taches

Numero d'id : XXXX
Numero d'id : XXXX
Numero d'id : XXXX
Numero d'id : XXXX
Numero d'id : XXXX

Fin

Voila...

Ah oui et j'ai thunderbird...

20/05/2008, 17h00
fred65200

Re

%0A c'est du html, c'est comme ça que tu peux sauter une ligne dans Thunderbird.
@+
20/05/2008, 17h05
Baloux

Oui mais moi je ne genre pas le corp du mail en html...

Sinon dans ce cas comment l'activer avec Thunderbird?

Bonjour,

Tu peux me tester ceci stp

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
Sub prevention()
Dim NbTaches As Integer, LeMessage As String, LObjet As String
Dim Réponse As Integer, n As Integer, Corp As String
 
NbTaches = 0
n = 0
Corp = "Numero d'id : "
 
With Sheets("Transfert")
    For n = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        If (.Cells(n, 17) - .Cells(n, 9)) <= 6 Then
            NbTaches = NbTaches + 1
            Corp = Corp & Chr(10) & .Cells(n, 10).Text
        End If
    Next
End With
 
Réponse = MsgBox("Confirmer l'envoi d'un message pour " & NbTaches & " taches", vbYesNo + vbQuestion, "CONFIRMATION SVP")
If Réponse = vbYes Then
    LObjet = "Test Prevention"
    EnvoiEmail Adresse:="test@yahoo.fr", Objet:=LObjet, Corps:="test : il y a " & NbTaches & " taches " & Corp & " Fin", Collage:=False
End If
 
End Sub

21/05/2008, 10h33
Baloux

Salut Fring, mon sauveur...

:hola:

Bon alors voila le mail que je reçoit graçe a ton code :

Citation:

test : il y a 9 taches Numero d'id : 547054485469545954565447545754555454 Fin

Les ID ne sont pas espacés, je ne comprends pas pourquoi le Chr(10) n'est pas pris en compte ici. Je pense que c'est du a Thunderbird...?

Je vais faire des tests sur d'autre retour a la ligne connu on verra bien...

En tout cas merci.
21/05/2008, 10h37
fred65200

bonjour
remplace
Chr(10) par "%0A"
Pourcent Zéro A

@+
21/05/2008, 10h48
Baloux

Merci de ton aide fred,

ca me donne ca dans le mail :

Citation:

test : il y a 9 taches Numero d'id : 5470 5448 5469 5459 5456 5447 5457 5455 5454 Fin

Ca revient au meme que de faire " "

Ca ne saute pas a la ligne.

Je vais me resigner je crois... :cry:

rebonjour, peux tu tester ceci

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
 
Option Explicit
 
Sub prevention()
Dim NbTaches As Integer, LeMessage As String, LObjet As String
Dim Réponse As Integer, n As Integer, Corp As String
Dim Hyperlien As String
 
NbTaches = 0
n = 0
Corp = "Numero d'id : "
 
With Sheets("Transfert")
    For n = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        If (.Cells(n, 17) - .Cells(n, 9)) <= 6 Then
            NbTaches = NbTaches + 1
            Corp = Corp & "%0A" & .Cells(n, 1).Text
        End If
    Next
End With
 
Réponse = MsgBox("Confirmer l'envoi d'un message pour " & NbTaches & " taches", vbYesNo + vbQuestion, "CONFIRMATION SVP")
If Réponse = vbYes Then
    LObjet = "Test Prevention"
Hyperlien = "mailto:" & "test@yahoo.fr" & "?"       ' Le ? introduit les arguments
Hyperlien = Hyperlien & "BCC=test2@yahoo.fr" '& LesAutresAdresses
Hyperlien = Hyperlien & "&Subject=" & LObjet    ' le & sépare les arguments
Hyperlien = Hyperlien & "&Body=" & "test : il y a " & NbTaches & " taches.%0A" & Corp & "%0AFin"
ActiveWorkbook.FollowHyperlink Hyperlien
'EnvoiEmail Adresse:="test@yahoo.fr", Objet:=LObjet, Corps:="test : il y a " & NbTaches & " taches " & Corp & " Fin", Collage:=False
End If
 
End Sub

Chez moi ça marche, une ligne par n° id
fred

21/05/2008, 11h50
Baloux

Citation:

test : il y a 9 taches. Numero d'id : 5470 5448 5469 5459 5456 5447 5457 5455 5454 Fin

Non plus :cry:

Alors je me demande si ce n'est pas un probleme de prametrage de thunderbird...?
Parce que la...

Je vais m'orienter la dessus.

Je tiens au courant...