Mise à jour de deux cellules d'une cellule.

Le
luis vejarano
Bonjour groupe tel bonne journée.
Oui, je l'explique:
A1 Je dois une cellule qui peut entrer des valeurs manuellement, par exempl=
e les numéros: 1, 2, 3, etc.
je dois la cellule B1 a une valeur de la cellule A1.
dire si A1 = 2, B1 B1 = 2 devrait apparaître.
maintenant
Si je modifie: A1 = 3, la cellule B1 DOIT RESTER 2 (B1 = 2).
et dans la cellule B2 affirme que la nouvelle valeur de A1 (B2 = 3) devra=
it apparaître.

si pas compris, il ya une façon de le faire avec des formules?, ou si des=
macros,
si je pouvais donner une idée d'une macro, parce que je ne suis pas trè=
s familier avec les macros thème.

Merci pour la réponse, vous pouvez me donner un message d'accueil.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
danielos
Le #26370385
Bonjour,

A mettre dans ta feuille.
Alt+F11 puis coller dans Feuil1(Feuil1)
Sub Worksheet_Change(ByVal Target As Range)
Dim dc As Integer

dc = ActiveSheet.Range("IV1").End(xlToLeft).Column + 1

If Target.Address = "$A$1" Then
Cells(1, dc).Value = Cells(1, 1).Value
End If
End Sub

Daniel

luis vejarano a écrit :
Bonjour groupe tel bonne journée.
Oui, je l'explique:
A1 Je dois une cellule qui peut entrer des valeurs manuellement, par ex emple les numéros: 1, 2, 3, etc.
je dois la cellule B1 a une valeur de la cellule A1.
dire si A1 = 2, B1 B1 = 2 devrait apparaître.
maintenant
Si je modifie: A1 = 3, la cellule B1 DOIT RESTER 2 (B1 = 2).
et dans la cellule B2 affirme que la nouvelle valeur de A1 (B2 = 3) d evrait apparaître.

si pas compris, il ya une façon de le faire avec des formules?, ou si des macros,
si je pouvais donner une idée d'une macro, parce que je ne suis pas t rès familier avec les macros thème.

Merci pour la réponse, vous pouvez me donner un message d'accueil.
MichD
Le #26370397
Bonjour,

En supposant que j'ai bien compris la question, essaie ceci.
Tu dois copier la procédure suivante dans la feuille module où l'action se déroule.

Fais un clic droit sur l'onglet de ladite feuille, et dans le menu contextuel, choisis la
commande "Visualiser le code". Tu copies le code dans la page blanche que tu auras
à l'écran.

Ce qui suit fonctionne pour toutes les cellules de la colonne A. Si le contenu de la cellule
B de la même ligne n'est pas vide, la nouvelle valeur inscrite dans la cellule A, s'inscrit
à la première cellule disponible de la colonne B qui est vide.

'--------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range, C As Range, DerLig As Long

Set Rg = Intersect(Target, Columns(1))

Application.EnableEvents = False
For Each C In Rg
If IsEmpty(C.Offset(, 1)) Then
C.Offset(, 1) = C
Else
DerLig = Range("B" & Rows.Count).End(xlUp).Row + 1
If DerLig < C.Row Then DerLig = C.Row
Range("B" & DerLig) = C.Value
End If
Next
Application.EnableEvents = True
End Sub
'--------------------------------------------------------------





"luis vejarano" a écrit dans le message de groupe de discussion :


Bonjour groupe tel bonne journée.
Oui, je l'explique:
A1 Je dois une cellule qui peut entrer des valeurs manuellement, par exemple les numéros: 1, 2, 3,
etc.
je dois la cellule B1 a une valeur de la cellule A1.
dire si A1 = 2, B1 B1 = 2 devrait apparaître.
maintenant
Si je modifie: A1 = 3, la cellule B1 DOIT RESTER 2 (B1 = 2).
et dans la cellule B2 affirme que la nouvelle valeur de A1 (B2 = 3) devrait apparaître.

si pas compris, il ya une façon de le faire avec des formules?, ou si des macros,
si je pouvais donner une idée d'une macro, parce que je ne suis pas très familier avec les macros
thème.

Merci pour la réponse, vous pouvez me donner un message d'accueil.
Publicité
Poster une réponse
Anonyme