Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

[RESOLU] [Excel] Tri de tableau sous condition

 

106 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

[RESOLU] [Excel] Tri de tableau sous condition

Prévenir les modérateurs en cas d'abus 
blurry
blurry
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 07/05/2009 à 16:59:33  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Salut @ tous !

 J'ai besoin d'un petit coup de main sous Excel 2003.
 Voilà mon problème. J'ai une base de fichiers clients et cette base, j'aimerais lui appliquer une maccro qui me permettrait de la trier selon 2 critères ce qui aurait pour effet d'appliquer aux données concernés une police particulière (changement de couleur)et de remonter les données concernées.

 Pour faire plus simple, voici un exemple :
 http://img25.imageshack.us/img​25/4976/99723104.jpg
 J'aimerai que tous les lignes ayant une appro antérieure au 07/03/2009 ou tous ceux qui ont plus de 1500 de stock deviennent rouge et remonter au début de tableau par numéro de clients.

 Cela donnerait ceci au final :
 http://img26.imageshack.us/img​26/8236/84904641.jpg

 En espérant ne pas trop vus avoir embrouillé.  :crazy:

 En vous remerciant de votre contribution à tous.  :D
 Cordialement.



willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 07/05/2009 à 19:46:18  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonsoir,

 je te propose cette macro qui teste les colonnes 2 et 5

 Sub coloretri()
 Dim madate As Date
 Dim monstock As Integer

 Range("A2" ).Select
 fin = Selection.End(xlDown).Row
 Range(Cells(2, 1), Cells(fin, 5)).Font.ColorIndex = 1

 Message = "Entrez la date  format : jj/mm/aaaa"
 Title = "Colorer en rouge les Dates antérieures validées "
 madat = InputBox(Message, Title)
 If madat = "" Then Exit Sub Else madate = madat

 Message = "Colorer en rouge les stocks superieurs à"
 Title = "Critère > stock "
 stock = InputBox(Message, Title)
 If stock = "" Then Exit Sub Else monstock = stock

 Range("A2" ).Select
 fin = Selection.End(xlDown).Row
 Range(Cells(2, 2), Cells(fin, 2)).Select


 With Selection
 For Each cel In Selection

ligne = cel.Row

If (cel < madate) Or (Cells(ligne, 5) > monstock) Then

Range(Cells(ligne, 1), Cells(ligne, 5)).Font.ColorIndex = 3

End If
 Next
 End With

 For i = 2 To ligne
 If Range(Cells(i, 1), Cells(i, 5)).Font.ColorIndex = 3 Then

Range(Cells(i, 1), Cells(i, 5)).Cut

Range("A2" ).Select

Selection.Insert Shift:=xlDown
 End If
 Next

 Range("A2" ).Select
 End Sub



 :salut:






---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
blurry
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 12/05/2009 à 16:26:25  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Merci, je vais tester cela  :sol:

blurry
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 12/05/2009 à 23:43:02  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Euh quand j'essaie de copier la macro, j'ai une erreur de type 'End Sub attendu' ?  :chepa:

 Need help please

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 17/05/2009 à 11:12:46  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
salut,

 un programme commence par sub nom() et se termine par End sub

 verifie bien si tu as copié la dernière ligne End sub dans la macro
 chez moi la macro fonctionne bien


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
blurry
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 17/05/2009 à 17:40:06  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Ok tout fonctionne parfaitement !

 Mille merci.  :bien:

 Page :
1

Aller à :
 

Sujets relatifs
Probleme mode solo Counter strike:condition zéro les gros fichiers ne passent pas dans utorrent!!! (résolu)
tri particulier sur colonne sous open office Assembler ou diviser des fichiers PDF (RESOLU)
excel : classer les feuilles/résolu pb transfert de code postal d'excel a word
Comment copier un tableau Excel dans un PPS probleme mon pc ne lit pas ma carte sd (résolu)
Problème installation DirectX [Résolu]  
Plus de sujets relatifs à : [RESOLU] [Excel] Tri de tableau sous condition

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
zone d'impression sous excel 2003 3
imprimante 2
Numérotation de page word et saut de section 3
Dénombrement dans Excel [résolu] 10
gmail et hotmail 0