VBA via access recherche une colonne vide d'un fichier Excel

J'ai en fait créer ce code pour ma recherche ce qui fonctionne apparement

dim Celllule as Range
dim CelluleV as Range
    For Each Cellule In xls.Sheets("R_analyse_croiséeé).Cells()
        If Cellule = "" Then Exit For
    Next Cellule
    Set CelluleV = Cellule
    Set Cellule = Nothing

mais je n'arrive pas a exploiter la colonne trouvé ni la ligne et si a faire des manimulation

j'ai essayé cela mais ce la ne fonctionne pas

xls.Sheets("R_analyse_croiséeé).CelulleV.Copy

Si quelqu'un peut m'aider merci d'avance

J'ai trouvé plus simple

xls.Sheets("R_Analyse_croisée").Range("a1").End(xlToRight)(1, 2)

mais il me demadne un "="
Si quelqu'un peut me dire la ce qui ressort sinon
quand je fais ca

xls.Sheets("R_Analyse_croisée").Range("A1").End(xlToRight)(1, 2)

il me dis que la syntaxe n'est pas bosse si qu'elqu'un peut me fire pkoi je le remerci d'avance.

Ben parce que tu fais n'importe quoi ! ....  

C'est quoi ce (1, 2) à la fin de ta ligne ?

Alors :
xls, c'est une instance de l'application Excel.
xls.Sheets("R_Analyse_croisée" ), c'est une des feuilles de calcul du classeur par défaut de xls.
xls.Sheets("R_Analyse_croisée" ).Range("A1" ), c'est la première cellule d'une feuille du classeur par défaut de xls.
xls.Sheets("R_Analyse_croisée" ).Range("A1" ).End(xlToRight), c'est la première cellule non vide de la ligne 1 d'une des feuilles de calcul ...

Et alors, tu veux en faire quoi ?
Y faire référence ?
Alors fais ça :

Dim une_cellule As Range
Set une_cellule = xls.Sheets("R_Analyse_croisée").Range("A1").End(xlToRight)

une_cellule n'est pas la dernière cellule non vide de la ligne 1 d'une des feuilles de calcul du classeur par défaut de xls.
une_cellule est une variable qui "pointe" vers cette cellule.

C'est pourquoi ce code était n'importe quoi :

xls.Sheets("R_analyse_croiséeé).CelulleV.Copy

Le End(xlToRight) est plus intelligent, mais je reviens sur ton pemier exemple pour que tu comprennes :

Dim Celllule As Range                                       ' <-- Bien :)
Dim CelluleV As Range                                       ' <-- Inutile :( Mais pourquoi pas
 
For Each Cellule In xls.Sheets("R_analyse_croiséeé).Cells() ' <-- Bien :)
    If Cellule = "" Then Exit For                           ' <-- Bof.
Next Cellule
Set CelluleV = Cellule                                      ' <-- Inutile :( Mais pourquoi pas
Celulle.Copy Destination:= ....                             ' <-- C'est ça que tu avais oublié !!!
Set Cellule = Nothing                                       ' <-- Très bien :D

Alors je te vois traîner des xls.Sheets("R_Analyse_croisée") longs CMB.
Quelque part dans ton code, tu as écris :

Dim xls As Excel.Appliaction
Set xls = ....

C'est donc fait pour l'application.

Proposition :
Fais-le aussi pour le ou les classeurs, la ou les feuilles dont tu as le plus besoin.

Dim wb As Excel.WorkBook   'Classeur
Dim wsAnaCroi As Excel.WorkSheet 'La feuille R_Analyse_croisée
Dim wsAutre As Excel.WorkSheet   'Une autre feuille
Dim cell As Range
 
Set wb1 = xls.WorkBooks(1)
Set wsAnaCroi = wb1.WorkSheets("R_Analyse_croisée")
Set wsAutre = xls.WorkBook("wb1 ou un autre").WorkSheets("Une_autre_feuille")
 
Set cell = wsAnaCroi.Range("A1").End(xlToRight)
cell.Copy Destination:=wsAutre.Range("C4")
 
Set wb1 = Nothing
Set wsAnaCroi = Nothing
Set wsAutre = Nothing
Set cell = Nothing

Regarde, lignes 10 et 11, c'est plus lisible.
Si c'est pour trois lignes de code, oublie ça.
Si c'est pour un gros projet, n'hésite pas.

Le meilleur moyen de trouver la position de la dernière colonne.

Dim pos as long 
pos = xls.Sheets("R_Analyse_croisée" ).Range("IV1" ).End(xlToLeft).column

Pos prendra pour valeur le numéro de la colonne que tu veux

merci beaucoup zeb pour tes explications
l'exemple du copy c'est surtout pour que je puisse parfaitement comprendre le fonctionnement
mais en fait je voulais surtout avoir la colonne vide pour faire des manipulations sur les colonne précédente en utilisant le numéro de ligne et de colonne.
D'ailleur avec Range on peux ??

Freeman23» +1
darkspoilt» C'est gentil de me dire à moi merci   Et Freeman23, il peut aller se faire brosser ?  

End ne te renvoie pas une cellule vide mais la première ou dernière cellule non-vide.
Range possède les méthodes Row et Column pour t'aider  

Oui bien sur merci a freeman!! mais pour les ligne et colonne on peut pas faire cela avec Cells??

Oui et non. Tu peux créer une petite fonction qui pour un entier entre 1 et 256 te renvoie la lettre correspondante, avec ceci tu peux utiliser ton range tranquillement.

Il te faut pour cela les fonctions : Asc(), chr(),mod ...

Tiens j'ai ca dans mes tiroirs.

Public Function GetCharacter(num As Long) As String
    On Error GoTo sortie_erreur
    ' Renvoit le caractères de l'alphabet correspondant à la position données
    ' ex : 3 -> C
 
    If num > 26 Then
        GetCharacter = Chr(Asc("A") + CLng(num / 26) - 2) & GetCharacter(num Mod 26)
    Else
        GetCharacter = Chr(Asc("A") + (num - 1))
    End If
 
sortie:
    Exit Function
sortie_erreur:
    MsgBox "Getcharacter : " & Err.Description
    Resume sortie
End Function

Et ça, n'est-ce pas plus joli ?
http://www.presence-pc.com/forum/ppc/Programmation/sele...

Certe plus rapide et mieux sous Excel, mais joli je ne serais en juger ...  

Par contre ce n'est valable que pour Excel, vu que je travaille aussi sur Access je préfère les fonctions qui fonctionne quelquesoit l'appli que j'utilise.

+1  

Déjà donné ici sous forme de fonctions personnalisées
Les limites : A à FXSHRXW | 1 à 2147483647