Somme VBA
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
Résumé de la discussion
Un utilisateur demande de l'aide pour un code VBA qui boucle sur les lignes de la colonne E et calcule des totaux clients, le départ de la boucle et le nombre de lignes étant variables. Des réponses évoquent des problèmes liés aux cellules fusionnées et à l'erreur d'exécution '6', et préconisent de partager le fichier pour reproduction et ajustement du code. Plusieurs répondants proposent d'adapter le code aux cellules fusionnées, d'ajuster la référence des lignes et d'utiliser une zone dédiée pour les totaux lorsque le nombre de lignes par client varie. D'autres échanges soulignent l'intérêt de partager le fichier pour reproduire le problème et proposer des corrections spécifiques adaptées au contexte.
-
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-
-
@JowaanderBonsoir,
Merci, content pour vous.
Pour votre info le code AutoFit réalise ceci :Cette méthode modifie la largeur des colonnes de la plage spécifiée pour obtenir le meilleur ajustement.
N'a rien à voir avec le code pour fusionner les cellules ( MergeCells ).
Salutations.
Le Pingou -
@Le PingouAh d'accord je vois. Donc si le texte dépasse, l'autre partie qui est renvoyé automatiquement à la ligne y'a pas moyen de le voir ?
Et aussi pour la conversion du total général j'ai trouvé. Mais j'aimerais aussi si le total général se trouve par exemple à ligne 35 faire la conversion à la ligne +2 -
@JowaanderBonjour,
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 -
@Le PingouMerci beaucoup. Juste une dernière chose. Comme vous l'avez pu apercevoir après avoir cliqué sur le bouton ajouter tous les champs se réinitialisent sauf le combobox comment remédier à cela ?
-
-
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-
-
-
@f894009Avec UserForm
-
@JowaanderBonjour,
Vous voulez donc faire le total par client en remplissant la cellule a cote de TOTAL.. -
@f894009Exactement. Le Total pour chaque client avec VBA sachant que le nombre de lignes pour chaque client est variable
-
-
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/
-
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
-
-
@JowaanderBonjour,
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
-
