Cependant, il s'agissait là d'un tout petit exemple. A ce jour, mon fichier (le vrai) compte environ 95 colonnes. J'ai peur que la formule soit fastidieuse à dérouler et modifier à l'ajout de nouvelles colonnes.
Je pensais à une formule matricielle mais ne les maîtrise pas bien.
Sub Macro1()
With Sheets("Feuil1")
For i = 4 To .Range("D2").End(xlToRight).Column
If UCase(.Cells(6, i)) = "X" Then
res = res & .Cells(2, i).Value & ";"
End If
Next i
.Range("B6") = Mid(res, 1, Len(res) - 1)
End With
End Sub
Bien à toi,
mth
Edit: Oups ... bonjour Philippe
désolée .. je n'avais pas rafraichi ....
Sub Macro1()
With Sheets("Feuil1")
For i = 4 To .Range("D2").End(xlToRight).Column
If UCase(.Cells(6, i)) = "X" Then
res = res & .Cells(2, i).Value & ";"
End If
Next i
.Range("B6") = Mid(res, 1, Len(res) - 1)
End With
End Sub
Bien à toi,
mth
Edit: Oups ... bonjour Philippe
désolée .. je n'avais pas rafraichi ....
Mais je n'ai pas été assez précis. Désolé, c'est ma première fois (!!!!).
En fait les lignes (avec le résultat en B6) vont se répéter vers le bas permettant ainsi plusieurs combinaisons de X. Faut-il une macro pour chaque ligne ? J'ai peur que ca ne fonctionne pas
En fait les lignes (avec le résultat en B6) vont se répéter vers le bas permettant ainsi plusieurs combinaisons de X. Faut-il une macro pour chaque ligne ? J'ai peur que ca ne fonctionne pas