Résultats de la recherche

  1. F

    incrementation + boucle loop

    Slt a vous, Merci d'avoir pris le temps de répondre. @ Patrice, Merci pour la diff. @Lone-wolf Ok pour le code mais je vois pas pk tu insère un timer. C'est pas un compteur temps, mais au clic sur 'palette suivante', qu'on passe de la palette 2 A 3 jusqu'à 'nbre de palette'. Aussi, je...
  2. F

    incrementation + boucle loop

    bonjour le forum, petite question bête à laquelle je n'ai pas réussi a adapter de solution: je voudrais faire une incrémentation dans un boucle while loop, être tourner l'info dans une textbox. pour explication, il s'agit d'une compteur de palette. si j'ai 5 paletttes a expedier, je fais 5 BL...
  3. F

    probleme avec l'apercu avant impression

    super! merci bcp.
  4. F

    probleme avec l'apercu avant impression

    bonjour à tous, j'ai fais un UF pour renseigner 2 onglets: - un onglet récapitulatif (2018) - un onglet à imprimer (FOR007) quand l'apercu se lance, il me bloque tout. Je ne peux plus cliquer nul part. Obligé de le fermer de force. la commande de l'aperçu est desactivée par ' ca doit pas être...
  5. F

    XL 2010 reglage userform

    salut, nouveau blocage. j'ai un 'while/went' qui fonctionne tres bien. par contre, je ne trouve pas comment gerer le fait de ne rien trouver. je boucle en remontant ds ma colonne jusqu'à trouver la première cellule avec un valeur. si elle trouve la valeur, j’insère un nouvelle ligne dessous...
  6. F

    XL 2010 reglage userform

    parfait. Merci!
  7. F

    XL 2010 reglage userform

    salut à tous, vgendron si tu suis tjrs ce fil, je bloque sur un truc idiot je pense... dans mon UF planning, j'ai rajouté une option 'poubelle' pour supprimer une ligne de mon tableau: - je rentre mon n° de machine, je clique sur la poubelle - le click fait apparaître le module poubelle - je...
  8. F

    RESOLU: formule + VBA avec date variable

    bonjour, et merci d'avoir planché dessus. j'ai réussi (pas tout seul) en formule. pour ceux que cela peut intéresser, voici ce que ça donne. en tout cas merci!
  9. F

    RESOLU: formule + VBA avec date variable

    re, j'avais bien compris que le code est différent. pour ce qui est de la présentation, je retombe sur la présentation initiale. tu l'as modifiée, sans soute par rapport au codage, la présentation du 1er fichier est la bonne. je vais trifouiller un peu voir ce que je peux faire. en tout cas merci.
  10. F

    RESOLU: formule + VBA avec date variable

    slt. merci bcp! je ne vois pas la diff entre recap et recap1. le résultat est le même... est-il possible de laisser les E,R,C,S en tête de colonne (sans les effacer), et construire le tableau dessous. également, si le résultat est 0 pour un modèle de pompe, le mettre quand meme. c'est pour ça...
  11. F

    RESOLU: formule + VBA avec date variable

    bonjour, j'ai enlevé " b(1, i) = tbl(L, 3)" qui correspond au N°serie. j'en ai pas l'utilité. est-il possible d'additionner le nombre de modèle plutôt que de faire des lignes séparées? par ex, au lieu de: pompa A: 1 pompe A: 1 faire: pompe A: 2 pompe B: 4 l'objectif le plus lisible étant...
  12. F

    RESOLU: formule + VBA avec date variable

    bonjour, merci pour ce premier jet. j'avoue que j'y pompe rien!! "MaDate = Feuil1.Range("A2"): Feuil1.Range("C1:P10000").ClearContents"?? Public Sub Recap() Dim MaDate As Date, Ws As Worksheet, L As Long, j As Long, C As Long, b(), i As Long, x As Boolean Dim a() ' definition des...
  13. F

    RESOLU: formule + VBA avec date variable

    bonjour, je vais essayer d’être plus précis: sur la feuille 2018 en ligne 6 les jours de l'année. dans la colonne du jour (08/01/2018), je vais avoir pour chaque ligne(matériel) un état (C,S,E,ou R). du coup, dans ma pages recap, dans le premier tableau (tableau à date du jour), j'aimerai...
  14. F

    RESOLU: formule + VBA avec date variable

    bonjour a tous et bonne année! je veux faire une page de recap, mais mes formules sont trop complexe pour moi. je pense qu'il faut melanger formule et VBA voila mon pb: sur mon recap, j'ai 2 tableaux: 1 qui depend de la date du jour (A2). je veux faire une synthèse de l’état de mon matériel...
  15. F

    XL 2010 pages recap

    slt, j'ai réussi! actualiser les commentaires en "B", et la date échantillonnage sur chaque feuille supérieur à 2017. mon fichier est BON! je vais essayer (en revenant mercredi) d' agrandir les commentaires pour plus de lisibilité, et travailler sur les formules de recap. Merci pour tt, et...
  16. F

    XL 2010 pages recap

    slt, j'ai tout testé, j'ai mis le test de date pour E et R, c'est ok. il faudrait juste mettre à jour la date d’étalonnage et les commentaires sur les feuilles > 2017. j'ai essayé en appelant feuille a feuille, et copie colle, / avec 'for each' mais j'y arrive pas. j'ai aussi essayé la MAJ des...
  17. F

    XL 2010 pages recap

    Slt, devis + motif+ fin Non: si l'appareil doit être réparé, on clôture l’étalonnage, on ouvre une réparation, qui sera fermée, puis l'appareil sera renvoyé en étalonnage. ce sont 2 services distincts, avec des délais différents. chaque opération est indépendante. si tout estaccessible =>...
  18. F

    XL 2010 pages recap

    allez, 2 choses sur le sujets de E et R: - TBR4 doit être libre même si il est rempli (en mode réparation bien sur, mais je trouve pas ou le placer) - du coup, quelle utilité de recharger a chaque fois qu'on change E et R puisqu'on charge les 2 a chaque fois...? aussi, obliger de cliquer 2 fois...
  19. F

    XL 2010 pages recap

    on peut rajouter le controle da date de R3 ici?? Private Sub TextBoxR3_Change() 'pour controler la saisie d'une date au format dd/mm/yyyy Dim valeur As Byte valeur = Len(TextBoxR3) If valeur = 2 Or valeur = 5 Then TextBoxR3 = TextBoxR3 & "/" 'afficher "/" aprés la saisie des 2 premiers...
  20. F

    XL 2010 pages recap

    j'ai séparé E et R Private Sub OptionButton_reparation_Change() 'separation des operations E et R obligatoire For i = 1 To 4 Me.Controls("TextBoxR" & i).Enabled = OptionButton_reparation And Me.Controls("TextBoxR" & i) = "" Next i TextBoxR4.Enabled = True For i = 1 To 3...