Après un bon mois d'absence, je peux enfin recommencer à poster un peu.
La vie d'un doctorant passionné n'est décidemment pas de tout repos...
Le fichier de cette astuce :
ici
Voici un petit code à ajouter dans la procédure événementielle d'une feuille (clic droit sur l'onglet et choisir "Visualiser le code".
Vous pouvez alors copier ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each n In Application.Names
If Target.Address = Range(n).Address Then
If Left(n.Name, 5) = "lien_" Then
If Right(n.Name, 1) = 1 Then
On Error Resume Next
Range(Left(n.Name, Len(n.Name) - 1) & "2").Value = Range(Left(n.Name, Len(n.Name) - 1) & "1").Value
On Error GoTo 0
Else
On Error Resume Next
Range(Left(n.Name, Len(n.Name) - 1) & "1").Value = Range(Left(n.Name, Len(n.Name) - 1) & "2").Value
On Error GoTo 0
End If
End If
End If
Next
End Sub
Finalement, pour qu'un changement sur une cellule se répercute sur l'autre cellule :
Il suffit de nommer 2 cellules (insertion - nom - définir) :
lenom se compose de :
lien_
puis on tape un nom quelconque
nom_quelconque
puis on tape 1 pour la première cellule
On recommence de même pour la cellule 2, mais en changeant 1 par 2
Par exemple :
Tu vas dans insertion nom définir
tu crée un premier nom :
lien_exemple_1
avec la première cellule
puis tu crée un autre nom :
lien_exemple_2
pour la dernière cellule
et hop, les deux cellules sont liées
ATTENTION, tout le contenu de la cellule sera remplacé. Donc, s'il y a une formule, elle sera supprimée.
A bientot.
Gaetan
