Discussion :

[le_sonic]

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

[AlainTech]

Code :

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

C.Name.Name

J'ai pas compris pourquoi, mais c'est comme ça.

[le_sonic]

Tu est mon sauveur .. merci

Defois on comprend pas ... name.name (ils sont fou c'est VBAien...)