Création d'un nom de cellule position variable en VBA

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:

---

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:

---

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

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:

---

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.

Merci,

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

Pièce jointe 220121

J'ai essayé de supprimer l'instruction

Code:

---

Adresse = "=" & Adresse

---

Pas d'erreur, et :

• On ne voit rien dans le combobox
  
  Pièce jointe 220122
  
• Alors que le nom semble bien défini dans la liste
  
  Pièce jointe 220123
  

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, ...:zoubi:

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

Code:

---

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:

---

1 2 3

Selection.End(xlDown).Select Selection.End(xlToRight).Select

---

qui devrait me permettre de définir le range voulu

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:

---

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

---

Car les sélections sont inutiles.

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.