Nommer des cases Excel en fonction du contenu d'autres cases

Bonjour à tous.

Nouveau sur le forum, et après avoir cherché vainement une réponse à mon questionnement, je me résous à vous solliciter :

Je tiens également à préciser que je suis novice en VBA.

Voici donc mon problème :

Prenons un tableau dont une ligne de référence affiche les semaines par numéro :

En B1 on lit « S1 », en C1, « S2 »…. Jusqu’à la semaine S52 voire S 53.

Et une colonne, des noms divers : par exemple :

En A2 on lit « Pomme », en A3 « Tomate » … le nombre de nom est indéfini à ce jour.

Je souhaiterais nommer les cases intersection automatiquement pour pouvoir m’en servir de référence.

Exemple : la case intersection B1/A2 (soit la case B2) devrait pouvoir s’appeler « POMME S1 » avec un espace si possible (ou un caractère à définir) ; la case B1/A3 (soit B3) s’appellerait alors : « Tomate S1) etc…

Pensez-vous que cela soit possible ?

Merci d’avance pour vos réponses.

Cordialement.

Bonjour,

Avec une macro :

Sub Test()
Dim DerLig As Long, Ligne As Long
Dim DerCol As Integer, Col As Integer
Dim Nom As String, Adresse As String
    With ActiveWorkbook
        With .Worksheets("Feuil1")' Nom de feuille à adapter
            DerLig = .Range("A" & Rows.Count).End(xlUp).Row
            DerCol = .Cells(1, Columns.Count).End(xlToLeft).Column
            For Ligne = 2 To DerLig
                For Col = 2 To DerCol
                    Nom = .Cells(Ligne, 1) & "_" & .Cells(1, Col)
                    Adresse = "=" & .CodeName & "!" & .Cells(Ligne, Col).Address
                    ActiveWorkbook.Names.Add Name:=Nom, RefersTo:=Adresse
                Next Col
            Next Ligne
        End With
    End With
End Sub

A+

C'est parfaitement ce que je cherchais.

Merci pour la rapidité de la réponse. Je suis scotché.

À bientôt car je pense que j'aurai de nouveau besoin de vous.

Cordialement.

Rechercher des sujets similaires à "nommer cases fonction contenu"