Création userform

[Amandine]

Re-bonjour,

J’ai trois colonnes s’intitulant « Date Réception Commande », « Dépassement Date AR Commande » et « AR fait ? ».

J’aimerais faire apparaître dans un userform s’affichant dès l’ouverture du classeur, montrant juste les AR de commande ayant dépasser la date indiquée dans la 2ème colonne et ayant comme réponse « Non » dans la 3ème colonne.

Pouvez-vous encore m'aider

Merci d'avance

 

[Robert]

Bonjour Amandine, bonjour le forum,

Commençons par les mauvaises nouvelles... Il ne faut pas doubler les posts avec le même sujet sinon tu risques toi-même de ne plus t'y retrouver. Il est plus agréable, pour quelqu'un qui te vient en aide, de travailler sur un fichier de base. Il existe un Lien supprimé qui explique comment envoyer un fichier en pièce jointe. Ceci explique certainement le peu de réponses que tu as eues jusqu'à présent. Si tu as un moment je te conseille de lire la Charte du forum.

La bonne nouvelle enfin... En pièce jointe un fichier basé sur tes explications. L'UserForm se lance à l'ouverture du classeur mais aussi à l'activation de l'onglet Feuil1. Cliquer sur une ligne dans l'Userform, sélectionne la cellule de la colonne C dans le tableau.

J'espère que ça correspond à ce que tu demandes. Tiens nous au courant. [file name=Amandine_20051128160132.zip size=10777]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Amandine_20051128160132.zip[/file]

Message édité par: Robert, à: 28/11/2005 16:02

 

[Amandine]

Désolé pour le double affichage de mon message....

Merci beaucoup Robert ton fichier va beaucoup m'aider !

Heureusement que ce forum existe

 

[Amandine]

Je suis vraiment cruche ! j'arrive pas à changer les lettres de colonnes, c'est à dire qu'à la place de A,B et C, moi c'est N,O et P.

Comment fait on pour modifier ?


'boucle sur toutes les cellules editées de la colonne A (en partant de A2)
For Each cel In Range('A2:A' & Range('A65536').End(xlUp).Row)
'evite le big si une données dans
'les colonne A et B n'est pas une date
On Error Resume Next

'*************************
'remplissage de la ListBox
'*************************

'condition : si la date de la colonne B est supérieure à la date de la colonne A
'et qu'en colonne C il y a 'non'
If DateValue(Date) > DateValue(cel.Offset(0, 1).Value) And _
UCase(cel.Offset(0, 2).Value) = 'NON' Then
'ajoute la cellule de la colonne A (en colonne 0 de la ListBox)
ListBox1.AddItem cel.Value
'ajoute la cellule de la colonne B (en colonne 1 de la ListBox)
ListBox1.Column(1, x) = cel.Offset(0, 1).Value
'ajoute la cellule de la colonne C (en colonne 2 de la ListBox)
ListBox1.Column(2, x) = cel.Offset(0, 2).Value
'ajoute le numéro de ligne de la cellule
'cette colonne est masquée dans la Listbox (voir propriété ColumnWidths)
ListBox1.Column(3, x) = cel.Row
x = x + 1 'définit la variable x
End If 'fin de la condition

Next cel 'prochaine cellule éditée de la colonne A

End Sub

Merci

 

[Robert]

Bonjour Amandine, bonjour le forum,

Essaie ça :

For Each cel In Range('N2:N' & Range('N65536').End(xlUp).Row)

 

[Amandine]

Merci beaucoup Robert...

Je file lire la charte du forum, car là j'en ai vraiment besoin...

A bientôt, bonne soirée