Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1171 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2047968
Player1979
Posté le 10-01-2011 à 21:48:24  profilanswer
 

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

mood
Publicité
Posté le 10-01-2011 à 21:48:24  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA Access] Gérer valeur null d'une requêteVBA Excel 2003 colorier cellule RGB
VBA Excel : récupérer des termes de l'instructionCode de recherche GOOGLE!
Association recherche programmeur bénévole[VBA - Excel] Vlookup vers un autre fichier
[VBA Access] parcourir chaine de caractères[RESOLUS] 
Plus de sujets relatifs à : Prgm VBA et ou Excel - RechercheV ... recherche du nom le plus long


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR