cherche formule sur excel Fermé

Question

Bonjour, 

Je cherche une formule permettant d'enlever les frais de port sur mon bon de commande si les frais de port dépasse 19.86 €

Je vous donne mon fichier excel pour que vous voyez le mieux le probleme

http://www.archive-host.com

J'ai essayer des formule du genre =SI(F..>19,86;0;19.86) mais je pense pas que ça soit la bonne...

Merci de votre aide

Configuration: Windows 7 / Safari 534.10

m@rina · Answer

Bonjour, 

Le principe est le suivant :

Si les frais de port sont > à ta formule
alors 0
sinon ta formule

ce qui donne :

=SI(7,9+2,99*NB(E30:E48)+SOMME(G:G)>19,86;0;(7,9+2,99*NB(E30:E48)+SOMME(G:G)))

m@rina

Mike-31 · Answer

Salut,

Si j'ai bien compris, j'aurai modifié le tableau comme sur l'exemple ci-joint, si le client retire sur place la marchandise, la rubrique Adresse de livraison reste vide, sinon on saisi l'adresse de livraison et s'il s'agit d'un envoi international on saisi le pays et les frais se calcule automatiquement.

https://www.cjoint.com/?0bosybGnF74

Raymond PENTIER · Answer

Tiens ! C'est un fichier que je connais bien ! Et si tu préfères poursuivre avec la démarche que tu envisageais, à savoir =SI(F..>19,86;0;19.86)

1) Tu déplaces la formule située en F50 pour la mettre en G50.
2) Tu saisis en F50 la formule =SI(G50>19,86;0;G50)

Mike-31 · Answer

Re, 

Teste le fichier, si le destinataire retire sur place la marchandise, la rubrique adresse de livraison est vide, donc pas de frais 

Si la rubrique adresse de livraison est renseignée, dès qu'en D24 un pays est sélectionné sur la liste déroulante les frais sont calculés jusqu'a concurrence de 5 références saisies colonne C Référence et gratuit à partir du 6 éme 

Si c'est ce que tu cherches je t'expliquerai comment ça marche et surtout la manip très simple pour actualiser les tarifs 

https://www.cjoint.com/?0brqcQEwasf  

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Les frais se calculent dès que tu saisis le pays de destination en D24,

si en D24 aucune saisie, il n'y a pas de frais ce qui correspond à un enlèvement sur place.

Si en D24 tu sélectionnes un pays les frais correspondants s'affichent jusqu'à concurrence de 5 références dans la colonne C et les frais passent en gratuit dès la 6éme référence.

Dès que les formules seront au point, on reverra le fichier et te donnerais les explications pour modifier les tarifs.

Sais tu Masquer et afficher les colonnes !

Mike-31 · Answer

Re, 

J'ai revu la formule et protégé la feuille pour éviter l'effacement accidentel des formules 
Teste le fichier et on en reparle, arrives tu à afficher et masquer les colonnes 

https://www.cjoint.com/?0bukHtcpOj5 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

djkony19 · Answer

Re,

Oui j'y arrive en fait c'est pas compliquer
Bon je te dis si c'est ok
Merci mike.

djkony19 · Answer

Re,

Bon c'est nikel, c'es ce que je voulais.

Par contre tu as fais comment pour bloquer et masquer les formules ?

J'ai fais ce que tu m'a dis et ça ne fonctionne pas

Comment je fais pour changer les valeurs pour les frais de port ?

djkony19 · Answer

RE,

Tu crois que c'est possible d'insérer un bouton "envoyer" sur une feuille excel ?

ah et j'ai oublier un petit détail mais si tu peux pas le changer c'est pas bien grave.

Si tu peux enlever les frais de port gratuit pour l'international, en fait ça sera frais de port gratuit juste pour la france à partir de 5 articles.

Pour l'international ça sera payant même au dessus de 5 articles parce que sinon je suis perdant sur certains pays.

