alimentation d'un USF

Bricoltou · 21 Décembre 2014

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 · 26 Décembre 2014

Re : alimentation d'un USF

Bonsoir Bricoltou, le Forum,

Ou alors ceci qui traite 26000 cellules en 4 secondes.

Code:

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 · 26 Décembre 2014

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é

Code:

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 · 26 Décembre 2014

Re : alimentation d'un USF

Bonsoir Bricoltou, le Forum,

Le fichier exemple en PJ

@+

xhudi69 · 26 Décembre 2014

Re : alimentation d'un USF

Bonsoir Bricoltou, le Forum,

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

Code:

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

@+

xhudi69 · 27 Décembre 2014

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 · 27 Décembre 2014

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

alimentation d'un USF

Bricoltou

XLDnaute Occasionnel

Pièces jointes

xhudi69

XLDnaute Accro

Bricoltou

XLDnaute Occasionnel

Pièces jointes

xhudi69

XLDnaute Accro

Pièces jointes

xhudi69

XLDnaute Accro

Pièces jointes

xhudi69

XLDnaute Accro

Pièces jointes

Bricoltou

XLDnaute Occasionnel

Discussions similaires