Discussion :

[Theboobasparks]

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.

[Theboobasparks]

Re-bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Tête de chat]

Bonjour,

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

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

[Theboobasparks]

Bonjour,

Merci beaucoup une fois de plus, cela fonctionne parfaitement.

Excellente soirée.

Michael.