P
Pierre
Guest
Pb de macro qui me met:
"l'indice n'apparait pas à la sélection"
Je n'arrive pas à trouver d'où ça vient.
Merci encore!
ps: le message suivant contient le fichier rue.xls d'où peut venir le pb.
Sub Inserer_Adresses()
Dim FichierAdresses As String
Dim MaCellule As Variant
'chemin du fichier contenant les codes RIVOLI et les adresses
FichierAdresses = "C:\temp\MACRO\RUES.xls"
'ouverture du fichier des adresses
Workbooks.Open FichierAdresses
'pour chaque code Rivoli de la colonne A
For Each MaCellule In Columns("A:A")
'on recherche dans le classeur des adresses
With Workbooks(FichierAdresses).Worksheets("Feuil1").Range("RIVOLI")
Set C = .Find(MaCellule.Value, LookIn:=xlValues)
'si on trouve une correspondance
If Not C Is Nothing Then
'alors on met l'adresse correspondant au code
Intersect(MaCellule.EntireRow, Columns("H:H")).Value = Intersect(C.EntireRow, Range("Zone_Adresses")).Value
End If
End With
Next
End Sub
"l'indice n'apparait pas à la sélection"
Je n'arrive pas à trouver d'où ça vient.
Merci encore!
ps: le message suivant contient le fichier rue.xls d'où peut venir le pb.
Sub Inserer_Adresses()
Dim FichierAdresses As String
Dim MaCellule As Variant
'chemin du fichier contenant les codes RIVOLI et les adresses
FichierAdresses = "C:\temp\MACRO\RUES.xls"
'ouverture du fichier des adresses
Workbooks.Open FichierAdresses
'pour chaque code Rivoli de la colonne A
For Each MaCellule In Columns("A:A")
'on recherche dans le classeur des adresses
With Workbooks(FichierAdresses).Worksheets("Feuil1").Range("RIVOLI")
Set C = .Find(MaCellule.Value, LookIn:=xlValues)
'si on trouve une correspondance
If Not C Is Nothing Then
'alors on met l'adresse correspondant au code
Intersect(MaCellule.EntireRow, Columns("H:H")).Value = Intersect(C.EntireRow, Range("Zone_Adresses")).Value
End If
End With
Next
End Sub