156 résultats trouvés

par Boisgontierjacques
Hier, 17:05
Forum : Excel - VBA
Sujet : VBA Variable dans Range
Réponses : 2
Vues : 34

Re: VBA Variable dans Range

Bonjour,

Il ne faut pas travailler sur des cellules. Il faut utiliser des Arrays (plus rapide)

Boisgontier
par Boisgontierjacques
Hier, 14:24
Forum : Excel - VBA
Sujet : Derniere cellule non vide d'une colonne
Réponses : 7
Vues : 36

Re: Derniere cellule non vide d'une colonne

Bonjour,

exemple

Boisgontier
par Boisgontierjacques
Hier, 09:22
Forum : Excel - VBA
Sujet : Listbox erreur d'execution 380 ...
Réponses : 6
Vues : 42

Re: Listbox erreur d'execution 380 ...

Bonjour, Exemple avec 15 colonnes discontinues. Private Sub UserForm_Initialize() Set f = Sheets("bd") TblBD = f.Range("A2:Z" & f.[A65000].End(xlUp).Row).Value Dim TblRes: ReDim TblRes(1 To UBound(TblBD), 1 To 15) col = 0 For Each k In Array(1, 2, 4, 7, 8, 9, 10, 11, 12, 20, 21, 22, 23, 24, 25) ' co...
par Boisgontierjacques
17 mai 2019, 18:47
Forum : Excel - VBA
Sujet : Formulaire de recherche multicritère ET/OU - help
Réponses : 1
Vues : 61

Re: Formulaire de recherche multicritère ET/OU - help

Bonjour, Fait avec un formulaire générique: 2 combobox + 1 textbox Les accents ne sont pas pris en compte. Pour l'hyper-lien, double-cliquer dans le ListBox ColCombo = Array(2, 9) ' A adapter (1 à 8 colonnes maxi) ColVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' A adapter ColMotClé = 4 Boisgontier
par Boisgontierjacques
17 mai 2019, 17:20
Forum : Excel - VBA
Sujet : Afficher les selections multiple d'une Listbox dans une seule cellule
Réponses : 3
Vues : 51

Re: Afficher les selections multiple d'une Listbox dans une seule cellule

Bonjour, Il faut aussi restituer lors de la lecture Private Sub UserForm_Initialize() Dim J As Long Dim i As Integer Me.ListBox1.List = [tableau2].Value Set Ws = Sheets("Produits") 'Correspond au nom de votre onglet dans le fichier Excel With Me.ComboBox1 For J = 2 To Ws.Range("A" & Rows.Count).End(...
par Boisgontierjacques
15 mai 2019, 15:22
Forum : Excel - VBA
Sujet : Insertion automatique dans une liste
Réponses : 17
Vues : 86

Re: Insertion automatique dans une liste

>Et merci Jacques pour ton retour également. Le seul problème avec ta solution c'est que je ne peux pas rajouter des critères aux différents articles sous cette forme. Et le tri est plus difficile Les ajouts se font automatiquement et le tri dans l'ordre alphabétiquement est effectué automatiquemen...
par Boisgontierjacques
15 mai 2019, 09:49
Forum : Excel - VBA
Sujet : Insertion automatique dans une liste
Réponses : 17
Vues : 86

Re: Insertion automatique dans une liste

Bonjour, Private Sub Worksheet_Change(ByVal Target As Range) Set f = Sheets("listes") If Target.Address = "$B$2" And Target.Count = 1 Then If Target <> "" Then If IsError(Application.Match(Target.Value, [choix1], 0)) Then If MsgBox("On ajoute?", vbYesNo) = vbYes Then [choix1].End(xlToRight).Offset(0...