Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1354 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1659211
nyt-mar
Posté le 17-12-2007 à 10:44:55  profilanswer
 

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()
  2. Dim row As Integer
  3. Sheets("List1" ).Select
  4. row = 5
  5. While Cells(row, 1) <> ""
  6.     row = row + 1
  7.            
  8.     Sheets("Qualité de Service" ).Select
  9.     ActiveSheet.Shapes("Drop Down 1" ).Select
  10.     With Selection
  11.         Sheets("List1" ).Select
  12.         .ListFillRange = "List1!$A$1:$A$5"
  13.         .LinkedCell = "$B$5"
  14.         .DropDownLines = row - 1
  15.         .Display3DShading = True
  16.     End With
  17.    
  18. Wend
  19. Sheets("Qualité de Service" ).Select
  20. Range("a1" ).Select
  21. 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'

mood
Publicité
Posté le 17-12-2007 à 10:44:55  profilanswer
 

n°1659513
jpcheck
Pioupiou
Posté le 17-12-2007 à 18:08:37  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
vente en ligneliste simplement chainée , supprimer un element
Optimisation Comparer deux colonnes en VBA sous Excelliste déroulante sur une page web en html pointant vers des fichiers p
Mail automatique avec Gmail[VBA] probleme de pièce jointe outlook
[C] fwrite ajoute des caractères de fin de ligne ...[Sed] Modifier une ligne dans un .bat
Macro Taille Ligne 
Plus de sujets relatifs à : [VBA] Ajout automatique d'une ligne dans une liste déroulante


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR