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 :

Vb msgbox pour copier coller certaines cellules [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Mars 2012
    Messages
    92
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2012
    Messages : 92
    Par défaut
    Bonjour,
    J'ai besoin d'aide car je suis bloquée. J'essaye de créer une macro pour pouvoir choisir quelles cellules je veux copier.
    je m'explique, j'ai un tableau avec des données dans les colonnes A à D et j'aimerai avoir une macro msgbox qui me demande quelle plage de cellules je veux copier et coller. Par exemple aujourdhui je voudrais copier la plage A1 à
    B6 et demain, je voudrais choisir une autre plage...
    HELP ....

    Voici le début de mon code mais il y a un beug au niveau du coller et je pense que mon code est beaucoup trop long ...

    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
    Sub copie_colle()
     
    ' ouvre le fichier à copier
    Workbooks.Open ("T:\...Classeur1")
     
    ' je choisis ma plage 
    Messagecolonne = InputBox("quel colonne ?")
    Messageligne = InputBox("quel ligne ?")
     
    If Messagecolone = 1 Then if 
       Messageligne = 6 then 
            Sheets("Feuille copier").Range("A1:A6").Copy
            Workbooks("Classeur2").Sheets("Feuille coller").Select
            Range("A1").Paste
     
    Else if ... 'je continue jusqu'à la colonne numéro 4 (colonne D)
     
    End If
    End Sub

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    adaptes ce code avec lequel tu sélectionnes ta plage directement dans ta feuille
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim plage As Range
    Set plage = Application.InputBox("Sélectionnez une plage", Type:=8)
    plage.Copy Destination:=Sheets("Feuil2").Range("A1")
    penses à changer la destination par la destination réelle
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Mars 2012
    Messages
    92
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2012
    Messages : 92
    Par défaut
    merci its perfect avec mes modifs

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

Discussions similaires

  1. [XL-2007] Copier-coller des cellules pour alimenter un tableau
    Par DidierBoz dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 08/06/2017, 12h40
  2. Error 424 Objet requis pour un simple copier/coller la cellule au-dessus ?
    Par ubuntu666 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 11/05/2015, 17h38
  3. [XL-2010] Pb pour copier coller une plage de cellule variable
    Par eglantine217 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/05/2012, 13h10
  4. Réponses: 5
    Dernier message: 14/02/2006, 15h32
  5. Réponses: 2
    Dernier message: 18/11/2005, 17h29

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