Bonjour,

Je souhaite pouvoir concaténer une chaine de caractère sous 2 conditions (en plus d'être <> "").

En parcourant le forum, j'ai réussi à écrire le code ci-dessous pour concaténer les champs AG12, AW12, BE12 puis AI12, AY12 et BG12, si ils ne sont pas vides.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For Each C In ThisWorkbook.Worksheets("Datas dossiers personnels").Range("AG12,AW12,BE12")
        If C <> "" Then
            Texte = Texte & C.Value & ", "
        End If
    Next C
Numerodocumentconcat_temp = Left(Texte, Len(Texte) - 2)
 
For Each D In ThisWorkbook.Worksheets("Datas dossiers personnels").Range("AI12,AY12,BG12")
        If D <> "" Then
            Texte2 = Texte2 & D.Value & ", "
        End If
    Next D
Paysdelivrancedocumentconcat_temp = Left(Texte2, Len(Texte2) - 2)
Maintenant, comment est-il possible de le faire sous 2ème condition.

En gros, je souhaite :

Que AG12 soit pris en compte si il n'est pas vide et en plus si ET12 = "Faux documents" ou "Usurpé / Imposteur"
Que AW12 soit pris en compte si il n'est pas vide et en plus si EU12 = "Faux documents" ou "Usurpé / Imposteur"
Que BE12 soit pris en compte si il n'est pas vide et en plus si EV12 = "Faux documents" ou "Usurpé / Imposteur"

Et pour la seconde partie :

Que AI12 soit pris en compte si il n'est pas vide et en plus si ET12 = "Faux documents" ou "Usurpé / Imposteur"
Que AY12 soit pris en compte si il n'est pas vide et en plus si EU12 = "Faux documents" ou "Usurpé / Imposteur"
Que BG12 soit pris en compte si il n'est pas vide et en plus si EV12 = "Faux documents" ou "Usurpé / Imposteur"

D'avance merci pour l'aide.

Michael.