Macro à améliorer

Bonsoir,

je viens de tester et j'ai le résultat voulu.
demain je pourrai poursuivre la feuille Libellé en supprimant les doublons, je voulais être sûr que la macro soit ok pour travailler sur cette liste.

la feuille OC contient des données collées d'une extraction d'un logiciel GPAO, d'où le format des cellules qui est considéré comme du texte.
comment cela se traduit il en 1 ou plusieurs variable-tableaux ?

en tous les cas merci pour ce code, je vais pouvoir conserver quelques cheveux ^^

Bonjour,
comment cela se traduit il en 1 ou plusieurs variable-tableaux ?

je vais regarder mais il faut que je comprenne ce que tu veux faire...

Bonjour,
au quotidien, nous utilisons 6 caractères pour ce qui correspond à la colonne C et 5 caractères pour le code produit (colonne N)
Quand le planning est construit chaque jour, c'est donc 6 et 5 caractères qui sont tapés et qui parlent à tout le monde.
Par contre la GPAO génère 8 caractères et donc rajoute des 0 devant. Personne ne tapera ces 0 et du coup je dois convertir au moins ces 2 colonnes pour les rendre au format "classique".

Re,

1/ concernant les 8 caractères de la GPAO avec les zéros devant (donc un string) il suffit de multiplier la cellule par 1 pour passer en nombre sans les zéros devant

2/ le montant est cumulé ligne après ligne ou doit il être indiqué pour chaque N° document?

le montant doit être cumulé ligne après ligne comme actuellement.
la macro fusionne les même numéro de la colonne C et en compilant pour chaque ligne de ce même numéro, la quantité x le code de la colonne N.

j'ai une autre question, en colonne S les dates sortent sous le format aaaammjj, comment faire pour obtenir sur toute la colonne le format jj/mm/aaaa ?

difficile de faire mieux niveau rapidité ^^
par contre en colonne AH, des codes ne contiennent plus 5 chiffres, il y en a avec seulement 4 caractères (ligne 7, 7717 au lieu de 77175 par exemple)

je regarderai plus après la pause

merci en tous les cas

Pour convertir en date

Function Convertir_en_date(aaaammjj As String) As Date
     Convertir_en_date = CDate(Right(aaaammjj, 2) & "/" & Mid(aaaammjj, 5, 2) & "/" & Left(aaaammjj, 4))
End Function

renvoie le n° de série
mettre les colonnes au format-nombre-date (aujourd'hui 29121128 renvoie 41241)

j'avoue c'est assez complexe de décortiquer un code tout fait.
Le montant se calcule en cumulé de chaque ligne visiblement avec ton code. Le montant recherché est celui correspondant à chaque même numéro de document (colonne C)
et quand on tombe sur un nouveau document, le montant retombe à 0.
ex pour le 168369 >> montant = 13726 (avec les arrondis)
168368 >> montant 6797
168366 >> 2277
....

je ne sais pas trop quoi changer pour retomber sur mes pieds sans générer d'instabilité ou bug

Pour le format date, j'avais trouvé ça

'imposer le format date sur la colonne S
Dim j As Integer
Dim st As String
Dim dte As Date
j = 1
Columns("S:S").Select
With ActiveCell
Do Until IsEmpty(.Offset(j, 0))
st = Format(.Offset(j, 0).Value, "00000000")
If st = "00000000" Then
.Offset(j, 0).ClearContents
Else
dte = CDate(Right(st, 2) & "/" & Mid$(st, 5, 2) & "/" & Left$(st, 4))
.Offset(j, 0).Formula = dte
End If
j = j + j
Loop
End With

re,

Pour le montant, il me semble bien te l'avoir fait remarqué car ton code tu n'avais pas réinitialisé la variable "Montant"( pas grave)
et pendant qu'on en parle, faut il multiplier la quantité par le montant net (Q par R) ?

Pour les dates tu n'as pas que la colonne S qui en date: il y a aussi T,U et X et peut d'autre que je n'ai pas vu: que fait-on ? je ne sais pas ce que tu fais de ces dates mais peut-^tre pourrait on se contenter de laisser le N° du jour comme aujourd'hui 41241; tu dis

en regardant un peu, j'ai vu qu'il s'agissait de nombre alors que je croyais du texte donc la fonction est nase
je regarderai un code après tes réponses

Ah oui je viens de relancer ma macro et effectivement je faisais du cumulé ... autant pour moi, je n'avais pas vu cette erreur

le montant net (R) qui apparaît sur chaque ligne est le résultat de la quantité par le prix unitaire. Pas de multiplication Q par R à réaliser. Il "reste" à sommer chacun de ces montants nets pour chaque numéro de la colonne C.

La colonne S est la colonne qui sert à faire les mises à jour quotidiennes du tableau "planning_2", si on met au format 41241 ça n'est pas parlant pour l'utilisatrice, il faut avoir un format jj/mm/aaaa pour la convivialité (elle utilise actuellement la macro copiée plus haut)

merci de la réactivité et de ta patience

bonsoir
désolé pour le délai de réponse
je viens d'essayer et résultat parfait en un temps record ^^

Merci pour toute cette aide.
Bravo

Bonjour,

en colonne AF de la feuille OC, tu as intégré "nbre_doc" et le nombre en dessous.
les données de cette feuille vont être quotidiennement écrasées, du coup ces 2 cellules aussi et j'ai testé en effaçant ces 2 cellules et la macro plante. j'ai tenté de résoudre en vain ... que faut il faire pour qu'il n'y ait pas d'impact sur la macro lorsqu'on écrase les données de la feuille OC ?

bonjour,

La cellule AF4 étant nommée, de mémoire "nbre_doc" tu peux la déplacer ou tu veux dans la feuille.

attention: c'est une formule matricielle
"au cas où" tu ne connaitrais pas ces animaux:
Formule matricielle à valider par « ctrl+maj+entrée » (et non directement par « entrée »), le curseur clignotant dans la barre de formule; Excel encadre alors automatiquement la formule par des {}

tu peux aussi faire un couper-coller dans une autre-feuille

ah oui je n'aurais jamais cherché cette solution de la cellule nommée.
le couper coller fonctionne à merveille.
merci beaucoup :-)