Discussion :

[mep1607]

Bonjour à tous,
j'ai essayé tout ce que j'ai trouvé sur les forums mais je n'arrive pas à faire ceci :
j'ai une plage nommée ActiveWorkbook.Names("ListeRisqueTechnique") qui va de AC4 à AC159.
Je crée une nouvelle ligne et donc, je veux qu'elle aille de AC4 à "AC & nouveau numéro de ligne".
Je ne sais pas ce qui ne va pas mais j'ai eu tous les codes erreurs possibles.
Est-ce que quelqu'un pourrait m'aider s'il vous plaît ?
Je ne veux pas faire de delete avant parce que sinon, les tableaux qui y font référence se mettent en #erreur.
Comment je lui dit que je veux faire un resize ?
Quand je passe par l'enregistreur de macro, il fait ça (j'ai juste ajouté la partie variable du n° de ligne) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveWorkbook.Names("ListeRisqueTechnique")
                .Name = "ListeRisqueTechnique"
                .RefersToR1C1 = "='Affaires en cours'!R4C29:R" & CStr(NumLigneProjet) & "C29"
            End With

Merci de votre aide, je ne m'en sors vraiment pas...

[rvtoulon]

Bonjour,
voici un code qui fait ce que tu souhaites, adapte le à ton cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub nom_plage()
Dim maplage As String, derligne As Long
'récupère le n° de la dernière ligne remplis
derligne = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
 
'définition de ma plage
maplage = "A1:H" & derligne
 
'définition du nom de la plage
ActiveWorkbook.Names.Add Name:="plage1", RefersTo:="=Feuil1!" & maplage
 
'sélectionne la plage
Range("plage1").Select
End Sub

si tu modifies la plage en rajoutant une ligne il va modifier ou créer une plage avec le même nom mais des références Différentes.

[mep1607]

Avec ton code ça me donne une nouvelle plage or il faut que j'utilise toujours la même.

[rvtoulon]

Je viens de faire un test ou je modifie mon tableau en rajoutant ou supprimant des lignes et j'ai bien une plage qui à toujours le même nom avec l'adresse adaptée.

As-tu changer le nom de la plage de mon code et mis le nom de ta plage?

Peux-tu mettre ton code afin que l'on puisse voir ce qu'il en est?

merci

Essaye avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub nom_plage()
Dim maplage As String, derligne As Long
 
'récupère le n° de la dernière ligne remplis
derligne = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
 
'définition de ma plage
maplage = "A1:H" & derligne
 
'Modification de la plage
With ActiveWorkbook.Names("plage1")
        .Name = "plage1"
        .RefersTo = "=Feuil1!" & maplage
End With
 
'sélectionne la plage
Range("plage1").Select
End Sub

[mep1607]

Je pense que je n'ai pas bien compris ce que tu as écrit dans ton code.
Voilà ce que j'ai mis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub nom_plage()
Dim maplage As String, derligne As Long
 
'définition de ma plage
maplage = "A4:A" & derligne
 
'définition du nom de la plage
ActiveWorkbook.Names.Add Name:="ListeRisqueTechnique", RefersTo:="=Affaires en cours" & maplage
 
'sélectionne la plage
Range("ListeRisqueTechnique").Select
End Sub

[rvtoulon]

ok voici le code avec les changements:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub nom_plage()
Dim maplage As String, derligne As Long
 
'récupère le n° de la dernière ligne remplis
derligne = Sheets("Affaires en cours").Range("AC" & Rows.Count).End(xlUp).Row
 
'définition de ma plage
maplage = "AC4:AC" & derligne
 
'modification de la plage
With ActiveWorkbook.Names("ListeRisqueTechnique")
        .Name = "ListeRisqueTechnique"
        .RefersTo = "=Affaires en cours!" & maplage
End With
 
'sélectionne la plage
Range("ListeRisqueTechnique").Select
End Sub