Copier et Coller des valeurs sur une nouvelle feuil Excel

Bonjour

Alors la il y a une chose qui ne me plait pas, c'est que tu dises qu'il y a des bugs quand c'est faux

Depuis le début j'ai marqué dans le code une indication qu'il n'y avait pas d'espace en le nombre et m pour les longueurs, tu n'en tiens pas compte c'est ton problème

Ensuite tu veux une certaine longueur dans le TextBox pour obtenir le bouton Valider : Ce n'est pas un bug

Forcer le remplissage des textbox en fonction du choix fait : ce n'est pas un bug

Tu ne veux pas les infos copiées si le fichier n'existe pas : C'est toi qui a demandé le contraire

Pour ce cas, je me suis em...dé agacé parce qu'en faisant comme cela j'avais des infos qui disparaissaient, et maintenant ce n'est plus bon

J'ai l'impression de travailler pour rien

Désolé Benzai j'ai employé le mauvais mot, ce n'est pas un bug tu as totalement raison.

"Tu ne veux pas les infos copiées si le fichier n'existe pas ":

Merci pour toute l'aide que tu m'apportes et je m'excuse encore concernant le mot bug.

Samm

Bonjour

Ah il fallait que cela sorte

revenons à nos moutons

A tester

Merci Banzai64 ça fonctionne comme sur des roulettes.

tu as fait encore plus que se que j'attendais surtout avec les champs de text qui disparaissent c'est excellent, encore merci.

Je voudrais limiter l’accès a ce fichier avec un mot de passe et donner l'accès qu'au personne que j'ai envie.

A chaque fois qu'une personne aura accès au fichier et crée une fiche modèle, alors son nom figurera dans la base de donnée.

Pouvoir créer des mots de passe pour administrateur et utilisateur.

Je pense à quelque chose dans ce genre.

Mais je voudrais avoir ton avis, toi qui à l'expérience. est ce que c'est compliqué à faire ?

est ce que c'est lourd en programmation ?

est ce que c'est faisable ?

merci d'avance pour tes réponses

Bonjour

Le plus simple

Tu protèges ton classeur avec un mot de passe

Tu le distribues à qui tu veux avec le mot de passe

Dans le fichier tu rajoutes

     .Range("L" & Ligne).Value = Me.txt_MarqueCoupleur349E
    Me.txt_MarqueCoupleur349E = ""

   .Range("M" & Ligne) = Application.UserName
  End With

Comme cela tu sauras qui s'en sert

Merci Banzai64,

encore quelques questions

1) Tu modifie quelle partie du code pour copier le tableau avec les formules ou les valeurs ?

Parce que ça me remarque #VALEUR# quand je copie ton code sur un autre Userform.

2) Est ce que tu pourrais m'expliquer cette macro, à quoi sert le UBound(NomCtrl) ?

Sub ControlesVisibles()
Dim I As Integer

  For I = 0 To UBound(NomCtrl)
    Me.Controls(NomCtrl(I)).Visible = True
  Next I

End Sub

Merci d'avance pour tes explications

Amicalement,

Samm

Bonsoir

Pour les valeurs

.Range("A14").PasteSpecial Paste:=xlPasteValues

Pour les formules un simple Copy devrait faire l'affaire

UBound(NomCtrl)

Compte le nombre d'éléments dans le tableau NomCtrl

Merci,

Concernant le point 1), j'ai bien ce code

.Range("A14").PasteSpecial Paste:=xlPasteValues

Mais quand ça crée la fiche modèle j'ai #VALEUR# d'écrit dans le tableau copié.

Bonsoir

Si tu des #VALEUR# c'est que tu as des #VALEUR# à l'origine, vérifies la source de la copie

Bonsoir,

J'ai vérifié les fichier de copiemais je vois pas d'où vient le problème

Je t'ai mis le fichier en pièce jointe

est ce que tu peux faire le test pour voir si ça fait pareil chez toi stp ?

ci joint les fichier où je copie les tableaux

Bonjour

Remplaces la partie correspondante par celle-ci

    ' Copie des renseignements utiles : Poids outil et Poids coupleur
    With Wb.Sheets("Bras de " & Me.Cmbox_bras_349E)
      .Range("P1") = Val(Replace(Me.txt_PoidsOutil349E, ",", "."))
      .Range("P2") = Val(Replace(Me.txt_poidsCoupleur349E, ",", "."))
      .Range("A14:N21").Copy
    End With

Bonjour Banzai64,

Merci beaucoup, c'était bien ça qu'il fallait changer.

Amicalement,

Samm

Bonjour Banzai64,

Je souhaiterais apporter une modification à ce fameux fihcier.

J'ai mis en pièces jointe deux fichiers , les explications sont dans le fichier Samm_PDF_V1

Merci d'avance de ton aide.

Amiaclement,

Samm

Bonjour

Avec un code (pas de moi)

Merci Banzai64,

Mais j'ai oublié de préciser que j'ai pas PDFCreator mais eXPert PDF

Dans le code que tu m'as envoyé j'ai modifié tout les "PDFCreator" par "eXPert PDF" mais ça ne fonctionne pas.

Bonjour

samm a écrit :

Mais j'ai oublié de préciser que j'ai pas PDFCreator mais eXPert PDF

Récupères le (je pense qu'il est gratuit) et installes le

merci pour l'info, je vais essayer ça.

Bonjour Benzai64,

Comment vas tu ?

Je voudrais apporter une petite amélioration à cette application.

Je m'adresse à toi parce que tu connais très bien le sujet.

J'ai mis les explications dans le fichier ci joint.

si ce n'est pas claire n'hésite pas à me demander plus d'informations

Merci d'avance pour ton aide

Au plaisir de te lire

Samm

J'essai de te joindre le fichier mais il me dit qu'il est trop gros c'est bizare pourtant je t'ai envoyé le même fichier avec la même taille y a deux mois environ.

est ce que tu peux traviller sur l'ancien fichier stp

clique sur le bouton 349E pour avoir la derniere version de l'UserForm

Samm

Amicalement

Bonjour

Fait avec la dernière version que je t'ai envoyé

Bonjour Benzai64,

Merci pour la petite amélioration apportée.

ça fonctionne très bien.

Bonne journée.