IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Variant de variants


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    14
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2009
    Messages : 14
    Par défaut Variant de variants
    Bonjour,

    Je débute en vBA.

    J'aimerais savoir comment utiliser un variant de variants, c'est à dire que je voudrais à partir d'une base de données récupérer des données sous un critere (exemple nom) et à partir de ce nom, récupérer les autres données type adresse, université etc...

    j'ai définit un res as variant
    Redim res(nbreNoms,6)

    for i=1 to nbreLignes
    là je dois récupérer nom par nom res(i,1)=cells(i,5)
    les stocker dans une autre feuille wsF.cells(j,1)=res(i,1) (en mettant une double boucle)
    c'est là que ça ne colle pas ce que je fais.
    L'idéal serait un variant de variants.
    Un res qui contient le premier vecteur = premier nom qui lui contient 6 critères.

    Pourriez vous m'aider s'il vous plait !!??

    Merci!

  2. #2
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour charlottedie le forum sans plus d'infos!!! boucle sur la feuille1 copy la cell (i,1) si =cell(i,5) dans la feuille 2 a la suite en colonne a

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub essai()
     Dim i As Long
       With Sheets(1)
       For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
          If .Cells(i, 1) = .Cells(i, 5) Then
             Sheets(2).Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) = .Cells(i, 1)
          End If
       Next i
      End With
    End Sub

Discussions similaires

  1. Variante de TUpDown avec incrément réel
    Par Bernard Grosdoy dans le forum Composants VCL
    Réponses: 6
    Dernier message: 20/10/2004, 16h40
  2. Transtypage d'un variant.
    Par Lodonez vincent dans le forum Langage
    Réponses: 4
    Dernier message: 02/09/2004, 19h42
  3. Champ Date à '01/01/0001' -> Pb conversion de variant !!!
    Par AnnSo dans le forum Bases de données
    Réponses: 6
    Dernier message: 04/06/2004, 16h54
  4. conversion : VARIANT FAR* URL vers CString
    Par kam dans le forum MFC
    Réponses: 2
    Dernier message: 29/03/2004, 13h32
  5. Convertion de type VARIANT à type CString
    Par j_grue dans le forum MFC
    Réponses: 2
    Dernier message: 07/11/2002, 14h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo