[VBA] Ajout automatique d'une ligne dans une liste déroulante

Ajout automatique d'une ligne dans une liste déroulante [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 17-12-2007 à 10:44:55    

Bien le bonjour a vous,
 
j'ai un problème ! (comme beaucoup de monde me direz-vous ;))
 
enfin bref, je dois fait une macros qui ajoute automatiquement une ligne dans une liste déroulante.  
Le tout dans une boucle 'While'. J'ai essayer différent truc mais rien ne fonctionne, je vous demande donc de l'aide :)
 
voilà mon code actuel :
 

Code :
  1. Sub test()
  3. Dim row As Integer
  5. Sheets("List1" ).Select
  7. row = 5
  9. While Cells(row, 1) <> ""
  10.     row = row + 1
  11.            
  12.     Sheets("Qualité de Service" ).Select
  13.     ActiveSheet.Shapes("Drop Down 1" ).Select
  14.     With Selection
  15.         Sheets("List1" ).Select
  16.         .ListFillRange = "List1!$A$1:$A$5"
  17.         .LinkedCell = "$B$5"
  18.         .DropDownLines = row - 1
  19.         .Display3DShading = True
  20.     End With
  21.    
  22. Wend
  24. Sheets("Qualité de Service" ).Select
  25. Range("a1" ).Select
  27. End Sub


 
Dans ".ListFillRange " je voudrais que le cellule de fin prenne la derniere cellule ... du genre .ListFillRange = "List1!$A$1:$A$ row " ...
 
merci de votre aide ou des commentaires que vous posterez :)
 
Nyt'

Reply

Marsh Posté le 17-12-2007 à 10:44:55   

Reply

Marsh Posté le 17-12-2007 à 18:08:37    

bonsoir,

Code :
  1. .ListFillRange = "List1!$A$1:$A$" & Range("A36000" ).End(xlUp).Row


Message édité par jpcheck le 17-12-2007 à 18:08:53

---------------
Les fautes d'orthographe coûtent des millions d'euros aux entreprises, marre des fau
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed