[Chnoirhomme]

je t’ai mis mon fichier pour que tu essaye.
Christian

[Chnoirhomme]

bebarth,
Comme le dit Merlin j’ai un problème de transcription.
Pour finir ce qui n’est pas lisible, si je sélectionne les valeur numériques 1, 2 et 3 et enfin la sélection de l’items rien ne se passe il faut que je resélectionne une valeur numérique.
Je suis désolé pour ce contretemps
Christian

[Chnoirhomme]

debarth, la condition que la ListSup2 est obligatoire pour avoir un résultat dans la nouvelle cellule Text10.x
je sélectionne l’items puis la 1er valeur déroulante, ensuite la seconde  et enfin la troisième tout vas super.
Par contre si je sélectionne la 1er valeur, puis la seconde la troisième et enfin l’items (ListSup2) rien ne se passe au niveau de la cellule Text10.x.
[font=verdana, arial, helvetica, sans-serif]Pour que le résultat apparaisse il faut que je resélectionne une quantité dans une des 3 listes numérique. [/font]
[font=verdana, arial, helvetica, sans-serif]je me permet de te remettre pour que tu essaye mon fichier[/font]

[font=verdana, arial, helvetica, sans-serif]Merci.[/font]
[font=verdana, arial, helvetica, sans-serif]BàT[/font]
[font=verdana, arial, helvetica, sans-serif]Christian[/font]

[Chnoirhomme]

Merlin,
Bonjour

Je remplis directement le ticket réponse et j’ai tous ses signe qui vienne automatiquement.
BàT.
Christian Noirhomme

[Chnoirhomme]

bebarth, bonjour
je rencontre avec ton exemple quelque soucis, en fait je me suis peux être mal exprimé.
Le commun des mortels sélectionnerais d’abord “Select items” puis les 3 autres sélection numérique et comme cal tous marche parfaitement.
Mais il aura des personne qui commencerons par les sélection numérique et qui finirons par la select items et c’est la que cela bloque aucun résultat ne remplit la case Adhoc.
Pour le fichier que tu n’a envoyé en exemple si on met 0 comme valeur par défaut on peux avoir un résultat sans l’items a sélectionner.
Merci pour ton aide.
BàT
Christian

[Chnoirhomme]

bebarth,
Bonsoir,

j’ai en partie compris ton codage et encore merci, j’ai essayé d’adapter le code avec une liste popup cela marche bien sauf si je select la liste popup en dernier l’enregistrement ne se fait pas.
J’ai essayé toutes sortes de combinaisons de codage mais rien ne marche, peut tu m’aider.
En avance merci
Bàt
Christian

[Chnoirhomme]

debarth,

Wafty je tombe sur mon.. magnifique.
Demain je vais tous décoder encore merci vous faite un travail super :joker:

BàT

Christian

[Chnoirhomme]

Voila j’ai trouvé quelques choses mais je ne parvient pas encore a allez a la ligne ou une autre astuce.

BàV

Christian

[Chnoirhomme]

bebarth, le champ mon fais doublon avec la sélection que l’on fait (doublon) donc nous regagnerions de la place.
Super merci pour ton aide.
je vais regarder pour un codage pour déplacer vers la droite => pour le bas =>: var distance=15*72/25.4; // Pour dupliquer à 15 mm vers le bas

Bonne journée.

[Chnoirhomme]

Bonjour, Comme je te le montrait dans l’exemple précédent, peut-on déplacer le résultat d’abord vers la gauche et puis faire une ligne en dessous.
Quitte a avoir quand le 10.4 est créer et remplit une ligne qui recommence en dessous avec un résultat qui est caché comme tu l’a fait dans ton exemple

Merci.

BàT

[Chnoirhomme]

Bebarth,

Et le top pour la duplication serais comme ceci!


Merci.

BàT

[Chnoirhomme]

Merci

Il y des jours magnifique et en plus qu’il fait beau une aide vous arrive, merci.
Comme tu le disais une liste box n’est pas vraiment ce qu’il faut je vais essayer le même exercice avec une combox en m’inspirant de ton exemple.
Juste encore une aide et si ma feuille est pleine et que je doivent passer a la page suivant tout en sachant que je dois avoir un décalage de la nouvelle page avec les suivante.

BàT

Christian

[Chnoirhomme]

Bonjour bebarth, je n’ai pas pu trouvez de solution a mon problème et je revient vers toi, pourrais tu m’aider.
Merci

[Chnoirhomme]

Je vais continuer, et si je ne trouve pas merci en avance pour ton aide.

bonne soirée.

BàT.

Christian

[Chnoirhomme]

Bonjour bebarth,

je me suis battu avec ton fichier Champs image-BB tous ce weekend évidement catastrophe et aucun résultat, crois tu que tu puisse m’aider car je ne m’en sort pas, j’ai réfléchi sur ta proposition elle est bien plus innovatrice que ce que j’avais imaginé.
Merci.

BàT

Christian

[Chnoirhomme]

Oui ou au plus simple cela duplique les 5 cellules ce qui me permettrais d’avoir une mise en page plus correcte car il faudrait réaliser un saut le ligne.

Merci

[Chnoirhomme]

Merlin,

L’exemple de bebarth est en fait ce que je voudrais faire avec une listbox ou comme tu me le conseille pour une combox.
une fois que j’aurais compris le codage je l’adapterais pour les textbox.
Suivant les sélections le résultat est affiché dans une textbox par concaténation.
Et quand celle-ci n’est plus vide je dois recréer une série de cellule pour une nouvelle saisie.

