Date | Auteur du sujet | Sujet | Extrait du message |
---|
13/02/2018 à 11:59 | LookAss | Commande automatisée | SUPER c'est exactement ce que je voulais t'es au top merci... |
13/02/2018 à 11:03 | LookAss | Commande automatisée | J'ai un petit soucis j'ai fais une sorte de commande automatisée dans la feuille "COMMANDE" de mon fichier Excel, les formules que j'ai mis dans cette commande vont chercher les données dans la feuille "BDD". dans la "feuil2" j'aurai aimé reporter les données de la commande que si il y est inscrit l... |
05/02/2018 à 09:22 | LookAss | Liste en cascade 5 niveaux | Merci t'es vraiment super c'est ce que je voulais... |
31/01/2018 à 16:39 | LookAss | Liste en cascade 5 niveaux | Ah oui c'est que j'avais marqué au mauvais endroit et comment je dois faire si je veux que les autres choix (rectangle, coloré, broyé...) s'affichent aussi dans les cases (F1,G1...) ? fichier joint à jour... |
31/01/2018 à 15:05 | LookAss | Liste en cascade 5 niveaux | Comment dois-je l'écrire ? Est-ce que c'est bon? Private Sub ComboBox1_click() Set d1 = CreateObject("Scripting.Dictionary") For Each c In f.Range("B2:B" & f.[B65000].End(xlUp).Row) If c <> "" Then d1(c.Value) = "" Next c Me.ComboBox2.List = d1.Keys Sheets("BD").Range("E1") = ComboBox1... |
31/01/2018 à 11:41 | LookAss | Liste en cascade 5 niveaux | Faut-il que je réécrive cette ligne : If Sheets("BD").Range("E1") = "ALGUES" Then Sheets("BD").Range("E1") = "ALG" End Sub pour chaque produit ... |
31/01/2018 à 11:40 | LookAss | Liste en cascade 5 niveaux | Ah merci je savais pas qu'on pouvais faire ça j'ai regardé un peu et j'ai une dernière question : Private Sub ComboBox1_click() Set d1 = CreateObject("Scripting.Dictionary") For Each c In f.Range("B2:B" & f.[B65000].End(xlUp).Row) If c <> "" Then d1(c.Value) = "" Next c Me.ComboBox2.Li... |
31/01/2018 à 10:46 | LookAss | Liste en cascade 5 niveaux | Re c'est exactement ce que je veux mais pourrai tu m'expliquer comment t'as fais stp ? merci... |
31/01/2018 à 08:44 | LookAss | Liste en cascade 5 niveaux | Salut matimatfr avec le code ça marche mais serait-il possible d'afficher un code en fonction de ce que j'ai choisis: par exemple si je chois "algues" ça m'affiche "ALG" dans la case E1 faut-il faire un formule SI ? merci pour ton aide... |
30/01/2018 à 10:05 | LookAss | Liste en cascade 5 niveaux | J'aimerai faire une liste déroulante en cascade de mes produits en plusieurs niveaux, je m'explique: lorsque je choisis le parfum d'une savonnette (voir en pièce jointe): j'aimerai qu'on me propose une nouvelle liste "coloré oui/non" puis qu'on me propose la liste "broyé oui/non" puis la liste "form... |
12/01/2018 à 16:53 | LookAss | Pop up automatique | J'ai supprimé la première ligne mais quand je fais afficher les macro il n'y est plus... |
12/01/2018 à 16:37 | LookAss | Pop up automatique | La premiere ligne "Sub PopUp ()" est surlignée en jaune et la deuxieme ligne "PopUp Macro" est écrite en verte... |
12/01/2018 à 16:34 | LookAss | Pop up automatique | Voici le code que j'ai rentré Sub PopUp() ' ' PopUp Macro ' Private Sub Worksheet_Change(ByVal Target As Range) If DateAdd("n", 5, [dernierChangement].Value) < Now Then [dernierChangement].Value = Now Dim v, v2 v = Worksheets("poids total").Cells(5, 1).Value v2 = Worksheets("poids... |
12/01/2018 à 16:24 | LookAss | Pop up automatique | Re j'ai remplacé le code par celui que tu viens de me donner mais quand je l'execute ça me marque "erreur de compilation end sub attendu"... |
12/01/2018 à 15:07 | LookAss | Pop up automatique | Slt Alex j'ai essayé ton programme mais lorsque je l'exécute c'est le logiciel qui attend pendant 5min et il m'est impossible de l'utiliser peut être que cela vient de la dernière écriture : Application.Wait (Now + TimeValue("0:05:0")) on peut pas faire en sorte que ce soit le macro qui attend 5 min... |
12/01/2018 à 11:22 | LookAss | Si commence par alors additioner | Merci t'es géniale ça marche parfaitement malgré mon explication assez vague... |
12/01/2018 à 10:35 | LookAss | Pop up automatique | Bonjour j'ai mon pop up suivant Dim v, v2 v = Worksheets("poids total").Cells(5, 1).Value v2 = Worksheets("poids-par-produit").Cells(6, 1).Value If v <> v2 Then MsgBox "!! ATTENTION PROBLEME DE TOTALISATION !!", vbInformation ' End Sub serait-il possible de rendre ce pop up automatique ? par e... |
12/01/2018 à 10:31 | LookAss | Si commence par alors additioner | Bonjour j'ai un petit problème j'ai mon classeur (feuille 1, 2) sur la feuille 1 j'ai mes produits codés sur la 1ere colonne ex: mon100, mon125, mon250, arg100, arg125, arg250... la 2eme colonne c'est la référence puis la 3eme c'est le poids de chaque produit sur ma feuille 2 colonne 1 j'ai le nom d... |
12/01/2018 à 09:38 | LookAss | Afficher Pop-up quand 2 cellules ne sont pas égales | Par exemple renvoyer le message toutes les 5 minutes si la valeur n'a pas été corrigé... |
12/01/2018 à 09:35 | LookAss | Afficher Pop-up quand 2 cellules ne sont pas égales | Merci ça marche et serait-il possible de faire cette manipulation automatiquement ? parce que je suis obligé d'exécuter le macro manuellement... |
12/01/2018 à 08:55 | LookAss | Afficher Pop-up quand 2 cellules ne sont pas égales | Je suis bloqué, j'ai un classeur avec 2 feuilles (feuille 1) (feuille2). je veux que si la cellule E1 (feuille1) soit égale à cellule F1 (feuille2) sinon afficher une pop up "attention problème" mais je n'arrives pas à faire un pop up quelqu'un peut m'aider ?... |