Si c'est pas possible laisse, c'est pas grave. Pour l'instant c'est juste le bouton "envoyer" qui serait bien pratique.

Merci

Mike-31 · Answer

Re,

Je serai absent pour l'après midi, je regarde la formule ce soir.

Insérer des bouton est tout à fait possible mais que veux tu faire avec un bouton envoyé

Mike-31 · Answer

Re,

Je suis un peu bousculé, je n'ai pas eu le temps de tester la formule, regarde si elle te convient.

Pour envoyer un mail depuis un bouton c'est tout à fait possible mais la il faut avoir un minimum de connaissance en VBA, savoir quelle messagerie tu utilise Oulook, Outlook express, autre ...

le message que tu veux mettre ex. Veuillez trouver en pièce jointe votre facture etc ...

https://www.cjoint.com/?0bwlksxmgxs

djkony19 · Answer

Re,

C'est bon mike ;) la formule fonctionne.

maintenant il faut juste que tu m'explique comment changer les tarifs des frais de port au cas où je dois les changés ou modifier la disposition . Parce que la je n'arrive pas à afficher ou masquer les colonnes.

Puis pour le bouton envoyer j'utilise hotmail et j'aimerais l'envoyer sur nm-sportswear@live.fr (sur mon adresse en fait et non sur l'adresse du client). Je vais me renseigner un peu sur le vba.

Encore merci pour ce fichier

Mike-31 · Answer

Re,

Maintenant que je connais un peu mieux ton fichier, regarde cette proposition sur deux feuilles, dont la feuille listing peut être protégée ou masquée. Toutes les explications sont dans des zones te texte. Si tu préféres la première version je donnerai la marche à suivre pour modifier les tarifs

https://www.cjoint.com/?0bwoDe6okA6

djkony19 · Answer

Re,

Merci pour toutes ces explications.
Je préfère celle-ci, c'est très propre ! j'aime beaucoup.

Par contre j'ai juste un petit probleme pour les taille

Par exemple si je prend une paire de chaussure la personne ne peut pas changer, il faudrait juste pouvoir choisir la taille.
ex: pour des chaussure : 40, 41,42,43..;
      Pour des vêtement : M, L, XL,XXL...
      

Je pense qu'il faudrait faire des catégories : Vêtement, chaussure, accessoire...

Vêtement (couleur jaune): L,M,XL...
Chaussure (Couleur verte): 40,41,42
accessoires (couleur bleu) : 2,4,5

Ou je peut laisser choisir le client en laissant la case non protéger, ça sera plus simple peut être ;)

Sinon rien a dire, le fichier est impecable

Merci encore

djkony19 · Answer

Re,

J'ai trouver ce code pour le bouton envoyer :

Sub envoyer(Message As String, Nom_Du_Fichier As String, Adresse As String)
    Dim o As Outlook.Application
    Set o = New Outlook.Application
    Dim Mail As Outlook.MailItem
    Set Mail = o.CreateItem(olMailItem)
    With Mail
        .Subject = "Subjet"
        .To = Adresse
        .HTMLBody = Message
        .Attachments.Add Nom_Du_Fichier
        '.Send
        .Display
    End With
      o.ActiveWindow

    Set Mail = Nothing
    Set o = Nothing
End Sub


Le probleme c'est qu'une fois avoir mis le code dans macros je ne sais pas du tout ce qui faut faire, puis ce code est valide pour outlook et pas pour hotmail, comment je fait pour qu'il soit valide sur hotmail?

Mike-31 · Answer

Re, 

Ce code utilise Outlook, mais traitons un problème à la fois, regarde si les tailles avec liste déroulante te conviennent

https://www.cjoint.com/?0bxqlDwSEfs 

Ou si tu préfères l'ancien avec saisie des tailles manuellement

https://www.cjoint.com/?0bxqmGHDqza

Mike-31 · Answer

Re,

