Likith
XLDnaute Nouveau
Bonjour le forum!
Je tourne en rond depuis un petit moment sur un projet, notamment à cause de cette macro :
Je suis censé ainsi définir un plage de donnéees nommé "Liste" sur la feuille portant le nom de la valeur de la case C10 de la feuil1, si elle existe. Sinon, si elle n'existe pas, "Liste doit être créée sur la feuille "Données" qui elle existe toujours.
"Liste" me sert pour un liste déroulante. Seulement, "Liste" ne se met pas à jour quand la cellule C10 change de valeur (alors que la macro s'éxécute bien).
Je présume bien que ma macro pourrait être simplifiée!
Mais avant tout j'aimerai qu'elle fonctionne... Des idées??
Merci d'avance!
Bonne journée.
Je tourne en rond depuis un petit moment sur un projet, notamment à cause de cette macro :
Code:
Private Sub Macro()
ActiveWorkbook.Names("Liste").Delete
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Worksheets("Feuil1").Range("C10").Value Then
Dim DerLigne As Long
Sheets(Worksheets("Feuil1").Range("C10").Value).Select
DerLigne = Range("A2000").End(xlUp).Row
Range("A7:A" & DerLigne + 1).Name = "Liste"
Else
Sheets("Données").Select
Range("A1:A2").Name = "Liste"
End If
Next i
End Sub
Je suis censé ainsi définir un plage de donnéees nommé "Liste" sur la feuille portant le nom de la valeur de la case C10 de la feuil1, si elle existe. Sinon, si elle n'existe pas, "Liste doit être créée sur la feuille "Données" qui elle existe toujours.
"Liste" me sert pour un liste déroulante. Seulement, "Liste" ne se met pas à jour quand la cellule C10 change de valeur (alors que la macro s'éxécute bien).
Je présume bien que ma macro pourrait être simplifiée!
Mais avant tout j'aimerai qu'elle fonctionne... Des idées??
Merci d'avance!
Bonne journée.
Dernière édition: