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 :

Problème pour copier la dernière valeur d'une collone [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Profil pro
    Étudiant
    Inscrit en
    Avril 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2010
    Messages : 33
    Points : 30
    Points
    30
    Par défaut Problème pour copier la dernière valeur d'une collone
    Bonjour le forum
    J'aimerais récupérer la dernière valeur de ma collone et la copier à la dernière cellule d'un autre collone se trouvant dans un autre classeur. Voici mon code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub CommandButton1_Click()
        Dim ligne As Long
        Dim ligne2 As Long
        ligne = (Range("C9").End(xlDown).Row)
        ligne2 = (Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Range("B10").End(xlDown).Row + 1)
    ligne2.Value = ligne.Value
    End Sub
    Je suis sur à 200% que le problème vient de la c'est juste un problème de syntaxe
    Merci de votre aide @+

  2. #2
    Nouveau membre du Club
    Profil pro
    Étudiant
    Inscrit en
    Avril 2010
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2010
    Messages : 33
    Points : 30
    Points
    30
    Par défaut


    Je vient de trouver la réponse à mon propre problème dsl pour ce dérangement. Voici le code pour ce que ça intéresserai.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub CommandButton1_Click()
        Dim ligne As Long
        Dim ligne2 As Long
        ligne = (Range("C9").End(xlDown).Row)
        ligne2 = (Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Range("B10").End(xlDown).Row + 1)
        Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Range("B" & ligne2).Value = Range("C" & ligne).Value
     
    End Sub

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

Discussions similaires

  1. Réponses: 6
    Dernier message: 09/02/2015, 10h54
  2. Problème pour copier une feuille
    Par bentor22 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 30/04/2013, 12h12
  3. [XL-2007] Problème pour copier une tâche project dans un fichier Excel
    Par Miguel973 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 21/04/2011, 11h58
  4. Réponses: 6
    Dernier message: 23/03/2009, 15h40
  5. Réponses: 2
    Dernier message: 20/10/2008, 10h32

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