Discussion :

[Caramba20]

Bonjour,

Etant nouvellement débarqué dans le monde des Macros, j'ai scruté les postes de ce forum pour trouver la bonne formule pour ma Macro.

J'ai bien trouvé la première partie de la Macro, c'est à dire concaténer sur base d'une couleur (format conditionnel) :

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
16
17
18
19
Sub concatColor()
Dim cellule As Range
Dim resultat As String
 
 'selection des valeurs
Range("I2:R2").Select
'on boucle dans toutes les cellules
For Each cellule In Selection
   'si la couleur est vert conditionnelle
   If cellule.DisplayFormat.Interior.Color = RGB(160, 255, 192) Then
   'on concatene avec un |
   resultat = resultat & cellule.Value & "|"
   End If
Next
'si le resultat n'est pas vide on enlève le dernier |
If resultat <> "" Then resultat = Left(resultat, Len(resultat) - 1)
'et on place le résultat en cellule G2
Range("G2") = resultat
End Sub

Mais là où j'ai du mal, c'est de répéter la macro sur toutes les lignes en colonne G pour lesquelles il y des données de la colonne I à R ? J'ai essayé avec "For Each", "For next", "loop", mais j'ai du mal à les intégrer à ma Macro.

D'avance merci pour votre aide

[halaster08]

Bonjour

En supposant que tu connaisse le nombre de ligne en avance

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
16
17
18
19
20
21
 
Sub concatColor()
Dim cellule As Range
Dim resultat As String
 
for i = 2 to 999  
 
'on boucle dans toutes les cellules
For Each cellule In Range("I" & i &":R" & i)
   'si la couleur est vert conditionnelle
   If cellule.DisplayFormat.Interior.Color = RGB(160, 255, 192) Then
   'on concatene avec un |
   resultat = resultat & cellule.Value & "|"
   End If
Next cellule
'si le resultat n'est pas vide on enlève le dernier |
If resultat <> "" Then resultat = Left(resultat, Len(resultat) - 1)
'et on place le résultat en cellule G
Range("G" & i) = resultat
next i
End Sub

sur toutes les lignes en colonne G pour lesquelles il y des données de la colonne I à R

Tu as besoin que toutes les cellules soient non vide ou qu'au moins une cellule soit non vide ?

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
16
17
18
19
20
21
22
23
24
 
Sub concatColor()
Dim cellule As Range
Dim resultat As String
 
i=2
'Attention j'utilise la fonction nb.vide il faut trouver son équivalent en vba, je te laisse chercher
Do while nb.vide(Range("I" & i &":R" & i))=0 'aucune cellule vide <10 si au moins une cellule non vide
 
'on boucle dans toutes les cellules
For Each cellule In Range("I" & i &":R" & i)
   'si la couleur est vert conditionnelle
   If cellule.DisplayFormat.Interior.Color = RGB(160, 255, 192) Then
   'on concatene avec un |
   resultat = resultat & cellule.Value & "|"
   End If
Next
'si le resultat n'est pas vide on enlève le dernier |
If resultat <> "" Then resultat = Left(resultat, Len(resultat) - 1)
'et on place le résultat en cellule G
Range("G" & i) = resultat
i=i+
loop
End Sub

[Caramba20]

Merci Halaster08 pour ta réponse.

Pour la première proposition, en G3 il inclut le résultat G2 + G3, en G4 il inclut le résultat G2 + G3 + G4, etc. Alors qu'il me faudrait le résultat de la seule ligne 3 en G3, de la seule ligne 4 en G4, etc.

En ce qui concerne la deuxième proposition, j'ai adapté mais cela ne fonctionne pas :

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
16
17
18
19
20
21
22
23
Sub concatColor()
Dim cellule As Range
Dim resultat As String
 
i = 2
'Attention j'utilise la fonction nb.vide il faut trouver son ?quivalent en vba, je te laisse chercher
Do While Application.WorksheetFunction.CountBlank(Range("I" & i & ":R" & i)) = 0 'aucune cellule vide <10 si au moins une cellule non vide
 
'on boucle dans toutes les cellules
For Each cellule In Range("I" & i & ":R" & i)
   'si la couleur est vert conditionnelle
   If cellule.DisplayFormat.Interior.Color = RGB(160, 255, 192) Then
   'on concatene avec un |
   resultat = resultat & cellule.Value & "|"
   End If
Next
'si le resultat n'est pas vide on enl?ve le dernier |
If resultat <> "" Then resultat = Left(resultat, Len(resultat) - 1)
'et on place le r?sultat en cellule G
Range("G" & i) = resultat
i = i +
Loop
End Sub

Encore merci.

[halaster08]

Pour la première proposition, en G3 il inclut le résultat G2 + G3, en G4 il inclut le résultat G2 + G3 + G4, etc. Alors qu'il me faudrait le résultat de la seule ligne 3 en G3, de la seule ligne 4 en G4, etc.

J'ai oublié de remettre à vide ta variable

Code :

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

resultat=""

A remettre juste avec le next i

En ce qui concerne la deuxième proposition, j'ai adapté mais cela ne fonctionne pas :

Code :

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

i=i+1

et remettre le résultat à vide avant le loop