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 :

copier transposer automatiquement avec conditions


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut copier transposer automatiquement avec conditions
    bonjour
    je veux copier le tableau T1 sur T2
    comme à lexemple
    remarques: sur T2 je veux pas de vide,
    lorsque j'ajoute une ligne sur tableau T1 il s'ajoute automatiquement en dessous dans T2,
    répéter le nom de la ligne devant chaque cellule
    voici le fichier
    classeur3.xlsx

    merci bcp

  2. #2
    Membre expérimenté
    Homme Profil pro
    Développeur VBA
    Inscrit en
    Avril 2017
    Messages
    122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur VBA
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2017
    Messages : 122
    Par défaut
    ca a été résolu sans qu'il y ait de réponse apportée, vu que j'aime bien les formules, je me lance dans l'exercice


    Voici donc une possibilité:
    je fais partir t2 en a23, à adapter selon là ou commence t2
    j'ai nommé la première case de T1 début. A1 donc

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    a23 :... =debut
    b23 ... =DECALER(debut;0;1)
    a24 ... =SI(B24="";"";SI(ESTERREUR(EQUIV(B24;DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;0):DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;10);0));DECALER(debut;EQUIV(A23;$A$1:$A$6;0);0);DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;0)))
    b24 ...  =SI(B23="";"";SI(DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;EQUIV(B23;DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;0):DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;10);0))="";SI(DECALER(debut;EQUIV(A23;$A$1:$A$6;0);1)="";"";DECALER(debut;EQUIV(A23;$A$1:$A$6;0);1));DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;EQUIV(B23;DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;0):DECALER(debut;EQUIV(A23;$A$1:$A$6;0)-1;10);0))))
    étirer les formules de a24 et b24 vers le bas. on peut simplifier en nommant aussi la plage $a$1:$a$6.

    pourquoi faire trivial avec une macro si l'on peut faire compliqué avec des formules ?

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

Discussions similaires

  1. Popu automatique avec ecriture Programabble
    Par Jezi dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 12/02/2006, 21h52
  2. Charger un module automatiquement avec des options debian
    Par ZiMo dans le forum Administration système
    Réponses: 4
    Dernier message: 22/12/2005, 14h22
  3. Numéro automatique avec PostgreSql
    Par BRAUKRIS dans le forum PostgreSQL
    Réponses: 3
    Dernier message: 09/09/2005, 22h55
  4. Envoi de mail automatique avec Visual C++
    Par cza dans le forum MFC
    Réponses: 2
    Dernier message: 22/02/2005, 15h59
  5. Démarrage automatique avec xfce
    Par lunatix dans le forum Applications et environnements graphiques
    Réponses: 4
    Dernier message: 21/09/2004, 22h50

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