Bonjour,
J'écris un programme de visualisation de base de données et j'ai un petit soucis sur un point qui me parait simple mais je ne vois pas l'erreur. En fait dans une userform j'ai une liste contenant le nom des colonnes et une autre liste (masquée) contenant le numéro des colonnes correspondants aux noms de la liste précédente (ListCritères). J'ai aussi une fonction qui permet d'échanger 2 colonnes de la base de données (Echange (a as range, b as range)).
Je voudrais mettre les colonnes de la liste cachée au début de la base de donnée, j'ai donc écrit :
For i = 0 To ListCriteres.ListCount - 1
ListCriteres.ListIndex = i
For k = 1 To H + 1
Echange Sheets("données").Cells(k, ListCriteresBin.List(ListCriteres.ListIndex)), Sheets("données").Cells(k, i + 2)
Next
Next
et donc quand j'exécute il me donne une erreur d'éxécution 1004 (définie par l'application ou l'objet).
J'espere que vous pourrez m'aider à comprendre ce qui ne fonctionne pas. Merci
Re : Probleme de récupération de valeur dans listbox
Déja merci d'avoir répondu!
En fait ce n'est pas moi qui ai écrit le programme de départ. Voici Echange :
Sub Echange(a As Range, b As Range)
c = a.Value
a.Value = b.Value
b.Value = c
End Sub
Sinon pour la syntaxe quel est le problème? Un syntaxe similaire fonctionne déja dans le programme