Discussion :

[FGTH40]

bonjour
J' utilise la fonction Name.Name pour trouver le nom d'une cellule dans une plage de cellule.
Problème lorsque je tombe sur une cellule qui n'a pas de nom j'ai le message 'Erreur execution "1004"'

Suis novice !!!

merci pour vôtre aide

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
Sub extr()
Dim col As Integer
Dim lign As Integer
Dim ligndata As Integer
Dim valcherche As String
Dim valcell As Variant
Dim wsdata As Worksheet
Dim wstest As Worksheet
 
Set wsdata = ThisWorkbook.Worksheets("feuil3")
Set wstest = ThisWorkbook.Worksheets("1")
 
For lign = 1 To 24
    For col = 1 To 37
        For ligndata = 1 To 40
            valcherche = wsdata.Cells(ligndata, 1).Value 'recherche données dans data
            valcell = wstest.Cells(lign, col).Name.Name 'recherche nom de cellule
                If valcherche = valcell Then 'comparaison
                wstest.Cells(lign, col).Value = valcherche 'ecris valeur
                End If
        Next ligndata
autre:
    Next col
Next lign
 
End Sub

[Gestionnaire_rh]

Bonjour,

essaye de remplacer par:

Code :

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

valcell = wstest.Cells(lign, col).Name.Name

par

Code :

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

valcell = wstest.Cells(lign, col).Address

[Marc-L]

Bonjour.

Code :

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

1
2
3
4
Function CellName(ByVal Rg As Range)
         On Error Resume Next
         CellName = Rg.Name.Name
End Function

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[FGTH40]

Bonjour,

essaye de remplacer par:

Code :

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

valcell = wstest.Cells(lign, col).Name.Name

par

Code :

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

valcell = wstest.Cells(lign, col).Address

Ton code me renvoi "$A$1" mais pas le nom que je lui ai donné

merçi de ton aide

[FGTH40]

Avec la réponse de Marc_L

Code :

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

1
2
3
4
Function CellName(ByVal Rg As Range)
         On Error Resume Next
         CellName = Rg.Name.Name
End Function

et en remplaçant
valcell = CellName(wstest.Cells(lign, col))

Ça fonctionne nikel

Merci de vos réponses