Comptabilisation des écarts

Bonsoir à tous (et à toutes),

Suite à l'aide apportée par h2so4 hier pour mon tableau, je reviens à vous car je veux compliquer la chose.

Comment puis-je faire pour que dans chaque ligne vide d'une colonne apparaisse 0,00€ en rouge et que cela comptabilise seulement la suite la plus longue de 0,00€ (appelé écart en terme hippique) ?

Voir mon fichier :

32classeur1.xlsx (9.98 Ko)

@+

Bonjour,

A tester et à adapter si besoin.

Option Explicit
Public Sub Ecart_hippique()
Dim ws As Worksheet
Dim derLigne As Integer, cpt As Integer, max As Integer, i As Integer

    Application.ScreenUpdating = False

    Set ws = Worksheets("Feuil1")

    With ws
        ' colonne B
        derLigne = .Range("B" & Rows.Count).End(xlUp).Row
        For i = 3 To derLigne
            If .Cells(i, 2) = Empty Then
                .Cells(i, 2) = 0
                .Cells(i, 2).NumberFormat = "[Red]#,##0.00 $"
                cpt = cpt + 1
            Else
                If cpt > max Then max = cpt
                cpt = 0
            End If
        Next
        .[K7] = max

        cpt = 0: max = 0

        ' colonne F
        derLigne = .Range("F" & Rows.Count).End(xlUp).Row
        For i = 3 To derLigne
            If .Cells(i, 6) = Empty Then
                .Cells(i, 6) = 0
                .Cells(i, 6).NumberFormat = "[Red]#,##0.00 $"
                cpt = cpt + 1
            Else
                If cpt > max Then max = cpt
                cpt = 0
            End If
        Next
        .[K9] = max
    End With

    Set ws = Nothing

End Sub

Merci d'avoir répondu, j'ai un message d'erreur : Erreur d'éxécution'9' L'indice n'appartient pas à la sélection

Quésako ?

Re,

J'ai vérifié mon code et je n'ai pas d'erreur dans ton fichier.

Je ne me permettrais pas de dire quoique ce soit sur le code 8) je n'y connais rien...

h2so4 m'a expliqué la procédure pour l'entrer dans une macro et c'est peut-être là que je me suis trompé.

Je te tiens au courant. Juste une question pour finir : est-ce que cela peut dépendre du nombre de ligne ? car j'en ai plus de 1000 ?

@+


de la ligne 11 à 1105.

Bonjour,

Voir ton fichier avec le code.

Si ton nombre de lignes est inférieur à 32767 le code doit fonctionner.

Je te joins ton fichier avec la procédure.

22agreene.xlsm (23.92 Ko)

J'ai regardé de plus près la formule et j'ai remplacé les lettres de colonnes par celles qui sont concernées dans mon fichier cad B par D et F par I : tjs même message d'erreur.

Re,

Envoie ton fichier

Avec le fichier de départ classeur1.xls cela fonctionne très bien. Je t'ai mis la portions concernées.

14essai-1.xlsx (17.69 Ko)

Re,

Voir fichier.

Attention j'ai codé en dur, soit lignes 11 à 1105.

33essai-1.xlsm (27.95 Ko)

Génial. Quel gain de temps, pas besoin de se taper toutes les lignes.

Je voudrai le mettre dans mon fichier d'origine, comment faire ?

Pour être plus rapide voici le fichier :

9jeux-simples-gp.rar (197.91 Ko)

J'y ai rajouté une question subsidiaire...

J'ai un soucis le reste du post à disparu ????


Ah non il est reviendu ??? Mystère.

Bonjour,

suite à un bug... ou plutôt à une mauvaise manip tout semble être revenu dans l'ordre.

Pour en revenir à l'aide que j'ai eu, quelqu'un pourrait-il m'aider à introduire la solution que m'a apporté Jean-Eric dans le fichier d'origine

14jeux-simples-gp.rar (197.91 Ko)

?

Cldt

Je viens de réussir.

Super boulot, merci à tous.

Rechercher des sujets similaires à "comptabilisation ecarts"