[XL-2003] Range d'une ligne complète avec indice de ligne dynamique [Résolu]

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

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.

[Ormonth]

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 :

? 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'.

[Ormonth]

Bonjour,

?

Code :

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 :

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

==> FAIL

Code :

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

==> FAIL

[Ormonth]

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

cordialement,

Didier

[Ormonth]

Si besoin, passer par une variable objet :

Code :

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

cordialement,

Didier

[panda31]

OK merci.

Peux-tu juste me décrypter le code ? J'ai le VBA en horreur là je ne comprends pas tout !

Pour récupérer ma ligne :

Code :

1
2
3
4
5
Sub Toto() 
Dim cell As Range 
Dim lngDerCase As Long 
Dim lngLigneCible As Long

Ligne cible que j'appelle ligneCherche ?

Code :

1
2
lngLigneCible = 5

lngDerCase n'est pas utilisé il me semble ?

Code :

1
2
lngDerCase = Rows(5).Find("*", , , , xlByColumns, xlPrevious).Column

Je ne comprends pas l'utilisation du Rows(5).

Code :

1
2
3
4
5

For Each cell In Range(Cells(lngLigneCible, 1), Cells(lngLigneCible, Rows(5).Find("*", , , , xlByColumns, xlPrevious).Column))
     Mon code 
Next cell
End Sub

[Ormonth]

Envoyé par panda31

Peux-tu juste me décrypter le code ? J'ai le VBA en horreur

Ben là ça commence mal... pour moi les deux sont antinomiques

lngLigneCible = le Numéro de la ligne que tu veux parcourir

lngDerCase n'est pas utilisé il me semble ?

tu as raison, j'ai mis sa recherche en variable, mais je n'ai pas modifié ensuite (c'est chose faite), donc ça marchait mais la variable était inutile

Je ne comprends pas l'utilisation du Rows(5).

Je préfixais la ligne voulue à 5 au départ, mais sur le dernier code je l'ai mise dans la variable lngLigneCible justement pour que tu aies la syntaxe avec tout en variable

cordialement,

Didier

[panda31]

Merci bcp pour le décryptage et l'aide !

Je teste de suite et mets en résolu ASAP.

[Ormonth]

Dernier truc, si la ligne est vide => plantage sur la recherche de dernière cellule.

mettre un filtre du genre :

Code :

MsgBox WorksheetFunction.CountA(MaLIgne)

PS : attention prend en compte les cellules qui contiennent juste des formules et peuvent afficher "".

[panda31]

Voilà c'est fait !

Merci encore