Somme VBA

Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 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

Réponse 1 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
2
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bonne Fetes aussi.
Merci beaucoup. Cela fonctionne parfaitement.
Mais pour les cellules fusionnées votre code d'AutoFit ne marche pas.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458 > Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
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
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention  
 
Ah 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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458 > Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Si j’ai bien compris vous voulez placer le total général 2 lignes plus bas…
Dans macro 
Sub 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
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention  
 
Merci 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 ?
0
Réponse 2 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Comme sur l'image le nombre de lignes pour un client varie tout le temps et j''aimerais pouvoir faire le total à chaque fois
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   > Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Tout a fait Thierry, mais cette feuille est remplie avec quoi?
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Avec UserForm
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   > Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Vous voulez donc faire le total par client en remplissant la cellule a cote de TOTAL..
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Exactement. Le Total pour chaque client avec VBA sachant que le nombre de lignes pour chaque client est variable
0
Réponse 3 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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...?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour LePingou,
Ca roule?
Serait meme preferable qu'il mette son fichier a dispo, chose que j'aurai demande apres sa reponse.
0
Réponse 4 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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/
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup. Oui c'est un peu cela. Mais si je dépasse 2 lignes pour un client ca marche pas. Il m'affiche "Suite en cours de travail; erreur d'execution '6' ". Le nombre de lignes pour un client est variable. ca peut être 2,3 ,7 ,5 10, etc...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Eh bien chez moi cela fonctionne correctement.?

0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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'/>
0
Réponse 6 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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....??
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Ouais. J'arrive toujours pas à faire pour plus de 2 lignes pour client. Ça affiche dépassement de capacité
0
Réponse 7 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Vous ne répondez pas à ma question......En marge.......
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
https://www.cjoint.com/c/JDkuQSRlko2
0
Réponse 8 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Me mettre le fichier à disposition et je regarderai
0
Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458 > Jowaander Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
RECHERCHEV additionne les plusieurs lignes du meme nom
pfl.bourde -
pfl.bourde -

2 réponses
Excel, Formule =SOMME ne fonctionne pas
Damien -
speug -

9 réponses
somme dans excel toujours =0
faissalc -
Dach -

21 réponses