Cumuler plusieurs chaînes de caractères dans une cellule

Bonjour à tous

Je viens solliciter votre aide pour un programme que je tente de bien faire fonctionner.

En effet, il y a 4 feuilles, la 1e étant celle où toutes les couleurs standards sont listées en colonne A.

Dans les 3 autres feuilles, il existe plusieurs listes de couleurs et dont certaines sont au même endroit que celles en colonne A, d'autres non (je caractérise ça par "Oui" et "Non" dans la colonne B de chacune des 3 feuilles).

Ce que je veux faire: pour chaque feuille

- pour chaque ligne

- si "Oui" alors:

- je programme une rechercheV (Couleur avec "Oui", dans le tableau A2:A13 de Feuil1, 1, False)

- je programme un offset pour mettre le nom de chaque feuille dans laquelle la concordance est vérifiée (avec un "Oui") suivie d'une virgule.

Mais le problème, c'est que je ne parviens pas à cumuler le nom des feuilles pour lesquelles il y a concordance de couleurs.

Pourriez-vous m'aider ?

Ci-joint le programme que j'ai déjà fait.

Merci d'avance

Bonjour Soken93, le forum,

A tester....

Sub test2()
 Dim i As Integer, dl As Integer
 Dim j As Integer, dl2 As Integer
 Dim sh As Integer
 Dim sh1 As Worksheet

 Application.ScreenUpdating = False

 Set sh1 = Sheets("Feuil1")
      dl = sh1.Range("A" & Rows.Count).End(xlUp).Row
      sh1.Range("B2:B" & dl).ClearContents

  For sh = 2 To Sheets.Count
   With Sheets(sh)
    dl2 = .Range("A" & Rows.Count).End(xlUp).Row
   End With
    For j = 2 To dl2
     For i = 2 To dl
      If Sheets(sh).Range("A" & j) = sh1.Range("A" & i) And Sheets(sh).Range("B" & j) = "Oui" Then
       sh1.Range("B" & i) = sh1.Range("B" & i) & "  " & Sheets(sh).Name
      End If
     Next i
    Next j
  Next sh

Application.ScreenUpdating = True
End Sub

Cordialement,

Ton programme marche correctement c'est super ^^

Merci beaucoup pour ton aide

Rechercher des sujets similaires à "cumuler chaines caracteres"