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

[mep1607]

Il y a un mieux très net mais il se passe quand même quelque chose de très bizarre.
Au lieu d'avoir comme résultat
='Affaires en cours'!$AC$4:$AC$160

j'ai
=Affaires en cours!BU163:BU319

Pourtant, quad je trace, maplage est bien égale à AC4:AC160

Code :

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

1
2
3
4
5
6
7
 
maplage = "AC4:AC" & CStr(NumLigneProjet)
 
            With ActiveWorkbook.Names("ListeRisqueTechnique")
                .Name = "ListeRisqueTechnique"
                .RefersTo = "=Affaires en cours!" & maplage
            End With

Je vais aller déjeuner et retester. C'est franchement bizarre.

Si j'ajoute des ' au .RefersTo = "=Affaires en cours!" & maplage, il ne modifie plus la plage.
Quand je regarde avec le débogueur, il la trouve et ne tient pas compte de ce que j'ai mis dans "maplage".

[mep1607]

J'ai trouvé pour la partie nom de l'onglet mais il continue de remplacer maplage par BU163:BU319.
Je continue de chercher.
Mais bon, j'ai bien avancé grâce à toi, merci beaucoup.

Code :

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

1
2
3
4
With ActiveWorkbook.Names("ListeRisqueTechnique")
                .Name = "ListeRisqueTechnique"
                .RefersTo = "='" & ActiveSheet.Name & "'!" & maplage
End With

[gFZT82]

Bonjour,

J'ai testé avec le code suivant sans rencontrer de problème particulier

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 DerLigne As Long
 
With Worksheets("Affaires en cours")
'récupère le n° de la dernière ligne remplie
DerLigne = .Range("AC" & .Rows.Count).End(xlUp).Row
End With
 
'Modification de la plage
With ActiveWorkbook.Names("ListeRisqueTechnique")
    .Name = "ListeRisqueTechnique"
    .RefersToR1C1 = "='Affaires en cours'!R4C29:R" & DerLigne & "C29"
End With
 
'sélectionne la plage
Worksheets("Affaires en cours").Select
Worksheets("Affaires en cours").Range("ListeRisqueTechnique").Select
End Sub

Cordialement.

[mep1607]

Merci ! Ça marche !!!
Ouf !!!
Tu es génial.
C'est vraiment gentil de ta part d'avoir bien voulu continuer jusqu'au bout alors que ça marchait chez toi.