Résultats de la recherche

Bonjour à tous J'ai essayé en vain d'adapter le code écrit par job75 dans ce post https://www.excel-downloads.com/threads/aide-vba-copier-celulles-de-plusieurs-fichiers-fermes-dans-un-autre-du-meme-reperto.148118/ Je souhaiterais, si c'est possible, supprimer trois colonnes discontinue...

Re : Sous totaux En VBA Bonsoir J'ai trouvé une solution avec un TCD @+

Bonsoir à tous Grâce aux exemples et explications que j'ai trouvé sur le forum, J'ai trouvé le moyen de remplir aisément des Commandes avec un userform J'arrive maintenant à l'exploitation des données mais je ne parvient pas à trouver la bonne méthode pour obtenir des sous totaux en...

Bonsoir J'ai plusieurs actions à coder sur une quarantaine de combobox Je ne sais les programmer que les uns après les autres et ca représente beaucoup de lignes Pouvez m'aider à les optimiser : Dans l'initialisation de l'userform : 'Remplissage de la liste With...

Re : Remplir un combobox avec la valeur d'une cellule proche Re, Jamais à court d'idée ce Pierrot! J'ai beaucoup de combobox et j'ai déjà un code de 15 km alors tans pis l'utilisateur se fera aux formules inscrites dans le combobox Merci beaucoup en tout cas

Bonsoir à tous Pour un combobox dans un userform, J'aimerais, remplir une liste avec le texte d'une colonne A mais qu'il prenne la valeur de la colonne B Par exemple : Lire "1 boite pour 20" (en A1) dans la combobox celui-ci prend la valeur "*0.05" qui serait dans la colonne B1...

Re : Un filtre qui fonctionne mais qui bloque dans certaines conditions Merci bien

Bonjour à tous Ce code fonctionne très bien, il filtre toutes les lignes de mon classeur qui contiennent "A compter" dans les colonnes A Le problème est qui si aucunes lignes ne contiennent ce texte, excel plante ... Avez vous une solution ? Private Sub CommandButton1_Click()...

Bonjour à tous Exsiste t-il un code pour rendre impossible le choix dans une combobox lorsque certaines feuilles sont actives ? L'idéal serait qu'elle devienne grise. J'ai le même userform dans plusieurs feuilles et tandis que le remplissage dans certaines feuilles s'impose, dans...

Re : Combobox : Affichage d'un item par default en fonction du choix d'un autre Merci Pierrot Ton idée fonctionne très bien

Bonjour à tous Voici comment est alimentée dynamiquement ma base de donnée With Workbooks("Liste.xlsx").Sheets("LEGUMES") lg = 0 Select Case ComboLM1.ListIndex Case -1 If ComboLM1 <> "" Then lg = .Range("A65536").End(xlUp).Row + 1 Case Else lg = ComboLM1.ListIndex + 2 End...

Bonjour à tous et bon dimanche J'ai trouvé un code qui me convient très bien Merci a THIERRY35 : Sub Zonecombinée1_QuandChangement() Dim i% 'déclaration d'un "compteur" de type Integer Dim c As Range 'déclaration d'une variable de type "cellule" ou "plage de cellules"...

Re : Combobox : Affichage d'un item par default en fonction du choix d'un autre Re bonsoir Puis je inclure à mon code une fonction qui permettrais de remplir la valeur de la combobox1 si la cellule est vide et la valeur de la cellule si celle ci est renseignée ?

Re : Combobox : Affichage d'un item par default en fonction du choix d'un autre Re Pierrot Voilà une solution qui me parait faisable et à laquelle je n'avais pas pensé Merci Pierrot génial ton idée !

Re : Combobox : Affichage d'un item par default en fonction du choix d'un autre Bonsoir JP Mes connaissances en VBA ne me permettent pas de comprendre ta solution. Si tu pouvais développer ta réponse ou me donner un fichier test pour que je m'y penche ça me permettrais (peut être) de...

Re : Combobox : Affichage d'un item par default en fonction du choix d'un autre Merci Pierrot ça fonctionne Plus compliqué peut être : lorsque je change la valeur de la combobox de l'userform 2 en cas de réouverture de cet userform y a t-il moyen de conserver cette nouvelle valeur ? Je vais...

Re : Suppression dynamique d'items d'un combobox Merci Pierrot Fonctionne nickel

Bonjour J'ai des comboboxs qui allimente une base donnée de cette manière : Private Sub ComboVM1_Change() 'With Sheets("VIANDES") With Workbooks("Liste.xlsx").Sheets("VIANDES") If ComboVM1.ListIndex = -1 Then Me.ComboPv1 = "" Me.TextBoxEfv1 = ""...

Bonjour à tous J'ai un problème pour supprimer une ligne d'une base de donnée par un combobox Voici comment est alimentée dynamiquement ma base de donnée With Workbooks("Liste.xlsx").Sheets("LEGUMES") lg = 0 Select Case ComboLM1.ListIndex Case -1 If ComboLM1 <> "" Then lg =...

Re : Suppression dynamique d'items d'un combobox Merci Pierrot Ma base de donnée est bien alimentée via la propriété "liste" de cette maniere : Private Sub ComboVM1_Change() With Sheets("VIANDES") If ComboVM1.ListIndex = -1 Then Me.ComboPv1 = "" Me.TextBoxEfv1 =...