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

Access Discussion :

[Automation]Inverser les lignes et les colonnes d'une importation


Sujet :

Access

  1. #1
    Membre du Club
    Étudiant
    Inscrit en
    Avril 2007
    Messages
    68
    Détails du profil
    Informations personnelles :
    Âge : 38

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2007
    Messages : 68
    Points : 57
    Points
    57
    Par défaut [Automation]Inverser les lignes et les colonnes d'une importation
    Bonjour,

    Je possède un fichier excel qui contient des informations que j'importe dans access.

    Ma question est la suivante, j'aimerai que les "lignes" du fichier excel deviennent les colonnes de la table access.

    Comment dois-je faire ? Puis-je le faire au moment de l'importation ou seulement apres ?

    Un grand merci d'avance pour votre aide

  2. #2
    Membre confirmé Avatar de timoth
    Homme Profil pro
    Responsable Outils Digitaux
    Inscrit en
    Octobre 2005
    Messages
    479
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Responsable Outils Digitaux

    Informations forums :
    Inscription : Octobre 2005
    Messages : 479
    Points : 474
    Points
    474
    Par défaut
    Salut,

    J'ai deja eu a faire ce petit exercice et je l'ai fait directement dans excel.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Function revert()
    Dim i As Integer
    Dim x As Integer
    For i = 0 To 3
    x = 0
     
        While Worksheets("U&O").Range("F1").Offset(i, x).Value <> ""
        Worksheets("U&O").Range("F1").Offset(i, x).Copy
        Worksheets("U&O").Range("A1").Offset(x, i).PasteSpecial
        x = x + 1
        Wend
    Next i
    End Function
    i: nombre de lignes a mettre en colonnes (ici, j'en avais que 3)
    x: nombre de valeurs dans les lignes

    Bien a toi

  3. #3
    Membre du Club
    Étudiant
    Inscrit en
    Avril 2007
    Messages
    68
    Détails du profil
    Informations personnelles :
    Âge : 38

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2007
    Messages : 68
    Points : 57
    Points
    57
    Par défaut C'est bon merci
    Hello,

    Merci pour ta réponse, j'ai réussi à faire quelque chose d'équivalent dans access qui fonctionne très bien.

    Je peux donc fermer le sujet.

    Merci encore

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 05/09/2008, 11h03
  2. Réponses: 1
    Dernier message: 15/05/2008, 11h48
  3. Rollover sur les lignes et les colonnes
    Par mael94420 dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 20/06/2007, 01h06
  4. Réponses: 2
    Dernier message: 11/01/2007, 12h56

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