Lier uniformément le contenu des cellules

Question

J'ai une liste de systèmes dans un grand groupe qui sont considérés comme un seul. Ils ont tous un statut 'Évalué', mais je veux en quelque sorte relier tous ces systèmes dans le groupe, de sorte que si je change le statut d'évaluation dans l'un d'entre eux, il sera mis à jour pour tous ceux du groupe. Existe-t-il un moyen de le faire, en dehors de l'assignation d'un système «maître» et d'un lien avec tous les autres?

Answer 1

Si je vous en train de lire, ce que vous voulez est pour

A  B 
------ ------ 
sys1 Assessed 
sys2 Assessed 
sys3 Assessed 

pour devenir

A  B 
------ ------ 
sys1 foo 
sys2 foo 
sys3 foo 

si vous tapez « foo » sur l'une des cellules « évaluées ». Le moyen le plus simple de le faire sans utiliser une autre cellule serait d'utiliser l'événement worksheet_change(). Lisez tout à ce sujet here.

Voici un petit quelque chose pour vous aider à démarrer. Ouvrez l'éditeur VBA (ALT + F11) et double-cliquez sur le nom de votre feuille de calcul. Dans le volet de code résultant, placez votre code worksheet_change(). Peut-être quelque chose comme:

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub 

    Dim startCell As Range 
    Set startCell = Range("B1") 

    Dim r As Range 
    Set r = Range(startCell, startCell.End(xlDown).Address) 

    If Not Intersect(Target, r) Is Nothing Then 
     r = Target 
    End If 

End Sub 

Cela va chercher des changements de B1 à la dernière cellule contiguë en dessous.