Pour ajouter des lignes dans la feuille Listing, il faut commencer par la déprotéger (Onglet Révision/Oter la protection de la feuille)
pour la sécurité des données la reprotéger après (Onglet Révision/Protéger)

ensuite pour créer une liste déroulante, saisir les données en colonne (mettre en surbrillance la plage concernée/saisir le nom dans la barre d'adresse, zone juste au dessus de l'entête de colonne A et confirmer avec la toche Entrée)
Une fois la plage nommée, activer la cellule ou l'on souhaite avoir la liste de validation (onglet Données/validation des données dans Autoriser sélectionner Liste et dans Source =Nom de la plage nommée)

C'est un peu plus compliqué pour activer la liste par rapport à une saisie, il faut nommer la plage en fonction d'un l'affichage exemple pour Chaussure, j'ai nommé la plage Chaussure et dans la colonne taille lorsque j'ai créé la liste de validation, dans source j'ai saisie =INDIRECT(A29) de sorte que si en A29 je sélectionne Chaussure c'est la plage nommée Chaussure qui s'affichera pour sélectionner la taille dans le cas ou en A je sélectionnerai Casquette, c'est la liste nommée Casquette qui s'affichera
-
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

djkony19 · Answer

Re,

j'ai pas trés bien compris, Si par exemple je veux rajouter une paire de chaussure je fais cette manipulation, cela me donne un menu déroulant mais aprés quand je veux selectionner la taille ça ne veut rien m'afficher donc je sais pas si j'ai fais la bonne manip.

Je nomme la plage (chaussure 2), ensuite validation des données, liste / Source : Chaussure 2 ?

Et ensuite je touche à rien dans source de la case taille non ?
Merci

Mike-31 · Answer

Re,

Effectivement si dans chaque catégorie tu as des sous catégories comme pour Nike ça complique les choses, c'est possible mais avec du VBA et là c'est une autre histoire il faut avoir bien connaitre Excel et avoir quelques connaissances en VBA ce que je doute.

je vais réfléchir voir si je peux t'adapter un code simple sinon reste sur le fichier joint sur lequel j'ai allongé les listes de saisie jusqu'à la ligne 500 ce qui offre pas mal de possibilités. A ce sujet pour permettre un ordre croissant de la liste déroulante Feuille Commande avec TVA colonne A j'ai placé un filtre sur la feuille Listing.
Sur cette feuille pour saisir des données il est nécessaire de déprotéger la feuille, une fois les saisies terminées tu remarqueras sur la ligne 2 des boutons avec une flèche vers le bas, clic sur celui en A2 et sélectionne Tri croissant, les colonnes A, B, C, et D seront automatiquement classé chronologiquement. Ne pas oublier de reprotéger la feuille et éventuellement avec mot de passe ou la masquer afin d'éviter qu'une personne mette le chiisme.

https://www.cjoint.com/?0byvm5np5cP

djkony19 · Answer

Re,

T'embête pas mike, c'est parfait comme ça ;)

Je vais me débrouiller avec ce que j'ai là ça ira trés bien.

Je voulais savoir si tu connaissais un Tutorial pour le VBA car je persiste avec mon code du bouton envoyer. Ou si tu pense pouvoir m'expliquer en quelque mot ça serait super !

Merci

Mike-31 · Answer

Re,

Récupère ton fichier, fais un clic droit sur l'onglet de feuille 
Commande avec TVA
Clic sur Visualiser le code, dans la feuille tu verras un bout de code VBA et tu remarqueras cette ligne. entre les guillemets remplace les xxx par une adresse mail
Dest = "xxx.xxxxxx@xxxx.xx"

ensuite reviens sur la feuille, soit en sélectionnant le fichier dans la barre des tâches, soit en cliquant sur l'icône Excel sur la barre des menus en haut à droite.
Enregistre le fichier et teste l'envoi en un clic sur le bouton.

