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 la valeur d'une cellule dans une autre une fois qu'elle change


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingénieur avant-vente
    Inscrit en
    Avril 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur avant-vente

    Informations forums :
    Inscription : Avril 2017
    Messages : 4
    Par défaut Copier la valeur d'une cellule dans une autre une fois qu'elle change
    Bonjour les experts !
    J'ai besoin de votre aide puisque j'arrive au bout de ma vie avec excel..

    J'ai une cellule B2 qui change régulièrement de valeur ( en réalité elle récupère une valeur depuis un autre logiciel..)
    Je veux copier la valeur de la cellule B2 dans une autre cellule une fois qu'elle change pour l'enregistrer, par exemple :

    B2 = 2 ------> C2 =2
    B2= 3 -------> C3 =3
    B2 = 6 -------> C4 = 6

    J'arrive à résoudre la moitié du problème, (voir fichier excel) , sauf que le petit code marche uniquement si on insère une valeur manuellement dans B2 et on valide par entrée, et ce n'est pas ce que je cherche.
    Merci pour aide
    **************************************************
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub Worksheet_Change(ByVal Target As Range)
        Static n As Integer
        If n = 0 Then
            n = 2
            Do While Me.Cells(n, 3) <> ""
                n = n + 1
            Loop
        End If
        If Target.Address = "$B$2" Then
            If Me.Cells(n - 1, 3) <> Target Then
                Me.Cells(n, 3) = Target: n = n + 1
            End If
        End If
    End Sub
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [XL-2013] Rechercher la valeur d'une cellule dans un autre fichier
    Par com-ace dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/02/2017, 15h17
  2. Macro pour prendre valeur d'une cellule dans un autre fichier.
    Par Zill1975 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/02/2013, 17h08
  3. [XL-2003] copier une cellule dans plusieurs autres cellules
    Par Eric26 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 17/02/2011, 14h27
  4. Réponses: 2
    Dernier message: 05/03/2010, 14h15
  5. Réponses: 1
    Dernier message: 25/01/2010, 09h07

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