Contenu récent par Cap_ou_pas_cap

  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...
Haut Bas