A voir également:
- VBA sélection d'une piece
- Pièce d'identité - Accueil - Services publics
- Mesurer une pièce avec son téléphone - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- One piece kai streaming ✓ - Forum Cinéma / Télé
- One piece kai vf - Forum Cinéma / Télé
3 réponses
Bonjour
Où est le fichier ?
Le poster sur mon partage.fr, faire créer un lien, le copier et revenir le coller ici
Cdlmnt
Via
Où est le fichier ?
Le poster sur mon partage.fr, faire créer un lien, le copier et revenir le coller ici
Cdlmnt
Via
J'espère que ça ira comme ça :
https://mon-partage.fr/f/XtL64JI3/
Merci pour les conseils et j'espère que votre réponse pourra maider. J'ai déjà bien avance dans le travail il faut juste que je le decide... Et que ça marche parfaitement
https://mon-partage.fr/f/XtL64JI3/
Merci pour les conseils et j'espère que votre réponse pourra maider. J'ai déjà bien avance dans le travail il faut juste que je le decide... Et que ça marche parfaitement
Re,
Apparement tes macros et ton userform fonctionne bien
Je ne comprends pas bien ce que tu voudrais de plus
Reposes ta question sur le forum en donnant plus de précisions, c'est très technique et pas forcément compréhensible pour un néophyte !
Cdlmnt
Via
Apparement tes macros et ton userform fonctionne bien
Je ne comprends pas bien ce que tu voudrais de plus
Reposes ta question sur le forum en donnant plus de précisions, c'est très technique et pas forcément compréhensible pour un néophyte !
Cdlmnt
Via
question 1 : pourquoi quand j'utilise la fonction autofilter mon fichier passe de 400 a 13000 ko
question 2 : concernant le fichier envoyé je voudrais afficher le résultat sur la feuil1 en ligne !! en dessous des noms des colonnes qui s'affiche en rouge
question 3 : la ou le programme marche pas ===== explication : lorsqu'on fait un choix dans la userform, il y a souvent plusieurs réponse correspondant à ces choix et la ca marche pas. je voudrais afficher les lignes correspondantes au choix effectué dans la userform.
question 2 : concernant le fichier envoyé je voudrais afficher le résultat sur la feuil1 en ligne !! en dessous des noms des colonnes qui s'affiche en rouge
question 3 : la ou le programme marche pas ===== explication : lorsqu'on fait un choix dans la userform, il y a souvent plusieurs réponse correspondant à ces choix et la ca marche pas. je voudrais afficher les lignes correspondantes au choix effectué dans la userform.
Je n'ai pas de réponse à la question 1
Pour la 2/3 dans la macro tu fais varier la ligne de retour, la colonne étant toujours 1
While ResultDesignation(j) <> "" 'And ResultReference(j) <> ""
.Cells(i + 5, 1) = ResultDesignation(j)
donc les résultats sont présentés en colonne
C'est l'inverse qu'il faut faire pour présenter en ligne et sur plusieurs lignessoit quelque chose comme :
.Cells(j + 5, 1 + i) = ResultDesignation(j)
A tester
Cdlmnt
Via
Pour la 2/3 dans la macro tu fais varier la ligne de retour, la colonne étant toujours 1
While ResultDesignation(j) <> "" 'And ResultReference(j) <> ""
.Cells(i + 5, 1) = ResultDesignation(j)
donc les résultats sont présentés en colonne
C'est l'inverse qu'il faut faire pour présenter en ligne et sur plusieurs lignessoit quelque chose comme :
.Cells(j + 5, 1 + i) = ResultDesignation(j)
A tester
Cdlmnt
Via
With Worksheets(NomFeuille)
While .Cells(l, c) <> ""
flag = True 'D'abord on suppose que tous les CAT(i) sont à VRAI
For i = 1 To 20
CAT(i) = (.Cells(l, c + i).Text = CAT_NOM(i)) Or CAT_NOM(i) = ""
If Not CAT(i) Then flag = False 'si CAT(i) est faux : flag devient false
Next i
If flag = False Then 'si flag est vrai, tous les CAT(i) sont à VRAI
ResultReference(j) = .Cells(l, c)
ResultFournisseur(j) = .Cells(l, c - 1)
ResultDesignation(j) = .Cells(l, c)
j = j + 1
La juste au dessus il faudrait qu'il affiche que les résultats qui correspond au flag = false quand on regarde sa devrait remplir le tableau avec une seule reference si on choisie un moteur de type LSES90 par exemple.... quand le flag passe a faux il mémorise pas le contenu de la combo box ?
End If
l = l + 1
Wend
End With
While .Cells(l, c) <> ""
flag = True 'D'abord on suppose que tous les CAT(i) sont à VRAI
For i = 1 To 20
CAT(i) = (.Cells(l, c + i).Text = CAT_NOM(i)) Or CAT_NOM(i) = ""
If Not CAT(i) Then flag = False 'si CAT(i) est faux : flag devient false
Next i
If flag = False Then 'si flag est vrai, tous les CAT(i) sont à VRAI
ResultReference(j) = .Cells(l, c)
ResultFournisseur(j) = .Cells(l, c - 1)
ResultDesignation(j) = .Cells(l, c)
j = j + 1
La juste au dessus il faudrait qu'il affiche que les résultats qui correspond au flag = false quand on regarde sa devrait remplir le tableau avec une seule reference si on choisie un moteur de type LSES90 par exemple.... quand le flag passe a faux il mémorise pas le contenu de la combo box ?
End If
l = l + 1
Wend
End With
