Un truc vraiment sympa !

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

Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *


La période de vérification reCAPTCHA a expiré. Veuillez recharger la page.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.