Discussion :

[arhkhiari]

Bonjour,
je travaille avec Excel 2011 sous mac et j'ai un problème avec l'instruction CreateObject("Scripting.Dictionary")
J'ai téléchargé le fichier "FormRechercheModifAjout" dans lequel vous avez créer trois formulaires :
- Rechercher / Modifier/ Ajouter
- Recherche intuitive
- Recherche intuitive + modif+ajout + sup
Le premier ne fonctionne pas à cause du composant Activex qui n'existe pas sous mac.
Pour les deux autres formulaires un message d'erreur s'affiche "L'indice n'appartient pas à la sélection" quand on saisie une lettre dans la zone de recherche.
Voila pouvez vous m'aider à résoudre ce problème car votre formulaire m'intéresse énormément.
PS : L'idéal c'est de pouvoir utiliser le premier formulaire avec la version d'Excel sous Mac.
Merci beaucoup pour votre retour.

[boisgontierjacques]

Bonsoir,


cf PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
   Dim d1 As New Collection
   On Error Resume Next
   For i = LBound(BD) To UBound(BD)
     d1.Add Item:=BD(i, 1), Key:=BD(i, 1)
   Next i
   On Error GoTo 0
   Dim temp(): ReDim temp(1 To d1.Count)
   For i = 1 To d1.Count: temp(i) = d1(i): Next i
   '--avec tri
   Tri temp, LBound(temp), UBound(temp)
   Me.ComboBox1.List = temp

Boisgontier
http://boisgontierjacques.free.fr