Discussion :

[panda31]

Bonjour,

J'ai beau essayer et chercher sur différents forums, je ne trouve pas solution à mon problème.

Je veux accéder directement aux lignes qui m'intéressent dans une feuille excel et ensuite, itérer sur les cellules jusqu'à la dernière colonne utile.

Donc, j'ai la ligne en integer et je veux me faire un range de la ligne complète restreinte aux colonnes utiles (ne pas aller jusqu'à la colonne IV serait bien)

Je ne sais pas quel algo implémenter.

Fatigue Fatigue !!! (oui je sais, nous ne sommes que lundi...)
Pourriez-vous m'aider svp ?

J'ai pensé à faire un range de la ligne entière et ensuite de tester dans le for si la cellule de la première ligne à la colonne courante est vide ou non.

Code :

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

1
2
3
 
    For Each Cell In range(ligneCherchee & ":" & ligneCherchee)
        If Cells(1, Cell.Column) <> "" Then

Premier problème, je ne sais pas comment construire mon "For each cell in range(??????)".

Merci d'avance pour votre coup de pouce.

[Didier Gonard]

Bonjour,

ça dépend de la structure de ton tableau .

genre base de données ou....

A partir de là on trouve la dernière colonne non vide de ton tableau et ton range va de 1 à cette colonne (pour peu que ça commence en 1).


Sinon :

dernière cellule de la ligne 5 dans fenêtre exécution :

Code :

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

? Rows(5).Find("*", , , , xlByColumns, xlPrevious).Column

cordialement,

Didier

[panda31]

Je parcours un XLS standard (une feuille avec un header qui m'indique à la dernière colonne), mais mon problème est surtout sur la première ligne - le for each - car je veux passer la ligne à la commande Range par une variable et j'ai une erreur non explicite 'erreur d'exécution 1004'.

[Didier Gonard]

Bonjour,

?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Toto3()
Dim cell As Range
Dim lngDerCase As Long
Dim lngLigneCible As Long
 
lngLigneCible = 5
 
lngDerCase = Rows(lngLigneCible).Find("*", , , , xlByColumns, xlPrevious).Column
For Each cell In Range(Cells(lngLigneCible, 1), Cells(lngLigneCible, lngDerCase))
    Mon code
Next cell
 
End Sub

cordialement,

Didier

[panda31]

Comme le montre mon code, ce que je cherche à faire c'est de récupérer la ligne entière (oublions la dernière colonne) et d'itérer dessus. Mais la ligne à trouver est paramétrée par la variable ligneCherchee.

Le range que je fais plante. Une idée de comment construire mon range avec une variable ? J'ai essayé plusieurs choses mais rien n'y fait :

Code :

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

1
2
3
 
var = ligneCherchee & ":" & ligneCherchee
range(var)

==> FAIL

Code :

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

1
2
 
range(ligneCherchee & ":" & ligneCherchee)

==> FAIL

[Didier Gonard]

Vois la syntaxe du # 4, c'est une question de syntaxe d'écriture en effet..

cordialement,

Didier