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 plages de cellules et insertion avec recherche


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Conseil AMO BIM
    Inscrit en
    Juillet 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Conseil AMO BIM
    Secteur : Bâtiment

    Informations forums :
    Inscription : Juillet 2017
    Messages : 9
    Par défaut Copier plages de cellules et insertion avec recherche
    Bonjour,

    Je cherche via à une macro associée à un bouton à automatiser la copie d'une plage de cellules d'une feuille dans une autre et ce avec plusieurs contraintes :
    - Les cellules de chaque ligne doivent être assemblées en une seule cellule par ligne.
    - Elles doivent être insérées au bon endroit de la feuille cible (les phrases "type 1" sous la ligne "type 1" etc.)
    - Si je modifie le nombre de ligne dans la feuille "Type 1" et que je reclique sur le bouton, la feuille "Assemblage" doit être réactualisée.

    J'ai créé un fichier d'exemple pour ce que je veux :
    - Les feuilles "Type 1" et "Type 2" contiennent les phrases découpées par colonnes que je veux copier ainsi que le bouton à utiliser.
    - La feuille "Assemblage" est la feuille cible
    - La feuille "Assemblage_attendu" est le résultat que je souhaite obtenir.

    J'ai essayé de créer la macro pour sélectionner la bonne plage de cellule, mais cela me sélectionne les lignes entièrement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton1_Click()
     
    ActiveSheet.Range(Cells(2, 1), Cells((Cells(Rows.Count, 1).End(xlUp).Row), (Cells(2, Columns.Count).End(xlUp).Column))).Select
     
    End Sub
    Je suppose que ce n'est pas du tout optimal comme façon de procéder.

    Je vous remercie pour votre aide.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [XL-2003] Copier plage de cellule selont une valeur autre feuille
    Par Galdwin dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 03/10/2013, 13h11
  2. Copier plage de cellules dans 1ère cellule non vide
    Par Runsh63 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/05/2013, 16h31
  3. [VBA-EXCEL] Copier plage de cellules aléatoire
    Par Alecine dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/05/2008, 15h50
  4. Copier plage de cellules
    Par Jeanvaljean44 dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 14/12/2007, 16h22
  5. Réponses: 25
    Dernier message: 30/05/2007, 13h03

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