Discussion :

[JFDAccess]

Bonjour,

Je cherche à crée automatiquement une zone à transférer vers Acces à partir d'une feuille téléchargée dont je ne connais pas à priori les 'coins'

J'essaye d'adapter une macro enregistrée (je ne possède pas bien les notions VBA Excel, ... bien que j'ai lu les tutos ...)

Code :

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

1
2
3
4
5
6
7
Cells.Find(What:="Energie", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveWorkbook.Names.Add Name:="HautGauche", RefersToR1C1:="=Sheet1!R10C1"
    ActiveWorkbook.Names("HautGauche").Comment = ""
 
...

Pour généraliser la position du coin HautGauche j'ai essayé de parametrer "R10C10"

Code :

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

1
2
3
4
5
6
7
8
9
 
Cells.Find(What:="Energie", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    R1 = ActiveCell.Cells.Row
    C1 = ActiveCell.Cells.Column
    ActiveWorkbook.Names.Add Name:="HautGauche", RefersToR1C1:="=Sheet1!R" & R1 & "C" & C1 & Chr(34)
 
...

Mais cela ne marche pas!

Il y a peut-être une instruction directe (que je n'ai pas trouvée) ou comment faire avec cette approche ?

Merci

[antonysansh]

Bonjour JFDAccess,

Apres le Find, tu peux mettre le résultat dans un variable de type Range pour ensuite utiliser la propriété Address.

Voila un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim rg As Range, Adresse$
        Set rg = ActiveSheet.Cells.Find(What:="Energie")
        If Not rg Is Nothing Then
            Adresse = rg.Address(ReferenceStyle:=xlR1C1, External:=True)
            Adresse = Split(Adresse, "]")(1)
            Adresse = "=" & Adresse
            ActiveWorkbook.Names.Add Name:="HautGauche", RefersToR1C1:=Adresse
        End If
fin:
    Set rg = Nothing
End Sub

Tu peux exécuter en mode pas à pas pour voir les valeurs que prend la variable Adresse.

[JFDAccess]

Merci,

Mais j'obtiens la même erreur qu'avec ma méthode :



J'ai essayé de supprimer l'instruction

Code :

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

Adresse = "=" & Adresse

Pas d'erreur, et :

• On ne voit rien dans le combobox
  
  
  
• Alors que le nom semble bien défini dans la liste
  
  
  

Je crains que la zone que j'aurai défini de la sorte pose des problèmes dans le transfert vers Access

Question complémentaire : (j'abuse des bonnes choses, ...

Avec le code ci dessous, une fois la cellule trouvée, le curseur est positionné dessus,

Code :

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

1
2
3
4
 
Cells.Find(What:="Energie", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Alors qu'avec le code du test le curseur reste sur sa position, ce qui interdit la recherche du coin bas droit de la zone voulue via

Code :

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

1
2
3
 
Selection.End(xlDown).Select
Selection.End(xlToRight).Select

qui devrait me permettre de définir le range voulu

[antonysansh]

Bonjour,

Chez moi le code test fonction comme il faut. As-tu essayé le pas à pas pour voir les valeurs successive de Adresse ?

Ensuite une fois que ta cellule est dans la variable rg il te suffit de faire :

Code :

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

1
2
Set rg = rg.End(xlDown)
Set rg = rg.End(xlToRight)

Car les sélections sont inutiles.

[JFDAccess]

Comme je le disais, le code fonctionne bien pour créer le nom de la bonne cellule et on le retrouve bien dans la liste mais pas dans le combobox (en haut à gauche).

merci pour l'utilisation de rg.