Bonjour à tous
Voila, j'ai un petit problème lors de la réalisation de ma page, afin d'y réaliser un balayage futur
Voila le problème, je n'arrive pas a déterminer ma mise ne place de mes cellules.
de la forme
_______________Init__________
__________________Entry______
_______________________Entry_
__________________Exit_______ 3 lignes en plus
Init correspond à la valeur de calcul final antérieur
Si j'ai entry, je passe à la colonne suivante, si j'ai Exit, je reviens en arrière.
Mais sa ji arrive pas
voila le truc, x je n'arrive pas à le remplacer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 'Mise ne place des calculs N = Feu.Cells(i - 1, 14).Value 'Valeur init Bal.Activate Cells(1, N).Value = "Init" 'je met en place Init derlp = Bal.Cells(65536, 1).End(xlUp).Row 'je compte mon nombre de ligne en plus For i = 2 To derlp If Cal.Cells(i, 2).Value = "Entry" Then Bal.Cells(i, x).Value = "Entry" If Cal.Cells(i, 2).Value = "Exit" Then Bal.Cells(i, x).Value = "Exit"
Merci
Partager