Récupérer le contenu de colonnes en une seule ligne

[casavba]

Bonjour,

J'ai un petit Problème à résoudre :

je préfère donner un exemple (Voir Image)


Ce que je cherche à obtenir au final est :

une chaîne de caractère :

Toto = MonChiffre et Titi <> MonNumero ou Tata = MonCA


Sachant que le nombre de colonne est appelé à augmenter càd que dans mon exemple il y a 5 colonnes, ce nombre peut aller jusqu'à 20 voire plus.

D'avance Merci pour votre réponse

[jolzeviking]

Pourrais tu détailler tes variables j'ai une solution mais il me faut des précisions

[casavba]

Il n' ya pas de variable, c'est juste des valeurs de cellules.

[fring]

Bonjour,
C'est vraiment nébuleux, un peu plus d'explications seraient les bienvenues

[casavba]

En fait, je voudrais récupérer le contenu des colonnes (voir image ci dessus).
en une seule ligne plutôt dans une variable String :

MaVariableString = "Toto = MonChiffre et Titi <> MonNumero ou Tata = MonCA"

j'espère que je me suis bien exprimé

Merci

[fring]

D'après ce que j'ai compris, ça devrait ressembler à ceci

Sub test()
Dim i As Integer, j As Integer, derL As Integer, derC As Integer, Result As String
 
derL = Cells(Rows.Count, 1).End(xlUp).Row
derC = Cells(1, Columns.Count).End(xlToLeft).Column
 
For j = 1 To derC
    For i = 1 To derL
        If Cells(i, j).Text <> "" Then
            Result = Result & " " & Cells(i, j)
        End If
    Next
Next
 
MsgBox Trim(Result)
 
End Sub

[casavba]

Merci Fring pour ta réponse pertinente. Mais (ce "Mais" est à cause de moi, parce que je voulais simplifier le plus possible mon problème) la réponse n'est pas adapté totalement à mon problème.


En fait, dans certains cas (voir image) j'ai plusieurs valeurs dans une colonne et ce cas ne peut être possible que si et seulement si j'ai un signe "=" .

dans ce cas je voudrais récupérer la ligne comme suit :

MaVariableString = Toto <> 10 et Toto1 = (20;30;40;50;60) ou Toto2 <> 100 et Toto3 <> 1000

Comme vous le remarquez, s'il y a un signe " = ", il y a forcèment plusieurs valeurs auquel cas il faut séparer ces valeurs par des ";" et récupérer le tout entre paranthèse


Merci pour votre aide

[fring]

2ème essais

Sub test()
Dim i As Integer, j As Integer, k As Integer, Result As String
Dim derL As Integer, derC As Integer
 
derL = Cells(Rows.Count, 1).End(xlUp).Row
derC = Cells(1, Columns.Count).End(xlToLeft).Column
 
For j = 1 To derC
derL = Cells(Rows.Count, j).End(xlUp).Row
    For i = 1 To derL
        If Cells(i, j).Text <> "" Then
            If Cells(i, j) = "=" Then
                Result = Result & " = ("
                For k = Cells(i, j).Row + 1 To derL
                    If k = Cells(i, j).Row + 1 Then
                        Result = Result & Cells(k, j)
                    Else
                        Result = Result & ";" & Cells(k, j)
                    End If
                Next
                Result = Result & ")"
                Exit For
            Else
            Result = Result & " " & Cells(i, j)
            End If
        End If
    Next
Next
 
MsgBox Trim(Result)
 
End Sub

[casavba]

Merci Bcp Fring c'est ce que je cherchais.

Encore mille merci