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 Coller si Cellule pleine VBA [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Mai 2015
    Messages : 60
    Par défaut Copier Coller si Cellule pleine VBA
    Bonjour,

    Je voudrais savoir si quelqu'un pouvait m'aider...
    Je souhaiterais pouvoir faire un copier / coller d'une cellule si une autre cellule est pleine.
    C'est-à-dire, avoir une macro qui descend ligne par ligne en vérifiant si les cellules de la colonne X sont pleines ou pas.
    Si elles le sont, alors, la macro copie les valeurs d'une autre cellule (le but est de transposer des données entre deux docs).
    J'ai un début de macro, qui n'est pas forcément le meilleur mais qui vous éclairera peut-être un peu plus que mes vagues explications :

    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Sub Macromatos()
     
    Dim classeurSource As Workbook, classeurDestination As Workbook
    'copier les données de la feuille"essai" du classeur source vers la feuille "aaa" du classeur destination
    Windows("Tremplin3 - Version4.xlsm").Activate
    ' SelectionVisible Macro
    Range("F12").Select
    'Range("F" & premiereLigne & "F" & x).Select
    'derniereLigne = Selection.Row
    Selection.Copy
    Windows("BDV2.xlsm").Activate
     
    'Trouver dernière ligne pour pouvoir déterminer jusqu'où copier
    Selection.End(xlDown).Select
    x = Selection.Row
    'Cherche première valeur en partant du bas
    Columns("B:B").Find("*", [B1], , , , xlPrevious).Select
    ActiveCell.Offset(1, 0).Activate
    premiereLigne = Selection.Row
     
    'coller en dessous de la premiere valeur trouvée en colonne A
    Range("A" & premiereLigne).Select
    'Coller seulement valeurs sans liste déroulante
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False


    Je vous remercie !

  2. #2
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2015
    Messages : 46
    Par défaut
    Bonjour elie,

    Je ne suis pas très performant en VBA mais je t'ai crée un classeur qui copie les élément d'une listbox à la ligne suivante

    regarde le et sert toi du code pour avancer le tien.

    bonne journée
    Fichiers attachés Fichiers attachés

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Mai 2015
    Messages : 60
    Par défaut
    C'est gentil merci !

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

Discussions similaires

  1. [XL-2007] VBA Copier Coller vers cellules precises avec des ranges aleatoires
    Par thibault12500 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 16/12/2013, 16h47
  2. probleme copier coller de cellules filtrées vba
    Par nicola13 dans le forum Excel
    Réponses: 1
    Dernier message: 06/04/2009, 14h36
  3. [Excel] selection et copier-coller de cellule sans activer les sheets
    Par franckB dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 01/04/2007, 23h26
  4. Réponses: 5
    Dernier message: 14/02/2006, 14h32
  5. copier coller avec Pastespecial en VBA
    Par stormless dans le forum Général VBA
    Réponses: 1
    Dernier message: 06/11/2005, 11h59

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