Merci

[Chnoirhomme]

En fait voici un exemple pour champ image,

Merci

[Chnoirhomme]

Bonsoir,

Voila j’ai une List box  quand elle est activée et que la cellule de concaténation est pleine je voudrais soit recréer une série de cellules pour le calcul ou créer automatiquement une nouvelle textbox pour le résultat.

Merci
Bàv

[Chnoirhomme]

Merci :soleil:

[Chnoirhomme]

Extra, cela marche super sur PC mais malheureusement cela ne marche pas sur les smartphones.
Je crois qu’il n’y a pas aujourd’hui de solution pour smartphones, si vous connaissiez une parade je serais l’homme le plus heureux.

Je garde néanmoins l’idée pour certains documents.

Encore merci.

Bàv

[Chnoirhomme]

Bonjour, voici un exemple donc quand je clique sur le bouton OP513 la case devient verte (surlignée car le texte doit être toujours lisible) et la valeur enregistrée doit être exemple 1 ou alors une case a cocher OP511 qui aurait la même fonction sauf que la coche ne devrait pas être visible.

J’ai essayé un codage mais ça ne va pas.

Merci.

Bàv

[Chnoirhomme]

Merci, mais en fait pour chaque bouton ou case à cocher je voudrais un surlignement ou un encadrement qui correspondrait à la confirmation que la tache est finie et conforme.
1 bouton 1 surlignement

Comme si le bouton transparent devant le texte une fois activé surlignait le texte. Il est à noter aussi que la valeur de la case, si activée ou non, doit me donner une valeur avec laquelle un contrôle global est possible.

Je suis vraiment positivement impressionné par tout ce que vous faites.

Encore merci

Bàv

[Chnoirhomme]

En fait je voudrais surligner plusieurs parties du texte déjà existant dans mon PDF.
L’idée est d’avoir un bouton au-dessus d’un texte, quand on valide l’opération on appuie sur le bouton, ou la case à cocher, et le surlignage apparait.
Je suis dans une procédure d’installation de machine, et le responsable avec son smartphone valide les opérations.
Auparavant j’ai créé des cases à cocher mais c’est trop petit, alors pourquoi ne pas avoir toutes l’instruction comme case à cocher (bouton transparent ou autre) ?

Merci pour votre aide.

Meilleurs vœux à la communauté.

Bàv

[Chnoirhomme]

Merci Merlin pour le support,
J’ai trouvé et adapté un code qui a l’air de marcher.

Une petite contribution pour les autres, j’ai déjà eu énormément du site, merci :

Les pages doivent être incriminées dans le sens opposé la dernière en premier et la première en dernier.
Bonne soirée

Code:

Sub DeletePDFPages()
Dim strSourceFullPath As String, strDestinationFullPath As String
Dim iStartPage As Long, iNumPages As Long
Dim PDDocSource As Object, PDDocTarget As Object
Dim Cell As Range, Cell1 As Range, Rng As Range
Application.ScreenUpdating = False
    Set PDDocSource = CreateObject(“AcroExch.PDDoc”)
    Set PDDocTarget = CreateObject(“AcroExch.PDDoc”)

    Set Rng = Range(“a1”, ActiveSheet.Range(“a” & ActiveSheet.Rows.Count).End(xlUp)) ‘ Selection
 
    strSourceFullPath = Application.GetOpenFilename(“PDF Files (*.pdf), *.pdf”)
    strDestinationFullPath = StripFilename(strSourceFullPath) & InputBox(“Output FileName”) & “.pdf”
     
    ‘ Create a new PDDoc
  If PDDocTarget.Create <> True Then
        MsgBox “Unable to create a new PDF”
        Exit Sub
    End If
   
        ‘ Open the PDF source file (the file we are going to take pages from)
    If PDDocSource.Open(strSourceFullPath) <> True Then
        MsgBox “Unable to open the source PDF”
        Exit Sub
    End If
       
    For Each Cell In Rng

    ‘ Set the page range you wish to delete
    ‘ Don’t forget that this is zero based
    iStartPage = Cell – 1
 
    ‘ Set the number of pages you wish to delete
    iNumPages = 0
     
        ‘ Insert the pages from the source PDF file to the target PDF
  If PDDocSource.DeletePages(iStartPage, iStartPage) <> True Then
      MsgBox “Unable to Delete”
      Exit Sub
  End If
     
 

    Next Cell
   
        ‘ Save the new file
    If PDDocSource.Save(&H1, strDestinationFullPath) <> True Then
        MsgBox “Unable to save the pdf”
        Exit Sub
    End If
   
    ‘Close the PDF files
    PDDocSource.Close
    PDDocTarget.Close
   
    ‘ Clean up
    Set PDDocSource = Nothing
    Set PDDocTarget = Nothing
    Application.ScreenUpdating = True
  MsgBox “File Saved to ” & strDestinationFullPath
End Sub
Function StripFilename(sPathFile As String) As String
‘given a full path and file, strip the filename off the end and return the path
Dim filesystem As Object

Set filesystem = CreateObject(“Scripting.FilesystemObject”)

StripFilename = filesystem.GetParentFolderName(sPathFile) & “”

Exit Function

End Function

[Auteur]

Réponses