Discussion :

[tchafama]

Bonjour à tous,
J'aimerais faire apparaître une formule grâce à une macro dans un ensemble de cellules fusionnées(le code couleur).
A titre d'exemple, dans ma cellule M, je voudrais faire apparaître la formule suivante:

NOM DANS"n° tâche, n° tâche, n° tâche...)etc tant que le numéro de tâche de la cellule de ma colonne précédente n'est pas vide.

Bref, vous comprendrez mieux avec l'illustration apparaissant dans le classeur1.

Merci par avance de votre aide

[mercatog]

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 Remplissage()
Dim Tach As String, Tmp As String
Dim LastLig As Long, i As Long
Dim Deb As Boolean
 
With Feuil1
    LastLig = .Cells(.Rows.Count, "L").End(xlUp).Row + 1
    For i = 2 To LastLig
        If .Range("B" & i) <> "" And .Range("B" & i) <> Tach Then
            Tach = .Range("B" & i)
            Deb = True
        Else
            Deb = False
        End If
 
        If Deb And i > 2 Or i = LastLig Then
            If Tmp <> "" Then .Range("N" & i - 1) = "NOM dans """ & Mid(Tmp, 2) & """"
            Tmp = ""
        End If
 
        If .Range("L" & i) <> "" Then Tmp = Tmp & "," & .Range("L" & i)
    Next i
End With
End Sub