Discussion :

[alsimbad]

Je ne comprend pas si j'ai faux dans la formulation pour renvoyer une cellule d'un range, ou si il manque quelque chose a ma configuration, une bibliotheque ou une reference ou je ne sais quoi
je voudrais boucler sur un range et faire stopper la boucle quand il trouve la premiere cellule vide en colonne A j'ai ce drôle de message
si quelqu'un à une réponse merci d'avance il bloque sur la ligne test

Code :

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

1
2
 
MsgBox cel.Formula(1)(1, 1)

[Pierre Fauconnier]

Bonjour

Ton objet Cell est multicellulaire, donc tu ne peux pas y associer une propriété attachée à un objet unicellulaire.

Je te propose le code suivant

Code :

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

1
2
3
4
5
6
7
 
    Dim Cellule As Range
    Set Cellule = Range("A1")
    Do While Not IsEmpty(Cellule)
        MsgBox Cellule.Address & " non vide"
        Set Cellule = Cellule(2)
    Loop

Ok?

[alsimbad]

je te remercie pierre pour ta réponse rapide
pour ce qui est de ta boucle j'y serai arrivé, mais je tenais a prendre en compte le range en entier pour répondre a la question de maestro et mettre cel en range pour le tri. donc en vrai, ce qu'il me faudrais, l'idée de début, c'est

Code :

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

1
2
3
 
Range("A1:D1").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, ...

selectionner chaque ligne (range) et en sortir la premiere cellule comme argument

Code :

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

1
2
3
 
cel Select
    Selection.Sort Key1:=premiere cellule de cel, Order1:=xlAscending,..

mais j'y suis pas arrivé. sniff

[Pierre Fauconnier]

On ne sait pas effectuer de tri sur une ligne avec

Code :

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

plage.sort

, sinon la solution était toute trouvée

[alsimbad]

si, bien sur, on peut faire du tri par ligne
ça donne ça

Code :

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

1
2
3
4
 
 Range("A1:D1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal

[ouskel'n'or]

Tu vois bien que tu n'as besoin de personne Résolu ?

[Pierre Fauconnier]

si, bien sur, on peut faire du tri par ligne
ça donne ça

Code :

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

1
2
3
4
 
 Range("A1:D1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal

Je vais me coucher...

[alsimbad]

salut ouskel.
non, ce n'est pas vraiment résolu puisque ma question n'était pas le tri, mais comment arreter une telle boucle
do while quoi ?
puisque je prend un range de 4 cellules, et je descend par range.offset(1)
mais quelle condition puis je mettre

Code :

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

1
2
3
4
 
Set cel = Range("A1:D1")
 Do While Not IsEmpty(cel) ça ça ne marche pas
Do While Not IsEmpty(cel.Formula(1)(1, 1)) ça ça ne marche pas non plus

, j'ai ce fameux message sur property, et pourtant cette valeur figure bien dans la fenetre espion. et donc là, je cale un peu

[da991319]

Est ce que ca, ca se rapprocherait de ce que tu recherches?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test()
 
Set cel = Range("A1:D1")
 
Do
 
    Tri
    Set cel = cel.Offset(1, 0)
Loop Until (cel.Row = Range("A65536").End(xlUp).Row)

[alsimbad]

ça ce rapproche ..... pour la boucle. cela donnerais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim cel As Range
 
Sub Macro2()
 Set cel = Range("A1:D1")
Do
  cel.Select
  cel.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Set cel = cel.Offset(1, 0)
Loop Until (cel.Row = Range("A65536").End(xlUp).Row)

mais il reste a extraire la premiere cellule, ou au moins la reference A1 pour chaque ligne
non.... c'est bon, j'ai trouvé en le disant

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
 
Dim cel As Range
Dim i As Integer
Sub Macro2()
 Set cel = Range("A1:D1")
 i = 1
Do
  cel.Select
  cel.Sort Key1:=Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Set cel = cel.Offset(1, 0)
    i = i + 1
Loop Until (cel.Row = Range("A65536").End(xlUp).Row + 1)
End Sub

en fait il manquaitr ce +1 pour arriver a traiter la derniere ligne et transformer le range(A) en cells(i,1)
merci a tout le monde, quoique ce soit plutôt un merci de maestro que vous devriez avoir si ma solution lui convient