Toutes mes réponses sur les forums
-
Réponses
-
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
Christiandebarth, 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]Merlin,
BonjourJe remplis directement le ticket réponse et j’ai tous ses signe qui vienne automatiquement.
BàT.
Christian Noirhommebebarth, 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
Christianbebarth,
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
Christiandebarth,
Wafty je tombe sur mon.. magnifique.
Demain je vais tous décoder encore merci vous faite un travail super :joker:BàT
Christian
Voila j’ai trouvé quelques choses mais je ne parvient pas encore a allez a la ligne ou une autre astuce.
BàV
Christian
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 basBonne journée.
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 exempleMerci.
BàT
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
Bonjour bebarth, je n’ai pas pu trouvez de solution a mon problème et je revient vers toi, pourrais tu m’aider.
MerciJe vais continuer, et si je ne trouve pas merci en avance pour ton aide.
bonne soirée.
BàT.
Christian
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
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
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
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àvExtra, 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
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
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 surlignementComme 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
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
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éeCode: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 ObjectSet filesystem = CreateObject(“Scripting.FilesystemObject”)
StripFilename = filesystem.GetParentFolderName(sPathFile) & “”
Exit Function
End Function
Oui, je sais et c’est pour cela, comme pour le publipostage de valeur valeur via Excel, je voulais savoir si je pouvais supprimer des page d’un PDF.
Cela pourrais aussi me convenir par un code JAVASCRIT qui suivant la valeur d’une cellule supprimerais les pages X, XY, ou encore XYZ ou plus encore.Merci pour votre aide.
Bonjour,
J’ai vu dans cette conversation qu’il existait un code pour enlever des pages d’un formulaire PDF via un codage VBA Excel.
Merci pour votre aide
J’ai réalisé un formulaire qui est utilisable a 100 % sur mon Téléphone sauf pour les photos.
Faudra attendre une nouvelle version Adobe Reader pour les photos.Merci pour l’aide
Bonjour, ce problème est ma hantise : peut-on insérer des photos depuis une Tablette ou Smartphone Android ou Appel
J’essaye depuis des semaines et je n’y parviens pas.Merci
Voila, j’ai créé une procédure d’installation qui est customisée par rapport à l’achat du client. Pour cela je sélectionne des choix dans un fichier Excel, ensuite je transfère les données dans un master brut PDF via un codage VBA. le problème est que le fichier que j’ai créé peux être ouvert avec un Acrobat Pro ou DC. La façon pour moi de le protéger est de le sauver en PDF Reader Extended.
Voila, au départ d’Excel avec une VBA je transfert des données vers un fichier PDF et des champs de texte, je ne comprend pas pourquoi mais la cellule en Excel a pour valeur de XX m³/h mais je retrouve seulement XX dans mon champ de texte.
Merci, pour l’info donc comme je te comprend il faut faire une sauvegarde manuelle pour enregistrer le PDF en Reader Extended.
Bonne journée
Merci Merlin, mais j’aurais aimé savoir si au départ d’un codage d’Excel il avais moyen de le sauver directement en PDF Reader Extended sans réouvrir le PDF et suivre la procédure décrite dans le tuto dont tu ma donné le lien.
Bien à toi
Merci
Cela marche extra et comme j’ai parfois + de 10 NoConformity je dois coder:
else if
else if (event.value == “Not yet completed” || event.value.indexOf(“NoConformity”)>-1 || event.value.indexOf(“NoConformity”)>-2)
{
event.target.textColor = color.red;
}Encore merci et bonne soirée.
Je reviendrais probablement vers vous car …..je suis vraiment encore nul partChristian
Bonjour,
En fait j’ai ce codage
if (event.value == “Not yet started !”) {
event.target.textColor = color.blue;}
else if (event.value == “Not yet completed”){
event.target.textColor = color.red;
}
else if (event.value == “Completed”){
event.target.textColor = color.green;
}Mais je peux aussi avoir dans la casse un texte du type 4 NoConformity ou 5 Noconformity et dans le cas de se type de message je voudrais accentué ma réponse en ayant les caractère rouge.
en excel on pourrais écrire => if range (“X12”) Like “*Noconformity” Then ‘ => range(“X12”).Font.ColorIndex = 10
je suis désolé pour ma réponse tardiveJe suis formateur en mécanique et je travail de la journée.
Merci et bien à vous
