Bonjour a tous,

J'ai un gros souci et je m'arrache les cheveux
Je ne suis pas loin de la soluce mais la jen peu plus, voila mon probleme:

J'ai tout d'abord renommer mes cellules en "Test1" , "Test2" , a la place de "A300" , "A301"
et donc je fais une recherche et aprés je voudrais copié a l'interieur de la cellule d' accoté :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
     For a = 1 To 18
         If UserForm1.Controls("CB" & a).Value = True Then
            For Each C In Range("test1:test12")
                MsgBox (C.Name)
 
                If C = "test" & j Then
                    Sheets("CBTXT").Cells(a + 1, 2).Copy
                    Sheets("Rapport").Range(C.Offset(1, 0)).PasteSpecial
                j = j + 1
                End If
            Next C
        End If
    Next a
le probleme c'est que le msgbox me retourne "A300" et non "test1"
C'est exactement le C.name qui foire (je me souviens plus de la syntaxe )

merci