Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
re
Private Sub UserForm_Initialize()
Dim derlig As Long
With ComboBox1
derlig = Cells(Rows.Count, "C").End(xlUp).Row 'derniere ligne en colonne C à partir de la lig 3
.List = [c3:N3].Resize(derlig + 1 - 2).Value'-2 par ce que l'on commence a la ligne 3
.RemoveItem...
bonjour
jouer a cela va te poser des problème dans le futur développement de ce que tu veux faire avec ta combobox
ca pour moi c'est pas bon
If Plage.Cells.Count > 1 Then
ComboBox1.List = Application.Transpose(Plage.Value)
Else
ComboBox1.AddItem Selection.Value
End If
une...
non c'est bien que tu me pêche sur des situation au contraire
mais soit patient je vais pas changer la source a chaque truc que je change
comme tu peux le voir dans la capture
je maitrise les compilation de bloc sur une ligne avec fermeture même si il y a des commentaire après
et sans...
les commentaire tu peux les mettre à gauche si tu veux
a la vue de ta capture les select case c'est bons il ne doive pas être au même niveau que les case
que les cases soit au même niveau je veux bien mais les childs des cases non
@Bernard_XLD
Bernard celle là elle est pour toi
re
ho punaise c'est du rapide là
Merci Bernard et David
je pensais avoir le temps de la changer pour la version 1.4
qui inclue les mises à jour suivantes
mémorisation des préférences (les checkboxs)
blocage si on tente de modifier du code dans le xlam par le menu contextuel
ajout de la prise...
non t'embête pas copie dans dans ton module et colle dans dans une balise code dans ta réponse
après il faut dire que c'est la beta 1 j'ai avancé depuis
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.