Contenu récent par Lii

Re : combobox sans doublon Bon jour, 2 cas : 1 place par personne ou plusieurs places par personne.

Re : Userform, incrémenter des n° depuis une feuille Bon jour, Quelle gymnastique pour activer ton bouton "Validation" ! Les 3 données doivent être complétées. Pour le numéro, il doit être aussi actualisé dans le feuille concernée ! Pourquoi ne pas passer par un message à la validation...

Re : Déclancher une macro 1 seule fois pour toute Bon jour, dans la série "je peux, je n'en peux plus" : avec un Contrôle invisible. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" Then If OptionButton1 = True Then Exit Sub OptionButton1 = True...

Re : Supprimer les doublons Bon soir, un autre exemple.

Re : supprimer les lignes dont les cellules contiennent.... Bon soir, avec un USF, seulement pour les cas "YX..." et sans garde(s) fou(s) !

Re : Modifier ce code et passer de 2 à 3 combo Bon soir, une adaptation (entre autres).

Re : melange aleatoire de colonnes Bon soir, avec ce que j'ai compris et de façon basique (VBA). J'ai remplacé le message "doublon" par une MFC. Une remarque : si, sur les 4 lignes d'une colonne, un nom se répète 3 fois, tu ne pourras éviter d'en avoir 2 consécutifs !

Re : Remplir listbox en fonction choix combobox Re il suffit de corriger quelques lignes: Private Sub UserForm_Initialize() ... 'passage par ListView pour trier For Each vC In Range("A3:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible) ... End Sub Private Sub...

Re : VBA nom du fichier Bon jour, rien à voir avec ce message : il semblerait que tu n'ais pas pris connaissance de ma proposition ici Un retour, même négatif, est toujours appréciable !

Re : Remplir listbox en fonction choix combobox Bon jour, C'est ce qui m'arrive quand je décoche dans Outils, Références, Microsoft Windows Common Controls 6.0 (SP6). Je réinstalle cette référence avec Outils, Références, Parcourir , Fichier de type Contrôles ActiveX(*.ocx), Nom du fichier...

Re : Remplir listbox en fonction choix combobox Bon soir, essaie de remplacer la macro par le Private Sub ComboBox1_Change() If Autorise = False Then Exit Sub Dim vI As Integer, vLi As Integer With ListView1 .ListItems.Clear For Each vC In Range("D2:D" &...

Re : rechercher une valeur dans une colonne et supprimer la ligne correspondante Bon soir, une autre proposition avec ce que j'ai compris. Cela ressemble à une suppression de lignes mais n'en est pas une !

Re : Remplir listbox en fonction choix combobox Bon soir, 2 exemples : avec le contrôle ListBox et le contrôle ListView. J'utilise le second pour trier. De plus, il présente plus de variations le premier.

Re : modification de macro Bon jour, avec ce que j'ai compris, Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim VLi As Byte If Intersect(Target, [D1:D3]) Is Nothing Or Target.Count > 1 Then Exit Sub VLi = Target.Row MsgBox Array("Message 1", "Message 2", "Message...

Re : Procedure à temps d'execution élevé raffraichissement affichage Bon soir, à tester : Option Explicit Option Base 1 Sub MAIN() Dim MON_TOTAL_LIGNE As Long Dim MON_TOTAL_LIGNE_BD As Long Dim x As Long, y As Long Dim TdB, TdD, TdF Dim TdA Dim Test...