VBA Excel - Concaténer chaine de caractères

Version imprimable

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:

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.

Re-bonjour,

J'essaie de cette manière mais je ne pense pas que je m'y prenne comme il se doit.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 For Each B In ThisWorkbook.Worksheets("Datas dossiers personnels").Range("ET12,EU12,EV12") If B = "Faux documents" Or B = "Usurpé / Imposteur" Then For Each C In ThisWorkbook.Worksheets("Datas dossiers personnels").Range("AG12,AW12,BE12") If C <> "" Then Texte = Texte & C.Value & ", " End If Next C End If Next B Numerodocumentconcat_temp = Left(Texte, Len(Texte) - 2)
Je ne pense pas que ma syntaxe soit correct ou je m'y prendre complètement de manière erronée.

Michael.

Bonjour,

pas forcément très élégant mais ça marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Texte As String
Dim Rg1 As Variant, Rg2 As Variant
Dim I As Integer
Rg1 = Split("A12,C12,F12", ",")
Rg2 = Split("H12,L12,O12", ",")
With ThisWorkbook.Worksheets("Datas dossiers personnels")
    For I = 0 To 2
        If .Range(Rg1(I)).Value = "Faux documents" Or .Range(Rg1(I)).Value = "Usurpé / Imposteur" Then
            If .Range(Rg2(I)).Value <> "" Then
                Texte = Texte & "," & .Range(Rg2(I)).Value
            End If
        End If
    Next I
End With
Texte = Mid(Texte, 2)

30/05/2023, 17h52
Theboobasparks

Bonjour,

Merci beaucoup une fois de plus, cela fonctionne parfaitement.

Excellente soirée.

Michael.