VBA: Trier par ordre alpha + faire somme si dans macro deja existante

pierrejean

XLDnaute Barbatruc

• 2 Mai 2012

• #2

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Bonjour jlbg75

un essai
NB:La somme de certaines colonnes peut donner des resultats bizarres selon leurs contenus ou format !!!

 

Pièces jointes

• ESSAI 4.xls

  44.5 KB · Affichages: 78
• ESSAI 4.xls

  44.5 KB · Affichages: 80
• ESSAI 4.xls

  44.5 KB · Affichages: 78

Vote positif 0 Vote négatif

J

jlbg75

Guest

• 2 Mai 2012

• #3

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Bonjour Pierrejean,

Ah oui en effet le résultat est plutot étrange... en plus la macro se formule dans la sheet(1), alors que les résultats aurais du apparaître dans la sheet(4).
Je vais essayer de voir ou est l'erreur que je cherche mais en tout cas merci pour ton aide.

amitié

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Mai 2012

• #4

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Re

L'erreur est tout simplement que rien ne me disait que le resultat devait etre reporté en Feuil4
Je reprends des que j'ai un moment

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Mai 2012

• #5

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Re

Vois si cela te convient

 

Pièces jointes

• ESSAI 4.xls

  64.5 KB · Affichages: 95
• ESSAI 4.xls

  64.5 KB · Affichages: 109
• ESSAI 4.xls

  64.5 KB · Affichages: 107

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Mai 2012

• #6

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Bonjour.
Un essai avec une partie de quelques outils de mon cru que je vous ai installés.
Récapitulatif mis à jour à l'activation de Feuil4.

P.S. Attention j'ai fourni une autre mouture:
- Une instruction inutile supprimée
- Un test While effectué en fin de la grande boucle plutôt qu'en début
- Les colonnes sources paramétrées en Array (Inspiré de la solution de PierreJean que je salue)

Cordialement.

 

Pièces jointes

• RécapSpéc1.xls

  89 KB · Affichages: 114

Dernière édition: 3 Mai 2012

Vote positif 0 Vote négatif

J

jlbg75

Guest

• 3 Mai 2012

• #7

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Bonjour Dranreb!

Je te remercie de ton retour!!

Je vois que dans la macro des explications sont même fournies afin que je puiss comprendre... (ca c très sympa!!!)

En tout cas ca fonctionne parfaitement!

Bravo

PS: un merci également a pierrejean!!!

Amitié

JB

 

Vote positif 0 Vote négatif

J

jlbg75

Guest

• 3 Mai 2012

• #8

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Danreb,
une petite question dans ton code, je ne vois pas ou est la ligne qui recopie la date... en feuille 1 on a la date en version française et en feuille 4 on a la date en format américaine.
J'ai déjà vérifié dans le format de cellule, mais les paramètres sont bons...
En tout cas encore un grand bravo malgrès que je ne comprend pas grand chose à ce que tu m'as écris... lol

amicalement

JB

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Mai 2012

• #9

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

Chez moi, sur Excel 2003 je n'ai pas de différence de date entre départ et arrivée.
Ça se fait de tableau à tableau. Pour la 1ère occurrence du nom/prénom c'est intégré à :

VB:

For Cs = 1 To 11
      Ce = TCe(Cs): If Ce <> 0 Then Ts(Ls, Cs) = Te(Le, Ce)
      Next Cs

Et pour les suivante elle est supplantée seulement si la nouvelle est supérieure :

VB:

If Te(Le, CeDat) > Ts(Ls, CsDat) Then Ts(Ls, CsDat) = Te(Le, CeDat)

Serait ce plus clair en précisant pour mes noms de variables à 2 lettres leurs sens ? :
T= tableau, L= ligne, C= colonne, e= d'entrée, s= de sortie.
À +

 

Dernière édition: 3 Mai 2012

Vote positif 0 Vote négatif

J

jlbg75

Guest

• 4 Mai 2012

• #10

Re : VBA: Trier par ordre alpha + faire somme si dans macro deja existante

merci beaucoup pour votre aide!!!

A+

 

Vote positif 0 Vote négatif