Somme VBA
Jowaander
Messages postés
16
Statut
Membre
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour. Qui peut m'aider avec ce code ? En faite ma première ligne varie tout le temps
Dim i As Long, plage As Range, résultat As Integer
With Sheets("Facture")
For i = ? To .Range("E65356").End(xlUp).Row
Set plage = .Range("E" & i)
résultat = Application.WorksheetFunction.Sum(plage)
Range("E" & Ligne) = résultat
Range("E" & Ligne).Style = "Currency"
Next i
End With
8 réponses
-
Bonjour,
J'ai fait quelques modifications à cause des cellules que vous fusionnez (peut créer problème dans le code) .
Votre fichier: https://mon-partage.fr/f/JgiRpEqm/
Bonnes fêtes de Pâques-
-
-
-
Bonjour,
Si j’ai bien compris vous voulez placer le total général 2 lignes plus bas…
Dans macroSub TotalGeneral_Click()
Les lignes 2 et 3 :Cells(ligne + 2, 4) = "TOTAL GENERAL:"
Cells(ligne + 2, 4).HorizontalAlignment = xlRight
Puis les dernières lignes comme suit :Cells(ligne + 2, 5) = tot
'ligne = Sheets("Facture").Range("C65536").End(xlUp).Row + 2
Cells(ligne + 2, 1) = "Arrêtée, la présente facture à la somme de :"
Range(Cells(ligne + 2, 1), Cells(ligne, 5)).Font.Bold = True
'ligne = Sheets("Facture").Range("A65536").End(xlUp).Row + 3
Cells(ligne + 4, 4) = "Le Chirurgien-Dentiste"
Salutations.
Le Pingou -
-
-
Bonjour,
En faite ma première ligne varie tout le temps
Par le haut ou le bas?
Pour le reste, relisez ce que vous avez écrit(je suppose que c'est vous) car y a comme une erreur entre le for et le next -
Bonjour,
Juste au passage, pouvez-vous expliquer comment vous entrez les données et passez d'un client à l'autre sur la même facture...?
-
Bonsoir,
J’ai adapté et compléter votre code salon ce que j’ai compris. Je vous laisse le soin pour les essais.
Merci de votre réponse.
Votre fichier : https://mon-partage.fr/f/mIDqUhVx/
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Eh bien chez moi cela fonctionne correctement.?
-
Soit ca m'affiche erreur d'execution code 6 soit l'image
src='https://img-19.ccm2.net/tuvg0KxmjWVoK5HgjWtwsefI0Eg=/440x/c9de6f186c96480ea39158750d766ae4/tmp/SharedScreenshot.jpg' alt='' width='440' border='0' loading='lazy'/>
-
-
Bonjour,
Désolé, mais votre message ne m'apporte aucune possibilité de comprendre ce qui se passe chez vous, le lien est incisible.
En marge avez-vous fait le teste avec le fichier mmis à disposition....?? -
Bonjour,
Vous ne répondez pas à ma question......En marge.......
-
Bonjour,
Me mettre le fichier à disposition et je regarderai
-
https://www.cjoint.com/c/JDomM14YoI3
J'aimerai aussi remplacer le bouton Réinitialisation par Modifier. Qui me permettrai de faire la modification des saisies- Bonjour,
Eh bien sans savoir après quelle commande se produit la faute, j'ai essayé toutes les commandes possibles et je n'ai aucune faute.
Remarque: j'ai l'impression que votre macro ne sert à rien du tout sauf à agrandir parfois la ligne avec nom du client sans raison car il y a largement la place.......!
Avant d’utiliser une macro pour ajuster automatiquement les cellules avez-vous essayé d’entrer un nom fictif, Le plus long possible, et regarder ce qui se passe….. ! Est-ce nécessaire de la mettre !!!!!!!!!
Pour modifier le nom Réinitialisation par Modifier, vous ouvrez le formulaire *Form_Facture* puis clic droit sur le bouton de commande et dans la liste clic Propriétés chercher Caption et y inscrire le nouveau nom, ….puis enregistrer.
Salutations.
Le Pingou
-
