alimentation d'un USF

[Bricoltou]

Bonjour le Forum

J'ai encore besoin de vous , je dois modier un fichier important afin de faciliter le travail de mon comptable. ( bien sur il me coutera moins cher si j'y arrive)
Je saisie plusieurs fois par semaine le CA de mes locaux ,la saise est identique au tableau ci dessus , ligne 4 à 9 pour le local 2,ligne 11 à 16 pour le local 3,ect ect
Pour info j'ai 11 locaux à saisir .
Je saisie 1 à 2 fois par semaine les versements en banque ,ligne 3 ,11 et 19
Je souhaite creer les ligne rouges dans le tableau avec l'USF ci joint .
Je souhaite alimenter le textbox total des ventes crédit avec la colonne F et le texbox total des ventes débit avec la colonne E
Le texbox solde caisse devra se remplir automatiquement ( sa je sais faire )
La difficultée pour moi se trouve dans le calcul du pas au fur et à mesure des saisies
J'espère avoir été clair,merci d'avance pour votre aise toujours trés précieuse ,
Bricoltou

 

[xhudi69]

Re : alimentation d'un USF

Bonsoir Bricoltou, le Forum,

Ou alors ceci qui traite 26000 cellules en 4 secondes.

Sub convertir_Clic()
Dim x As Integer, y As Integer, Drl As Integer, Drc As Integer
With Sheets("BaseAchat")
        Drc = .Range("AB1").End(xlToLeft).Column
        Drl = .Range("A65500").End(xlUp).Row
    For y = 2 To Drl
        For x = 1 To Drc
            .Cells(y, x).NumberFormat = "0.00"
        Next x
    Next y
End With
End Sub

@+

 

[Bricoltou]

Re : alimentation d'un USF

Bonsoir Xhudi69,Le Forum

J'ai essayé de modifié ton code si dessous pour mon fichier ci joint , rien a faire sa fonctionne pas .
Pourtant sa n'a pas l'aire compliqué

Sub convertir_Clic()
Dim x As Integer, y As Integer, Drl As Integer, Drc As Integer
With Sheets("BaseAchat")
        Drc = .Range("AB1").End(xlToLeft).Column
        Drl = .Range("A65500").End(xlUp).Row
    For y = 2 To Drl
        For x = 1 To Drc
            .Cells(y, x).NumberFormat = "0.00"
        Next x
    Next y
End With
End Sub

Peux tu me commenter ton code
Bricoltou

 

[xhudi69]

Re : alimentation d'un USF

Bonsoir Bricoltou, le Forum,

Le fichier exemple en PJ

@+

 

[xhudi69]

Re : alimentation d'un USF

Bonsoir Bricoltou, le Forum,

Je te renvoie ton fichier exemple avec le le code modifié comme suit:

.Cells(y, x).NumberFormat = "0"

@+

 

[xhudi69]

Re : alimentation d'un USF

Bonjour Bricoltou, le Forum,

En fait les colonnes qui te posent problème sont: "C" & "G" & "H".
En PJ ton fichier remanié, avec un code qui ne s'occupe que de ces colonnes, le code est commenté

@+

 

[Bricoltou]

Re : alimentation d'un USF

Bonsoir Xhudi,Le Forum

Super merci à toi , sa marche

Regarde ta MP je viens de t'envoyer un message

Bricoltou