Tiens moi au courant.
Explique moi ton fonctionnement, si je comprends bien un client achète ou commande de la marchandise, tu fais un bon, jusque là pas de problème mais après ce bon est imprimé pour être archivé, puis envoyé au siège pour information !

https://www.cjoint.com/?0bCvaij6Bzm

djkony19 · Answer

Bonjour mike,

En fait le client remplis le bon de commande et l'envois. Ensuite moi je le reçoit je vérifie la commande et lui envois ensuite la facture avec le lien de paiement. Tout simplement.

Le clic ne marche pas, J'ai mis l'adresse nm-sportswear@live.fr à l'emplacement que tu m'as dis, j'enregistre, j'ouvre le fichier je remplis comme le client et quand je clic sur envoi bond e commande, il y a rien qui se passe.

j'aimerais rajouter une petite option, quand le client envois le bon de commande j'aimerais qu'il reçoive aussi un exemplaire sur son adresse mail, si c'est possible.

Merci de ta réponse

Le Pingou · Answer

Bonjour,
Merci de votre information.
Je n'ai pas la possibilité de tester un code en relation avec [Windows Live Hotmail].
Le lien ci après devrait vous apportez la solution :
https://codes-sources.commentcamarche.net/
Désolé de ne pouvoir en faire plus.

djkony19 · Answer

Re,

Merci beaucoup pour ce lien, j'ai trouver le code qu'il faut pour windows live hotmail mais je ne m'y connais pas du tout et je ne sais pas trop comment le placer et comment faire pour le mettre en place.

Merci de votre réponse


Private Sub cmdCopier_Click()
    If txtFeuilChoisi.Text <> "" Then
   Call CopierFeuilleExcel(getTemp & "test.xls")
  
   Else
   MsgBox ("Veuillez choisir la feuille a copier")
   End If
   If ((getTemp & "test.xls") = ActiveWorkbook.FullName) Then
   cmdCopier.Enabled = False
    cmdEnvoyer.Enabled = True
   Else
   cmdCopier.Enabled = True
   End If
End Sub

'Private classeurDeBase As Excel.Workbook
Private Sub cmdEnvoyer_Click()
ActiveWorkbook.SendMail Recipients:="diopbirama@gmail.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
                         ' URLto = "mailto:diopbirama@gmail.com" & "?subject=test d'envoi de fichier" & "&body=" & Msg
   ' ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Private Sub cmdExit_Click()
 Unload Me
End Sub

Private Sub combFeuilleSource_Change()
    txtFeuilChoisi.Text = combFeuilleSource.Text
End Sub

'c'est ici que je récupere la liste des feuilles
'du classeur actif (Activeworkbooks)
Private Sub UserForm_Activate()
    Dim feuil As Object
    For Each feuil In ActiveWorkbook.Sheets
        combFeuilleSource.AddItem (feuil.Name)
    Next feuil
    'classeurDeBase = ActiveWorkbook
    If ((getTemp & "test.xls") = ActiveWorkbook.FullName) Then
   cmdCopier.Enabled = False
    cmdEnvoyer.Enabled = True
   Else
   cmdCopier.Enabled = True
   End If
    
End Sub

'cette procedure permet de copier la feuille choisie
'vers le classeur cible du dossier Temp
Private Sub CopierFeuilleExcel(ClasseurCible As String)
      Sheets(txtFeuilChoisi.Text).Copy
      Application.DisplayAlerts = False
      ActiveWorkbook.SaveAs (ClasseurCible)
      Application.DisplayAlerts = True
End Sub

'cette fonction permet de récuper le répertoire
'temporaire de windows
Function getTemp() As String
        Dim chemin As Object
    Dim DossierTemp As String
    Set chemin = CreateObject("Scripting.FileSystemObject")
    DossierTemp = chemin.GetSpecialFolder(TemporaryFolder).ShortPath
    getTemp = DossierTemp & "\Temp\"
End Function

Cherche formule sur excel

24 réponses

Discussions similaires