Microsoft 365 Dupliquer des cellules nommées

fcyspm30 à dit:

Bonjour Pjeep
Peut-on avoir un fichier avec l'explication du rendu espéré?

Cliquez pour agrandir...

fcyspm30 à dit:

Re
Je pense que le mieux serait d'utiliser un seul tableau et construire une base de données avec les éléments que vous entrez dans ce tableau pour chaque parties. C'est à partir de cette base de données que vous pourrez effectuer vos calculs statistiques à mon avis. Pour ce qui est des parties enregistrées dans la base de données il vous sera facile d'appeler une journée pour retrouver les données telles que présentées dans votre feuille RMGC P-JP. Qu'en pensent les contributeurs?

Cliquez pour agrandir...

job75 à dit:

Bonjour Pjeep, le fil,

La méthode utilisée par Pjeep consiste à nommer non pas une cellule mais une plage de cellules disjointes.

Et ceci sur 28 plages.

C'est une bonne méthode, pas besoin de créer une base de données.

Mais il faut que chaque plage soit mise à jour chaque fois qu'un tableau Peter ou JP est créé.

Pour cela voyez le fichier joint et cette macro dans le code de la feuille "RMGC P_JP" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim decal, derlig&, nom As Name, c As Range, P As Range
decal = 16 'décalage de lignes entre les cellules
derlig = UsedRange.Row + UsedRange.Rows.Count
For Each nom In ThisWorkbook.Names
    If nom.Name Like "p-*" Or nom.Name Like "jp_*" Then
        Set c = Range(nom.Name)(1) '1ère cellule de la plage
        Set P = c
        Do
            If CStr(c) <> "" Then Set P = Union(P, c) 'reconstruit la plage
            Set c = c.Offset(decal)
        Loop While c.Row < derlig
        P.Name = nom.Name 'nomme la plage
    End If
Next
End Sub

Elle se déclenche automatiquement chaque fois qu'une cellule est modifiée ou validée.

Pour tester entrez un 1 dans la cellule Z107 puis voyez le nom jp_bird, la plage s'est agrandie.

A+

Cliquez pour agrandir...