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 :

Macro Inverser Tableau


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    46
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 46
    Par défaut Macro Inverser Tableau
    Bonjour le forum,

    Est il possible d'inverser les lignes d'un tableau à partir de H11?
    Exemple, si le tableau à 10 lignes "H11:H20", donc:
    H20 devienne H11
    H19 devienne H12
    .
    .
    .
    .
    H11 devienne H20

    Remarque: le nombre de ligne change !

    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 kikim78 le forum une methode a adapter !!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub es()
    Dim T As Variant, T2(), x As Long, i As Long, k As Long
      On Error Resume Next
       Application.ScreenUpdating = False
         T = Range("h11:h" & Range("h65536").End(xlUp).Row)
           x = 1
             For i = UBound(T) To 0 Step -1
                   ReDim Preserve T2(1 To 8, 1 To x)
                   For k = 1 To 8
            T2(k, x) = T(i, k)
         Next k: x = x + 1:  Next i
       Range("h11:h" & Range("h65536").End(xlUp).Row).ClearContents
      Range("h11").Resize(UBound(T2, 2), UBound(T2, 1)) = Application.Transpose(T2)
    Erase T, T2
    End Sub

  3. #3
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    46
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 46
    Par défaut
    Re

    Merci pour votre reponse,

    Etant donner que je me suis mal exprimé, la macro ne fonctionne pas bien,
    A vrais dire c'est toutes les ligne qui doit se deplacer, et n'en plus les celllules H uniquement.

    Une idée?

  4. #4
    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
    re, tes lignes sont remplis sur combien de colonne
    exemple jusqu'a la colonne z ???

  5. #5
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Bonjour tou(te)s, bonjour leti,
    Excel fait ça pour nous...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub LigneColonne()
    '
    'Sélectionner la plage à transposer.
        Range("C6:I8").Select
        Application.CutCopyMode = False
        Selection.Copy
    'Sélectionner la cellule où commencer la transposition.
        Range("C11").Select
    'Transposer le bloc.
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
     
    End Sub
    A+

  6. #6
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    46
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 46
    Par défaut
    Re,

    Les colonnes s'etalent de A à W (A:W)
    le H est un exemple seulement

    LeForestier j'ai un prob avec ta macro !

    Merci

  7. #7
    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
    re, bonjour Louis contente de te croiser cela fait un moment!!!
    effectivement ta macro est plus simple

    je mets quand meme macro corrigée pour le fun

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub es()
    Dim T As Variant, T2(), x As Long, i As Long, k As Long
      On Error Resume Next
       Application.ScreenUpdating = False
         T = Range("a11:w" & Range("a65536").End(xlUp).Row)
           x = 1
             For i = UBound(T) To 0 Step -1
                     ReDim Preserve T2(1 To 23, 1 To x)
                   For k = 1 To 23
            T2(k, x) = T(i, k)
         Next k: x = x + 1:  Next i
       Range("a11:w" & Range("a65536").End(xlUp).Row).ClearContents
      Range("a11").Resize(UBound(T2, 2), UBound(T2, 1)) = Application.Transpose(T2)
    Erase T, T2
    End Sub
    je pars de la cellule a11

  8. #8
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Citation Envoyé par kikim78 Voir le message
    Re,

    Les colonnes s'etalent de A à W (A:W)
    le H est un exemple seulement

    LeForestier j'ai un prob avec ta macro !

    Merci
    Quel est exctement le bloc que tu veux transposer et la cellule Haut - Gauche du début de la transposition.
    et...
    LeForestier j'ai un prob avec ta macro !
    N'est pas fort explicite, plutôt que de dire qu'il y a un problème, tenter d'expliquer quel est ce problème.
    A+
    EDIT :
    Mal lu ton exposé, tu ne veux transposer que dans la même ligne et pas en colonne
    La solution de leti est mieux adaptée.

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

Discussions similaires

  1. [XL-2003] macro incrémentation tableau sur une autre page
    Par poesy dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 07/04/2010, 10h59
  2. Inversion tableau + Interpolation sous VBA
    Par keko38 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 04/05/2009, 22h09
  3. Macro pour tableau excel
    Par p.gerard dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 02/12/2007, 20h57
  4. Réponses: 7
    Dernier message: 29/11/2007, 00h50
  5. [VBA-E] pb entre macro et tableau croisé dynamique
    Par flear dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/01/2007, 09h19

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