Résultats de la recherche

Bonjour Upsilon et merci oui j'ai simplifié volontairement ta formule initiale pour tester que l'année 2023 mais j'ai garder l'original pour mettre a jour ensuite

opps erratum ligne 5 du TCD c'est Nb lignes livrées à l'heure (et du coup profonderur du retard ligne7 doit etre en fait Nb lignes en retard

Bon j'ai remanier un peu le fichier suivant remarques Upsilon j'ai réussit a m'en sortir pour les groupements / mois avec le somme Prod Par contre je bute sur les totaux en colonne R de l'onglet tcd (j'ai les deux même résultats) sur les groupements en ligne5 de l'onglet tcd pour avoir les...

Bonjour Upsilon et merci de ta réponse en rapport à ta remarque désolé j'ai omis de préciser que : pour les dates vides dans la col DateLivr (blank) les lignes en fait sont en cours mais non livrées, mais doivent être comptabilisées dans les points 1 & 2 idem pour celle en 00/00/0 franck

Bonjour la team Je bute sur ce TCD de facto je souhaiterais faire svp un tcd qui me donne: le nb total de lignes sur la période total (ici cette année) le nb total de lignes par mois le nb jours de retard le détail par clients et enfin pouvoir sélectionner par mois j'ai tenter ce fichier...

j'ai contourné en inserant une image et en affectant un jpg en fond d'image via mles propriétés je pense que c'est mon format PNG qui n'est pas compatible

Nickel je teste Par contre je suis bloqué car je ne peux pas mettre de xlsm (que du XLS) de plus j'ai des target interception dans mon code d'origine ce qui je pense va etre en conflit avec cette macro de type public....

voici l'image du bouton

Tite question et il possible de mettre un PNG en tant que image du bouton A part un JPG je n'arrive pas à remplacer l'image du bouton ?

j'avais pas vu ta répondu e mm temps ! :cool: Cool merci beaucoup salutations

voila j'ai fait ca Dim nom$ On Error Resume Next nom = Me.Shapes("ImgAuxil").Name If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap Me.Paste Selection.Name = "ImgAuxil"...

Bonjour Ma pomme super ce code hyper rapide :cool: PS: peux tu rajouter svp 2 variables pour la dim de l'image et sa position sur l'ecran ? Merci d'avance

Ca y est j'ai modifier tt est rentré dans l'ordre

Nickel Ps: si je veux aagrandir l'image dans le usf ? j'ai modifier les propriétés widht et height mais rien ne se passe

Cool merci beaucoup ca fonctionne Ps: il y a as t'il un moyen de figer la position du USF au démarrage ? J'ai un double ecran et j'ai la feuille en Ecran 1 et le USF en écran 2 ???

? fait 100K

du coup il faut rajouter la secetion de l'onglet "RAM" car c'est depuis celui ci que le UserForm doit apparaitre

Peux tu svp le compiler directement dans le fichier que j'ai joint ? merci d'avance

deja ici => Sheets("MRR").Range("B48:J59").CopyPicture xlScreen, xlBitmap

J'ai une erreur 1004 ? Private Sub CommandButton1_Click() 'adapter C10:E12 et Feuil1 est le codename de l'onglet Chemin = ThisWorkbook.Path & "\" Fichier = "AAAImage" Sheets("MRR").Range("B48:J59").CopyPicture xlScreen, xlBitmap Sheets("MRR").Paste Destination:=Sheets("MRR").Range("A84") Set...