Discussion :

[baptbapt]

Re-Bonjour

Ayant réglé mon petit problème.

Je suis maintenant dans une nouvelle impasse.
Je doit pour terminer ma macro réaliser un balayage de colonnes

et compter le nombre de colonnes de A à la dernière colonne ayant une valeur

_A__B__C__D__E__F__....
_______En____________
__________En_________
_______Ex____________

en = entry
ex = exit

le balayage jusqu'a la dernière valeur, soit ici en D, pour cet exemple

Merci

[baptbapt]

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
    'Balayage pour calcul Nb a/c
    Dim derlr As Long
    Dim derlt As Long
    Dim derlz As Long
    Dim va As Variant
    derlr = Cal.Cells(65536, 1).End(xlUp).Row
    For h = 2 To derlr
        derlt = Bal.Cells(2, 50).End(xlUp).Row
        va = derlt
        derlz = Bal.Cells(h + 1, 50).End(xlUp).Row
        If derlt < derlz Then
        va = derlz
        End If
    Next h
    Res.Cells(1, 1).Value = va

J'ai essayé de faire un balayage en recherchant la dernière valeur de chaque ligne, mais je pense que mon code est faux.
car il me renvoi la réponse 1

[baptbapt]

je crois savoir se qui est faux

Code :

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

1
2
3
 
derlr = Cal.Cells(65536, 1).End(xlUp).Row
derlz = Bal.Cells(h + 1, 50).End(xlUp).Row

J'utilise la meme formule pour faire dernière ligne et dernière colonne

Colonne doit etre faux.
par contre la connait pas le code.

Merci

[SfJ5Rpw8]

pour la derniére colonne ce serai plutôt :

Code :

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

1
2
 
derlz = Bal.Cells(h + 1,256).End(xlUp).End(xlToLeft).column

[baptbapt]

Oui c'est bien sa

Par contre est -il possible de directement généré le calcul sur un ensemble de ligne.
ma macro ne fonctionne pas, elle me donne la dernière valeur 5 au lieu de 7

[SfJ5Rpw8]

tu cherche la derniére colonne dans le document généré lors de ton précédent post..?