Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir.
C'est à dire que deux cellules soient toujours identiques quelque soit que
l'on saisisse une valeur dans la cellule A ou B.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Mets la macro suivante dans le module feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Application.EnableEvents = False [B1] = Target ElseIf Target.Address = "$B$1" Then Application.EnableEvents = False [A1] = Target End If Application.EnableEvents = True End Sub
(clic droit sur l'onglet de la feuille, choix visualiser le code et coller la macro ci-dessus dans la partie droite de la fenêtre). Daniel
Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir. C'est à dire que deux cellules soient toujours identiques quelque soit que l'on saisisse une valeur dans la cellule A ou B.
Bonjour.
Mets la macro suivante dans le module feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[B1] = Target
ElseIf Target.Address = "$B$1" Then
Application.EnableEvents = False
[A1] = Target
End If
Application.EnableEvents = True
End Sub
(clic droit sur l'onglet de la feuille, choix visualiser le code et
coller la macro ci-dessus dans la partie droite de la fenêtre).
Daniel
Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir.
C'est à dire que deux cellules soient toujours identiques quelque soit que
l'on saisisse une valeur dans la cellule A ou B.
Bonjour. Mets la macro suivante dans le module feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Application.EnableEvents = False [B1] = Target ElseIf Target.Address = "$B$1" Then Application.EnableEvents = False [A1] = Target End If Application.EnableEvents = True End Sub
(clic droit sur l'onglet de la feuille, choix visualiser le code et coller la macro ci-dessus dans la partie droite de la fenêtre). Daniel
Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir. C'est à dire que deux cellules soient toujours identiques quelque soit que l'on saisisse une valeur dans la cellule A ou B.
Daniel.C
Précision, la macro reproduit à l'identique A1 et B1. Daniel
Bonjour. Mets la macro suivante dans le module feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Application.EnableEvents = False [B1] = Target ElseIf Target.Address = "$B$1" Then Application.EnableEvents = False [A1] = Target End If Application.EnableEvents = True End Sub
(clic droit sur l'onglet de la feuille, choix visualiser le code et coller la macro ci-dessus dans la partie droite de la fenêtre). Daniel
Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir. C'est à dire que deux cellules soient toujours identiques quelque soit que l'on saisisse une valeur dans la cellule A ou B.
Précision, la macro reproduit à l'identique A1 et B1.
Daniel
Bonjour.
Mets la macro suivante dans le module feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[B1] = Target
ElseIf Target.Address = "$B$1" Then
Application.EnableEvents = False
[A1] = Target
End If
Application.EnableEvents = True
End Sub
(clic droit sur l'onglet de la feuille, choix visualiser le code et coller la
macro ci-dessus dans la partie droite de la fenêtre).
Daniel
Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir.
C'est à dire que deux cellules soient toujours identiques quelque soit que
l'on saisisse une valeur dans la cellule A ou B.
Précision, la macro reproduit à l'identique A1 et B1. Daniel
Bonjour. Mets la macro suivante dans le module feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Application.EnableEvents = False [B1] = Target ElseIf Target.Address = "$B$1" Then Application.EnableEvents = False [A1] = Target End If Application.EnableEvents = True End Sub
(clic droit sur l'onglet de la feuille, choix visualiser le code et coller la macro ci-dessus dans la partie droite de la fenêtre). Daniel
Quelqu'un connait-il un truc pour créer des cellules "clones" ou miroir. C'est à dire que deux cellules soient toujours identiques quelque soit que l'on saisisse une valeur dans la cellule A ou B.