Discussion :

[abenabdelkader]

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

[unparia]

Bonjour
Je n'ouvre aucun classeur tiers et n'ai donc pas ouvert le tien
A lire (et pourtant bien signalé "important") : https://www.developpez.net/forums/d8...s-discussions/

Je comprends mal le sens de ta démarche.
S'il s'agit de modifier une cellule de (toujours) la colonne C pour lui donner la valeur d'une cellule de la colonne B, je ne vois pas l'utilité de code VBA là où suffit une simple formule Excel.
s'il s'agit par contre (pas clair) de donner la valeur de la colonne B à une cellule d'une colonne à déterminer (par rapport à la dernière remplie), dis-le avec précision.

[abenabdelkader]

Merci pour votre réponse, en effet, je veux récupérer à chaque fois la valeur de la cellule B lorsqu'elle change dans une cellule C différente de la précédente.
Par exemple :

La valeur de la cellule B2 est égale à 1 , donc la valeur de C2 =1
Si la valeur de la cellule B2 change (par exemple 3)= la cellule C2 reste =1, et la cellule C3 = 3

Est-ce que c'est plus claire pour vous ? merci : )

[unparia]

Regarde ce que fait ceci (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then ' --n'agit que si en colonne B, lignes 2 et suivantes
    dercol = Cells(Target.Row, Columns.Count).End(xlToLeft).Column ' --->> dernière colonne remplie de cette ligne
    If dercol < 3 Then dercol = 3
    Cells(Target.Row, dercol) = Target.Value
 End If
End Sub

Analyse, comprends et adapte comme tu l'entends.

[abenabdelkader]

Merci ! je retrouve le même problème de départ:
Si ma cellule B2 récupère sa valeur depuis la cellule A2, la macro ne marche plus !
En réalité ma cellule B2 change de valeurs tout le temps, cette valeur est récupérable depuis un autre logiciel de cao.

Pour récapituler :
Je récupère une valeur depuis mon logiciel de CAO directement dans la cellule A2.
La cellule B2 récupère le contenu de A2 ( B2=A2).

et à chaque fois que B2 change de valeur, une nouvelle cellule se rempli dans la colonne C avec la nouvelle valeur.

[unparia]

Et comment récupères-tu dans B2 ?
Si par formule : l'évènement Change ne survient pas.
Comment s'inscrit donc une valeur dans B2. Il est important d'être très précis en ce qui concerne ce point.

[abenabdelkader]

La valeur de B2=A2.
La valeur de B2 est récupérable depuis la cellule A2.
La cellule A2 récupère une valeur depuis un lien avec logiciel de CAO (Solid Edge)