Userform avec 2 filtres + menu déroulant status
Bonjour,
ça fonctionne parfaitement bien.
Par contre j'ai dessellé un problème au niveau des "ComboBox"
Prenons le cas de la "ccbValidationAspect":
Me.CbbValidationAspect = Ws.Range("P" & J)Si dans la feuille Excel la case correspondante est vide, l'application plante sur la ligne de code ci-dessus
Cordialement,
Bonjour
tartare a écrit :Par contre j'ai dessellé un problème au niveau des "ComboBox"
Oui ce problème existait avant que j'intervienne
Une solution supprimes la ligne suivante lors de l'initialisation des ComboBox
'.Style = fmStyleDropDownListha ok, bah je viens de les supprimer alors
Bonjour
Je ne sais pas
Vérifies que tous les ComboBox soient remplis
Pas d'autre idée
je viens de les supprimer et ca fonctionne bien
Je viens d'apporter une petite fonctionnalité.
Actuellement lorsque j'appui sur la touche modification , modifie la feuille "extract_VQP"
j'ai rajouté dans ce même fichier une feuille supplémentaire "suivi" qui est l'exact réplique de la feuille "extract_VQP".
j'aimerai qu'en plus de modifier la feuille "extract_VQP" que la feuille "suivi" soit incrémenté par ce bouton "modification". de façon à avoir un historique de présentation.
les lignes actuelles dans le fichier représentent la première présentation de chaque désignation.
j'ai rajouter un Bouton sur le userform1 : "Historique présentation"
Ce bouton lance un Userform2 dans lequel apparaitra toutes les présentations d'une d'une "désignation" en fonction de sa "teinte"
Je ne sait pas si cela est réalisable, j'ai commencé à écrire du code mais je n'arrive pas à afficher quoi que se soit dans le Userform2, je ne sais pas non plus si l'on peux incrémenter sur une seconde feuille.
Cordialement,
P-j : un fichier mis à jour avec le "userforme2" et le bouton "historique de présentation"
Bonjour
Expliques un peu plus
Présentation késako ?
C'est marqué ou ?
Comment savoir combien de présentation ?
Si j'appuie 20 fois sur le bouton "Modification" je vais avoir 20 présentations ?
A suivre
Dans le userform 2 j'ai créer 5 présentations, en fait il ne peux pas y en avoir plus
Pour chaque désignation ( en fonction de la teinte) il peux y avoir plusieurs présentations. en fait tant que la validation général n'est pas "OK", une autre présentation est prévu.
Si j'appuie 20 fois sur le bouton "Modification" je vais avoir 20 présentations ?
j'avais pas penser à ça, mais j'ai quand même la réponse, il ne peux y a avoir qu'une seule présentation par date. Donc en fait il faudrait que ça incrémente que si la date change.
de base dans le fichier: 27/11/2014
je modifie des champs,je change la date : 28/11/2014 ---> j'incrémente la deuxième feuille
si jamais le même jour je décide de modifier ( pas possible normalement ) ---> je modifie la date incrémentée précédemment.
Je sais pas si c'est clair
Présentation késako ?, C'est marqué ou ?
il n'y a pas de colonne présentation, cela représente juste un titre dans le userform2.
En fait cela à pour but d'avoir un suivi sur l'évolution de la désignation, le truc c'est qu'il faut afficher dans une textbox la valeur de la feuille "suivi" dans le userform2 en fonction de combobox "désignation " et "teinte" du userform1.
Cordialement,
Bonjour,
merci à toi , c'est parfait ,
je peux fermer ce topic
Cordialement,
Ps: désolé pour le retard je n'avais plus d'acces à internet
Bonjour,
je ré-ouvre le topic plutôt que d'en créer un nouveau.
J'ai rajouté un bouton pour extraire toutes les désignations en fonction du fournisseur avec les information liées à chaque désignation.
j'ai rajouté un fichier Excel "extraction fournisseur" avec toutes les informations pour chaque désignation, et la façon dont mettre les données.
le fichier excel " extraction fournisseur" serait créer directement su le bureau..
je sais pas si c'est très clair,
d'avance merci
Cordialement,
Bonjour,
cela fontionne bien,
j'ai essayé de mettre le code suivant pour remplir toutes les case OK dans une couleur (non défini encore):
Cells.Select 'sélectionne le classeur en entier
With Selection
If Cell.Value = "OK" Then 'Si la valeur = OK alors
Cell.Interior.ColorIndex = 1 'Colorie la couleur de la cellule
End If
mais il me met une erreur sur la variable cell
Bonjour
Fournis le dernier fichier
Indiques ce que tu as et ce que veux obtenir
c'est le même fichier que tu as poste avant le mien, je veux que dans le fichier excel qui est créer, celui ou il y a toutes les désignations d'un fournisseur. que les cases ou il y a un OK apparaissent en vert ( vert est un exemple).
j'ai mis le code précédent dans le bouton "extract fournisseur":
Private Sub CbFournisseur_Click()
Dim NbLg As Long, Ligne As Long
Dim Chemin As String, Fichier As String
Dim NbFeuille As Integer
Dim Cel As Range
If Me.CbbFournisseur.ListIndex = -1 Then Exit Sub
Application.ScreenUpdating = False
With Ws
.AutoFilterMode = False
NbLg = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:V" & NbLg).AutoFilter Field:=22, Criteria1:=Me.CbbFournisseur
If Application.Subtotal(103, .Columns("A")) > 1 Then
Fichier = "Extraction Fournisseur.xlsx"
With CreateObject("WScript.Shell")
Chemin = .SpecialFolders("Desktop") & "\"
End With
If Dir(Chemin & Fichier) = "" Then
With Application
NbFeuille = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 1
End With
With Workbooks.Add
With .Sheets(1)
.Name = "Fournisseur"
.Range("A1:L1") = Array("désignation", "N° PIE", "date forme", "validation forme", "observation forme", _
"Date validation ASPECT", "Validation grain", "Validation teinte", "Validation brillance/aspect", _
"Validation Général", "Observation aspect", "valeur de brillance")
End With
.SaveAs Chemin & Fichier
.Close
End With
Application.SheetsInNewWorkbook = NbFeuille
End If
With Workbooks.Open(Chemin & Fichier)
With .Sheets(1)
Ligne = .Range("A" & Rows.Count).End(xlUp).Row
For Each Cel In Ws.Range("A2:A" & NbLg).SpecialCells(xlCellTypeVisible)
Ligne = Ligne + 1
.Range("A" & Ligne) = Cel ' Colonne A
.Range("B" & Ligne) = Cel.Offset(0, 5) ' Colonne F
.Range("C" & Ligne) = Cel.Offset(0, 7) ' Colonne H
.Range("D" & Ligne) = Cel.Offset(0, 6) ' Colonne G
.Range("E" & Ligne) = Cel.Offset(0, 8) ' Colonne I
.Range("F" & Ligne).Resize(1, 7).Value = Cel.Offset(0, 11).Resize(1, 7).Value ' Colonnes L à R
Next Cel
.Columns("A:L").AutoFit
End With
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
[inline]'code rajouter:
Cells.Select 'Permet le classeur entier
With Selection
If Cell.Value = "OK" Then 'Si la valeur = OK alors
Cell.Interior.ColorIndex = 1 'Colorie la couleur de la cellule
End If
'fin de code rajouter[/inline]
.Close savechanges:=True
End With
End If
Ws.AutoFilterMode = False
End With
MsgBox "Extraction " & Me.CbbFournisseur & " terminée"
End SubBonjour,
ca fonctionne parfaitement bien,
j'ai rajouteé une "multipage" (voir pièce jointe)
et ça me met une erreur liée au DTpickers
Bonjour
L'inconvénient des DTPicker pour les lire (pas sur à 100%) et pour les modifier (sur à 100%) il faut qu'ils soient en avant plan
Quoique j'attends que l'on me démontre le contraire
J'ai toujours fait comme ça
Modifies ton code
Me.MultiPage1.Value = 1
Me.DTPAspect = Ws.Range("L" & J)
Me.MultiPage1.Value = 0
Me.DTPForme = Ws.Range("H" & J)Bonjour,
ça fonctionne parfaitement bien.
je voudrais apporter une nouvelle fonctionnalité qui est la suivant:
dans la multipage j'ai rajouté un onglet photo, dans cet onglet il y une combobox et 4 images.
- j'aimerai que dans cet onglet, en fonction de la désignation (LBDesignation) choisi et de la teinte (LbTeinte) que la combobox m'affiche les différente date de présentation.
- lorsque je sélectionne une des dates de présentation il devra m'afficher les photos .
exemple:
si désignation 1 est choisi et teinte 10, dans la combobox il devra s'afficher 20/11/2014.
et dans ce cas les images qui sont dans ce dossier devront s'afficher:
Desktop\photo\désignation1\10\présentation 1
j'ai volontairement mis présentation 1 car Windows n'accepte pas "/" , mais cela aurait été plus simple avec une date
le but étant d'avoir accès par l'intermédiaire de ces trois critères au différentes photos de chaque présentations.
Que se passe t il si il a plus de 4 photos?
peux to créer une seconde page affichant les autres photos?
si jamais il n'y a que 3 photos, est ce que cela peux poser problème?
l'architecture des dossier sera toujours la même, c'est une macro que j'ai fais qui créer les dossier en fonction des nom et de la teinte
donc les dossier existe déjà avant de lancer l'outil.
je sais pas si c'est clair,
Cordialement,