listage

[OlivGM]

Bonjour,

Comment écrire une suite descendante de nombres (col A) en colimaçon à partir d'un point central nommé en B1?

Merci de votre solution. (petit exemple)

a+

 

[st007]

Re : listage

Bonjour,

Une option.....

 

[vgendron]

Re : listage

Hello

Avec ce code.....

Sub spirale()


fin = Range("A65536").End(xlUp).Row
'on force pour les 3 premiers éléments
AdDépart = Range("B1")
Range(AdDépart).CurrentRegion.Clear
Range(AdDépart) = [A1].Value

from = AdDépart
Range(from).Select

Range(from).Offset(0, -1) = [A2]
from = Range(from).Offset(0, -1).Address

Range(from).Offset(-1, 0) = [A3]
from = Range(from).Offset(-1, 0).Address

'pour i de 3 jusqu'à fin
For i = 4 To fin
    'dispo à gauche et non vide au dessus (=changement de direction)
    verslagauche = Range(from).Offset(0, -1) = "" And Range(from).Offset(-1, 0) <> ""
    'dispo à droite et non vide en dessous (=changement de direction)
    versladroite = Range(from).Offset(0, 1) = "" And Range(from).Offset(1, 0) <> ""
    'dispo en bas et non vide à gauche (=changement de direction)
    verslebas = Range(from).Offset(1, 0) = "" And Range(from).Offset(0, -1) <> ""
    'dispo en haut et non vide à droite(=changement de direction)
    verslehaut = Range(from).Offset(-1, 0) = "" And Range(from).Offset(0, 1) <> ""
    
    If versladroite Then
        verslehaut = False
        verslagauche = False
        Range(from).Offset(0, 1) = Range("A" & i)
        from = Range(from).Offset(0, 1).Address
    ElseIf verslebas Then
        verslehaut = False
        versladroite = False
        Range(from).Offset(1, 0) = Range("A" & i)
        from = Range(from).Offset(1, 0).Address
        
        'MsgBox "bas"
    ElseIf verslagauche Then
        Range(from).Offset(0, -1) = Range("A" & i)
        from = Range(from).Offset(0, -1).Address
        'MsgBox "gauche"
    ElseIf verslehaut Then
        Range(from).Offset(-1, 0) = Range("A" & i)
        from = Range(from).Offset(-1, 0).Address
        'MsgBox "haut"
    
    End If
Next i

End Sub

 

[néné06]

Re : listage

Bonjour à tous,
Un autre procédé où l'on choisi son nombre dans le tableau de la feuille.

A+

René

 

[st007]

Re : listage

re,
néné06, j'entre en débogage si double clic K9:N9 et N9:N12 avec excel 2007
mais j'aime bien les couleurs .
Bonne journée

 

[néné06]

Re : listage

Ré
Salut JAMES BOND,

J'ai reposté une autre version qui ne devrait pas boger ?

A+

René

 

[st007]

Re : listage

merci pour lui "R"
🙄

 

[gilbert_RGI]

Re : listage

Bonjour,

une autre solution

Alt + F8 lancer "test"

 

[OlivGM]

Re : listage

Bonsoir et merci beaucoup pour vos réponses.

a bientôt

 

[gilbert_RGI]

Re : listage

oups erreur de fils

 

[OlivGM]

Re : listage

ce n'est pas grave merci.

 

[youky(BJ)]

Re : listage

Bonjour à tous,
ceci pour le fun
je me suis piqué sur ce truc sans queue ni tête
Bruno

Sub spirale()
lig = 11: col = 11
[c2:z30].ClearContents
n = [A65000].End(3).Row
debut:
'bas
For k = lig + 1 To 24
i = i + 1: Cells(k, col) = Cells(i, 1)
If i = n Then Exit Sub
If Cells(k, col - 1) = "" Then lig = k: Exit For
Next
'gauche
For k = col - 1 To 2 Step -1
i = i + 1: Cells(lig, k) = Cells(i, 1)
If i = n Then Exit Sub
If Cells(lig - 1, k) = "" Then col = k: Exit For
Next
'haut
For k = lig - 1 To 1 Step -1
i = i + 1: Cells(k, col) = Cells(i, 1)
If i = n Then Exit Sub
If Cells(k, col + 1) = "" Then lig = k: Exit For
Next
'droite
For k = col + 1 To 25
i = i + 1: Cells(lig, k) = Cells(i, 1)
If i = n Then Exit Sub
If Cells(lig + 1, k) = "" Then col = k: Exit For
Next
GoTo debut
End Sub

 

[gilbert_RGI]

Re : listage

bonjour , youky

Ya un schimil........

 

[OlivGM]

Re : listage

un schimi..un schimil...

 

[youky(BJ)]

Re : listage

Bonjour Gilbert,
Je viens de tester et c'est tout bon chez moi.
Je pense tu as oublié de copier toutes les lignes.
Bruno