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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Ajout automatique d'une ligne dans une liste déroulante

nyt-mar

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 :

Sub test()
Dim row As Integer
Sheets("List1" ).Select
row = 5
While Cells(row, 1) <> ""
row = row + 1
Sheets("Qualité de Service" ).Select
ActiveSheet.Shapes("Drop Down 1" ).Select
With Selection
Sheets("List1" ).Select
.ListFillRange = "List1!$A$1:$A$5"
.LinkedCell = "$B$5"
.DropDownLines = row - 1
.Display3DShading = True
End With
Wend
Sheets("Qualité de Service" ).Select
Range("a1" ).Select
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'

Publicité

jpcheck

Pioupiou

bonsoir,

Code :

.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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
vente en ligne	liste simplement chainée , supprimer un element
Optimisation Comparer deux colonnes en VBA sous Excel	liste 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

Page générée en 0.030 secondes