Résultats de la recherche

  1. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Desole c'est moi j''ai envoye un mauvais dossier !!! rivate Sub CL_Résultat(Lignes() As Long) Dim Te(), Le&, Ts(), Ls&, C& TLgn = Lignes Te = CL.PlgTablo.Resize(, 19).Value ReDim Ts(0 To UBound(TLgn) - 1, 0 To 7) For Ls = 0 To UBound(Ts, 1) Le =...
  2. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Je remet en piece joint l'exel est le code pour voir si vous trouvez l'erreur qui se produit ... Merci, Cordialement,
  3. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Bonjour, Merci pour votre aide ... Je vais essayer .. Du coup on peut reprendre le meme schema pour les resultats a affiché sur la feuille exel si je ne veux pas les 15 premier valeurs de la colonne mais plutot choisir comme on le fait pour la...
  4. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation L'erreur bloque si le code Ts(Ls, C) = Te(Le, Choose(C + 1, 2, 3, 4, 15, 17, 18, 19)) ou il met toujours erreur d'excécution 94
  5. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation J'ai mis 8 car ca fait 8 renseignement non ? 1, 2, 3, 4, 15, 17, 18, 19
  6. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Ah oui merci ... Mais l'erreur reste toujours ... Ts(Ls, C) = Te(Le, Choose(C + 1, 2, 3, 4, 15, 17, 18, 19)): "Erreur d'execution "94" utilisation incorrecte de Null"
  7. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Donc mon code etant comme le suivant : Private Sub CL_Résultat(Lignes() As Long) Dim Te(), Le&, Ts(), Ls&, C& TLgn = Lignes Te = CL.PlgTablo.Resize(, 20).Value ReDim Ts(0 To UBound(TLgn) - 1, 0 To 19) For Ls = 0 To UBound(Ts, 1) Le = Lignes(Ls +...
  8. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Bonjour, Quand j'applique votre code Vb pour ma lstselect il me met Erreur d'execution "94" utilisation incorrecte de Null
  9. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Oui il me dit ca exactement le code que vous avez ecrit. Je verrais ca plutard alors ... Car je n'avance pas du tout sinon ... MErci en tout cas, Pouvez vous m'eclaircir au niveau de la lsitbox ce que je dois changer au code si je veut fiare...
  10. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation En rajoutatn la formule il me met une Erreur 5 "argument ou appel de rpocedure incorrect"
  11. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Il faut le mettre dans un module ordinaire et pas dans le Thisworkbook ? Car la on precise Armstrong optima mais si on rendre un autre resultat ca peut etre un armstrong perla ou encore quand je vais creerr un deuxieme userform pour un autre base de donne je...
  12. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Bonjour, Avant tout Merci de votre aide, Pour le nombre des colonne par la suite j'aimerai la reduire est mettre certaine colonne precise mais bon comme vous m'avez dit tout au debut question par question. Pour le cheminement du fichier c'est...
  13. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation "..\Fiche technique pour Variante\Faux plafond\Fibre\Armstrong Optima.pdf" et pour pas laisse tout ce nom je nomme le nom par fiche technique. Pourquoi il faut que ca soit dans une colnne masqué ? si il faut qu'elle ne soit pas dans la meme colonne cela...
  14. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Quand je dis un texte court c'est que par exemple sur ma base de donnée sur la colonne a je veux mettre un ficher PdF et au lieu d'afficher tout le nom du pacours du dossier je mets jsute "Fiche technique" dans texte a afficher et je voudrais juste que quand...
  15. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Bonjour, Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub ' À adapter On Error Resume Next ThisWorkbook.FollowHyperlink "File:" & Target.EntireRow.Columns("A") End Sub...
  16. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation CA me derange pas que ca arrive par mail mais cela ne marceh pas ... Puis je quand meme avoir le code pour le lien hypertexte pour avoir au moins cette solution qui marche si vous plait ? MErci Cordialement,
  17. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Je sais pas pourquoi mais les codes que vous m'avez passé ne marche pas ... Aucun lien hypertexte ne se met...
  18. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Bonjour, Je n'ai aps encore essayer mais jsute pour vous dire que j'ai bien range les fichier pdf dans tes dossier et sous dossier qui ne bougeront plus donc le lien ne changera pas j'ia deja essayer en enregistrant le travail sur une cle usb et de...
  19. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Bonjour Dranreb, J'ai essaye donc j'ai ecrit le code suivant : Sub TestFolH() ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path ThisWorkbook.FollowHyperlink "File:" & Dir("Fiche technique*") End Sub Car le lien ou doit se trouve le lien...
  20. C

    Userform ... Boutton validation

    Re : Userform ... Boutton validation Oui j'ai compris merci =). J'ai juste que le code ne marche pas je sais pas peut etre que le lien ne suis pas ou que le code ne fonctionne pas correctement.
Haut Bas