Prgm VBA et ou Excel - RechercheV ... recherche du nom le plus long

Prgm VBA et ou Excel - RechercheV ... recherche du nom le plus long - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2011 à 21:48:24    

Bonsoir,
 
 
Je vous expose mon problème. Je m'excuse de l'urgence de mon post car je dois présenter mes résultats demain midi...
 
Bref, voici ma demande :
 
Sur une feuille excel, j'ai des données sur plus de 9000 lignes et sur 4 champs (colonnes).
Exemple :
 
ID         Nom           Modèle     Prix
5849     ProdA             EV           154
5849     ProdFadi          EV1          2584
6598     EvaBi              EM3          13
6598     EvaBiEMS        EM3          13
4587     Doul               XS            1598
....
....
....
 
Je voudrais soit en VBA ou soit via des formules excel, déterminer pour chaque ID le nom correspondant le plus long.  
Par exemple, après traitement je voudrais obtenir le résultat suivant :  
 
ID         Nom           Modèle     Prix
5849     ProdFadi          EV1          2584
6598     EvaBiEMS        EM3          13
4587     Doul               XS            1598
....
....
 
Pourriez-vous me dire comment vous traiterez ce problème ? (soit en vba ou soit en excel)
Petite difficulté supplémentaire, j'ai parfois sur certaines lignes pas de code ID, dans ce cas là il faut utiliser. Dans ce cas là il faut utiliser le précédent
 
 
Pour le moment, j'essaie de résoudre en passant par le vba.
voici le début de mon code (charge toutes les données dans un tableau):
 
ActiveWorkbook.Sheets("Sheet1" ).Select
 
Dim TAB_Source() As Variant
Dim NbreLignes As Integer
 
NbreLignes = Application.CountA(Range("B:B" )) + 6
 
Dim l As Integer, c As Integer
 
 
ReDim TAB_Source(1 To NbreLignes, 1 To 4)
For l = 1 To NbreLignes
    For c = 1 To 4
        TAB_Source(l, c) = Cells(l + 35, c).Value
    Next
Next
 
 
 
Merci de votre retour.
Bonne soirée.
Cordialement

Reply

Marsh Posté le 10-01-2011 à 21:48:24   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed