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 :

Récupérer la valeur active d'une cellule d'une autre feuille


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Comptable
    Inscrit en
    Octobre 2017
    Messages
    45
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Comptable

    Informations forums :
    Inscription : Octobre 2017
    Messages : 45
    Par défaut Récupérer la valeur active d'une cellule d'une autre feuille
    Bonjour tout le monde

    la réponse à ma question est surement simple mais je ne la trouve pas...

    je souhaiterai récupérer dans la feuille2 la valeur de la cellule sélectionnée sur la feuille1, mais sans passer par un copier coller

    j'ai essayé ça, mais ça ne fonctionne pas :
    en étant positionné sur la Feuille2

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveCell.Value = Sheets("Feuille1").ActiveCell.Value
    merci beaucoup pour votre aide

    julien

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    bonjour
    j'ai pas bien compris mais si tu cherche a faire double clic sur une cellule et que la valeur s'enregistre sur l'autre feuille
    tu peux adapter ça ;
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Sheets("Feuil3").Cells(1, 1) = ActiveCell.Value
    End Sub

  3. #3
    Membre expérimenté Avatar de lucasgaetan
    Homme Profil pro
    dessinateur BE
    Inscrit en
    Août 2011
    Messages
    175
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : dessinateur BE
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2011
    Messages : 175
    Par défaut
    on doit pouvoir faire plus court:
    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
    Sub Transfert()
    Dim Sht1 As Worksheet
    Dim Sht2 As Worksheet
    Dim MaVal As String '????
     
        Set Sht1 = ThisWorkbook.Sheets("Feuil1")
        'Sheets ("Feuil1")
        Set Sht2 = ThisWorkbook.Sheets("Feuil2")
     
        Sht1.Activate
        MaVal = ActiveCell.Value
     
        Sht2.Activate
        ActiveCell.Value = MaVal
     
    End Sub

  4. #4
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    pour envoyer à la meme adresse mais sur l'autre feuille
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    a = ActiveCell.Row
    b = ActiveCell.Column
    Sheets("Feuil3").Cells(a, b) = ActiveCell.Value
    End Sub

  5. #5
    Membre averti
    Homme Profil pro
    Comptable
    Inscrit en
    Octobre 2017
    Messages
    45
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Comptable

    Informations forums :
    Inscription : Octobre 2017
    Messages : 45
    Par défaut
    Merci beaucoup,

    finalement, il faut toujours passer par une variable
    je pensais qu'il y avait un moyen d'éviter ça, puisque sur une meme feuille ca fonctionne (activecell.value = activecell.offset(x,x).value) mais ça semble compliqué

    en fait, j'aurai voulu que la valeur de cellule active d'une feuille s'alimente en fonction d'une cellule active d'une autre feuille

    julien

  6. #6
    Membre expérimenté Avatar de lucasgaetan
    Homme Profil pro
    dessinateur BE
    Inscrit en
    Août 2011
    Messages
    175
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : dessinateur BE
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2011
    Messages : 175
    Par défaut
    Citation Envoyé par misterjuicelink Voir le message
    en fait, j'aurai voulu que la valeur de cellule active d'une feuille s'alimente en fonction d'une cellule active d'une autre feuille
    par définition, il n'y a qu'une cellule active par classeur ....

  7. #7
    Membre averti
    Homme Profil pro
    Comptable
    Inscrit en
    Octobre 2017
    Messages
    45
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Comptable

    Informations forums :
    Inscription : Octobre 2017
    Messages : 45
    Par défaut
    ok, c'était l'élément qui me manquait
    donc impossible de faire autrement

    merci à tous !
    julien

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

Discussions similaires

  1. [XL-2007] Copie d'image dans une cellule vers une cellule d'une autre feuille
    Par natsamfa dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 20/02/2017, 21h27
  2. Réponses: 5
    Dernier message: 21/03/2016, 18h48
  3. [Toutes versions] coller les données d'une plage d'une cellule dans une cellule d'une autre feuille[VBA]
    Par arthson dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 24/01/2012, 17h37
  4. [XL-2007] problème de codage en vba ("copie d'une partie d'une cellule dans une cellule vide")
    Par skipeemed dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 26/10/2010, 17h01
  5. Recherche une valeur d'une cellule dans une colonne d'une autre feuille
    Par kourria dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 21/06/2007, 13h48

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