Utiliser le numéro de colonne pour manipuler un tableau Excel via Access

Bonjour,

POur detecter la fin de mon tableu j'ai utiliser la fonctione suivante

Code:

---

colonne = xls.ActiveSheet.Range("a1").End(xlToRight)(1, 2).Column

---

ensuite j'aimerais utilise le numéro de collone recu pour faire des manipulation Excel via Acces
Par exemple

Code:

---

xls.ActiveSheet.Range("B1:J49").Borders(xlInsideVertical).LineStyle = xlNone

---

J'aimerais soit pourvoir utiliser mon numéro de colone trouver soir convertir mon numéro de colonne en lettre
Si quelqu'un peut m'aider je le remercie d'avance

Bonjour

Tu as au moins deux solutions

1. Utiliser

Code:

---

Range(Cells(1, 2), Cells(49, Colonne)).Borders...

---

2. Utiliser une fonction qui renvoie la lettre d'une colonne en fonction de son numéro

Code:

---

1 2 3 4 5 6

Function LettreColonne(Colonne As Integer) As String If Colonne > 0 And Colonne < 257 Then LettreColonne = Split(Cells(1, Colonne).Address(1, 0), "$")(0) End If End Function

---

Ok?

POur la premiere solution il me met que la méthode Cells de l'objet global a échoué.
J'ai écris cela

Code:

---

xls.ActiveSheet.Range(Cells(1, 2), Cells(49, colonne)).Borders(xlEdgeBottom).LineStyle = xlContinuous

---

Effectue la macro en "pas à pas" pour vérifier que colonne contient une valeur valide (>0 ET <257)

Ok?

J'ai aussi la meme erreur pour la deuxieme solution

CEla est déja vérifié. J'ai pas une référence dans Acces a ajouter??
Colonne contient 17.

Quel est le type de ta variable xls?

xls est une Excel.Application c'est le point d'entrée de ma fenetre Excel via Access

Il faudrait voir plus de code.

Tu dois avoir un classeur ouvert pour que cela puisse fonctionner. Il faut encore que ta feuille active soit une feuille de calcul et pas une feuille graphique...

Personnellement, je préfère travailler avec des objets, par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Colonne As Integer Dim xls As Excel.Application Dim wb As Workbook Dim Feuille As Worksheet   Colonne = 17 Set xls = Excel.Application Set wb = xls.Workbooks.Open("d:\données\classeur1.xls") Set Feuille = wb.ActiveSheet Debug.Print Feuille.Range(Feuille.Cells(1, 2), Feuille.Cells(49, Colonne)).Cells.Count

---

Mais il faudrait préciser si tu veux travailler avec une classeur déjà ouvert, si tu choisis ton classeur, ...

Ok?

Voila le début de ma fonction

Code:

---

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 34

Public Function MacroTest(c As Integer, ByRef xls As Excel.Application, ad2 As String) As Workbook   'Déclarations des variables Dim name As String Dim Classeur As Workbook Dim Colonne As Long Dim i As Integer Dim col As String Dim ligne As Long   'Ouverture du tableau Excel xls.Visible = True Set Classeur = xls.Workbooks.Open("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls")   xls.ActiveSheet.Columns("I:I").Cut xls.ActiveSheet.Columns("K:K").Insert Shift:=xlToRight   ...   Colonne = xls.ActiveSheet.Range("a1").End(xlToRight)(1, 2).Column   xls.ActiveSheet.Range(Cells(1, 2), Cells(49, Colonne)).Borders(xlEdgeBottom).LineStyle = xlContinuous   'ou   col = LettreColonne(Colonne)   End Function   Function LettreColonne(Colonne As Long) As String If Colonne > 0 And Colonne < 257 Then LettreColonne = Split(Cells(1, Colonne).Address(1, 0), "$")(0) End If End Function

---

Ok.
xls.activesheet.range...[/code] est délicate à utiliser.

Je lui préfère

Code:

---

1 2 3

dim Feuille as worksheet feuille.range(feuille.cells(...) ...

---

Dès lors, je te conseille d'utiliser, en plus, un objet Worksheet, comme dans mon message précédent.

Cela devrait solutionner le problème, si toutefois tu es certain que la feuille active est bien une feuille de calcul.

De plus, ma fonction pour renvoyer la lettre d'une colonne devrait être adaptée pour utiliser les objets xls, ... en cas d'utilisation avec un objet Excel.

Tu peux alors utiliser une fonction strictement mathématique, sans référence à une adresse de cellule

Code:

---

1 2 3 4 5 6 7 8 9 10

Function LettreColonne(Colonne As Integer) As String If Colonne > 0 And Colonne < 27 Then LettreColonne = Chr(64 + Colonne) End If If Colonne > 26 And Colonne < 257 Then LettreColonne = Chr(64 + Int(Colonne / 26)) LettreColonne = LettreColonne & Chr(64 + (Colonne - (Int(Colonne / 26) * 26))) End If End Function

---

Ok?

Ok?

Tu as raison ca marche maintenant merci!!! :D