Résultats de la recherche

bonjour @cathodique si il y a faille comme tu dis c'est dans ton raisonnement ma fonction listefiltree fait ce que tu lui demande alors que tu dise plutôt j'ai un autre besoins en terme de filtrage, je comprendrais mieux mais l'essentiel est que tu a ce dont tu a besoins il est vrai que...

re Bonjour ce n'est pas une correction c'est un besoins différent du départ c'est tout tu cherche quelque chose ET !! ce qui est tapé OU !! ce qui est tapé ET!! quelque chose ce sont deux besoins différents ou la différence est énorme d'ailleurs cette discussion n'a pas lieu pourquoi: et...

Voilà pour le moment l'allure du Vba Indeter Interface V 2.0 c'est un tournant radicale hein 😂

ok tout est en gris clair 1 et clair2 quoi

re et les menu ca donne quoi ? par exemple le menu fichier

Bonjour @Cousinhub merci pour la capture je constate que l'on est proche du mode moyen de 2013 en terme de couleur il y a mois de vert que sur 2016 2013 theme moyen

Bonjour à tous J'ai l'intention de donner un look Excel actuel a un userform J'aurais besoin de capture d’écran de la fenêtre excel 2019/2021 Les menu etc... Pourriez vous m'en envoyer ici Svp si ce n'est pas trop vous demander Merci d'avance ;)

Bonjour à tous Je tiens a préciser que la partie décompilation des bloc in one line est un essais le moteur V 2.0 est en cours de préparation il sera bien plus puissant et plus complet j'envisage aussi de lui donner un look un peu plus Excel dites moi ce que vous en pensez (voir des idées )

Bonjour Private Sub cboTypedemaintenance_Change() With txtN°Ticket If cboTypedemaintenance.ListIndex = 1 Then .Enabled = True: .SetFocus Else .Enabled = False End With End Sub

Bonjour à tous Correctif sur la partie décompilation des blocs in one line en effet il faut faire des exceptions Les boutons d'export/enregistrer sont dans un menu Ajout de l'export en html avec coloration syntaxique (quelque coquilles subsistent) pour un eventuel partage sur les...

Bonjour Private Sub UserForm_Initialize() Dim derlig As Long With ComboBox1 .columncount=[c:n].columns.count .List = [c3:N3].Resize(2).Value .RemoveItem (.ListCount - 1) End With End Sub

Bonjour quand on connait pas le dossier(voir dossier parent ou sub dossier) avec DIR on fait un DIR vbdirectory dans une fonction récursive car contrairement au DIR dans le dos il n'est pas récursif avec une fonction récursive on peut partir de la lettre du disque pour arriver au fichier...

Bonjour à tous j'ai fait une mise à jour en fonction de vos remarques je vous invite donc pour ceux qui l'ont déjà téléchargé à le refaire mise à jour enregistrement des paramètres d'indentation dans l’interface sélectionnés automatique Correctif du petit bug sur les blocs encodés sur une...

@WIARD bon ben je l'ai essayé comment te dire heu.... a tu un plan "B"? 😂 non vraiment tu n'a pas pris le bon chemin de plus ton indentation n'est pas bonne une douzaine de module avec des codes de fou pour ajouter une tabulation de toute les ligne entre le premier for et son next perso je te...

Bonjour @WIARD je te remercie de partager avec nous cette ébauche j'ai regardé un peu plus près ton fichier mais déjà au premier regard on est loin l'un de l'autre en terme de méthode tout travailler en string comme tu le fait causera toujours des erreurs difficile d'intégrer ça dans...

re bon avec tes enoncé on comprend plus tellement ce que tu veux en fait si tu veux que la ligne 3 de C à N Private Sub UserForm_Initialize()Dim derlig As Long With ComboBox1 .List = [c3:N3].Resize(2).Value'-2 par ce que l'on commence a la ligne 3 .RemoveItem (.ListCount - 1) End With End Sub...

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 et la derlig tu va la chercher quand ? ;)

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...