Discussion :

[darkspoilt]

Bonjour,

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

Code :

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

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 :

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

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

[Pierre Fauconnier]

Bonjour

Tu as au moins deux solutions

1. Utiliser

Code :

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

    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 :

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

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?

[darkspoilt]

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

Code :

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

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

[Pierre Fauconnier]

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

Ok?

[darkspoilt]

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.

[Pierre Fauconnier]

Quel est le type de ta variable xls?

[darkspoilt]

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

[Pierre Fauconnier]

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 :

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

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?

[darkspoilt]

Voila le début de ma fonction

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
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

[Pierre Fauconnier]

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

Je lui préfère

Code :

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

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 :

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

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?

[darkspoilt]

Tu as raison ca marche maintenant merci!!!