Problème de mise en page avant balayage

[baptbapt]

Bonjour a tous

Voila mon problème j'aimerai mettre en place mes données sur une page de façon a faire un balayage afin de déterminer l'écart entre 0 et la dernière valeur

J'ai réussit à mettre la valeur initiale, par contre quand je met en place les autres valeurs, sa disjoncte, elle ne se mettent pas ou je veu

    'Mise ne place des calculs
    N = Feu.Cells(i - 1, 14).Value
    Bal.Activate
    Cells(1, N).Value = "Init"
    derlp = Cal.Cells(65536, 1).End(xlUp).Row
    
  '  For k = 2 To derlp
        'x valeur de la colonne de la ligne précédente ou <> de ""
        For u = 1 To derlp
          For k = 2 To derlp
        'Recherche de x
        For y = 1 To 50
            If Cells(u, y).Value <> "" Then
            x = y
            End If
        If Cal.Cells(k, 2).Value = "Entry" Then
            Bal.Cells(k, x + 1).Value = "Entry"
        Else
            Bal.Cells(k, x - 1).Value = "Exit"
        End If
        Next y
        Next k
        Next u
  '  Next k

Cal/Bal/Feu sont les noms de mes feuilles de travail

Voila se que je doit mettre en place

__________________Init__________
_____________________Entry______
__________________________Entry_
______________________Exit______

Init valeur initial
si entry je décale d'une colonne vers la droite
si exit, vers la gauche
et ainsi de suite ....

 

[baptbapt]

Re : Problème de mise en page avant balayage

Mon problème est'il incomprehensible?

Le code est faux, je le sait sa!!
C'est meme sur

For k = 2 To derlp
        For u = 1 To derlp - 1
        For y = 1 To 50
            If Bal.Cells(u, y).Value <> "" Then
            x = y
            Exit For
            End If
        If Cal.Cells(k, 2).Value = "Entry" Then
            Bal.Cells(k, x + 1).Value = "Entry"
            Exit For
        End If
        Next y
        Next u
        Next k

je l'ai un peu modifier, mais toujours pas bon

__________________Init__________
Entry Entry______________________
_____Entry______________________

voila se que j'ai

 

[baptbapt]

Re : Problème de mise en page avant balayage

For k = 2 To derlp
            For y = 1 To 50
                If Bal.Cells(k - 1, y).Value <> "" Then
                    x = y
                    Exit For
                End If
            Next y
            If Cal.Cells(k, 2).Value = "Entry" Then
                Bal.Cells(k, y + 1).Value = "Entry"
            Else
                Bal.Cells(k, y - 1).Value = "Exit"
            End If
        Next k

J'ai réussi à trouver le bon code

Par contre comment faire pour réaliser un balayage?

La le code je connais pas

Merci