Bonjour,
J'ai vraiment du mal avec "Range(cells).
Cela fait un moment que je cherche mon erreur mais en vain. Je fais une recherche d'une cellule et je récupère (ligne colonne). Delà je veux récupérer une valeur et la copier dans une autre feuille. Tout va bien si je mets "nom1 = Range("B4") " la variable nom1 est bien retenue par contre en mettant " nom1 = Range(Cells(ligne - 1, Col)) " erreur "la méthode Range de l'objet a échoué".
Avez vous une idée de mon erreur?
Merci beaucoup pour votre aide
Portez vous bien
Pascal

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
25
26
27
28
29
30
31
32
33
Sub recherche_match()

Application.ScreenUpdating = False
'Call DEpro
Dim MATCH As String 'MATCH
Dim nom1 As String '
Dim nom2 As String '
Dim x As Range
Dim plage As Range
Dim ligne As Integer
Dim Col As Integer

    Sheets("saisie").Select
    MATCH = Range("C4")
    
    Sheets("Tournoi32").Select
    Set x = Range("B4:B300,D4:D300,F4:F300").Find(MATCH, , xlValues, xlWhole, , , False)

    If Not x Is Nothing Then
        ligne = x.Row
        Col = x.Column
MsgBox MATCH 'test
MsgBox Col 'test
        
        nom1 = Range(Cells(ligne - 1, Col))
        'nom1 = Range("B4") 'test
MsgBox nom1 'test

        Sheets("saisie").Select
        Range("D4") = nom1
End If
End Sub