Probleme de formule ds macro

[PierreB77]

Bonjour à tous

J'ai un petit probleme avec ce bout de code:

For i = 1 To 10

'si la valeur de la cellule est différente à la valeur de JE1_A1
If ActiveCell.Offset(i, 0).Value <> JE1_A1.Value Then
'alors je met cette valeur dans la liste JE1_B1
'JE1_B1.AddItem i
If i = 1 Then
JE1_B1.AddItem Sheets('Nom').Range('C2')
ElseIf i = 2 Then
JE1_B1.AddItem Sheets('Nom').Range('C3')
ElseIf i = 3 Then
JE1_B1.AddItem Sheets('Nom').Range('C4')
ElseIf i = 4 Then
JE1_B1.AddItem Sheets('Nom').Range('C5')
ElseIf i = 5 Then
JE1_B1.AddItem Sheets('Nom').Range('C6')
ElseIf i = 6 Then
JE1_B1.AddItem Sheets('Nom').Range('C7')
ElseIf i = 7 Then
JE1_B1.AddItem Sheets('Nom').Range('C8')
ElseIf i = 8 Then
JE1_B1.AddItem Sheets('Nom').Range('C9')
ElseIf i = 9 Then
JE1_B1.AddItem Sheets('Nom').Range('C10')
ElseIf i = 10 Then
JE1_B1.AddItem Sheets('Nom').Range('C11')
End If
End If
Next i

le probleme vient de mon 1er IF.

Je viens en fait comparer une valeur (qui se trouve etre le nom et le prenom d'une personne, donc du text) dans une liste se trouvant sur une feuille Excel avec une valeur que je rentre grace à un combobox se rapportant à cette liste.

Hors quand la valeur est identique ma condition ne fonctionne pas et elle considere que ces 2 valeurs ne le sont pas. :?:

Est ce que quelqu'un aurait une solution à mon probleme.
Merci d'avance de votre aide
Pierre

PS: Ci-joint un fichier pouvant permettre une meilleur comprehension de mon probleme. [file name=ListeD.zip size=14517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeD.zip[/file]

 

[dg62]

Bonjour PierreB77, le Forum


Retour de vacances difficile peut-être, mais j'ai du mal à cerner le problème.


a quoi servent les celules H3, H4...

la comparaison doit se faire par elles, ou par le combo ?

le code ne devrait-il pas se trouver sur le bouton valider ?

 

[PierreB77]

Bonjour dg62

Dans mon fichier les cases H3, H4, .... ne servent qu'à afficher le resultats de la saisie.

En fait la comparaison doit se faire avec la valeur saisie ds le combo permettant ainsi de supprimer cette valeurs dans les autres combos pour eviter une double saisie d'un nom.
En fait pour l'instant je fait un test sur les 2 1er combo mais par la suite je vais l'adapter pour les autres.

En resumer ce que je cherche à faire c'est de supprimer les noms deja saisie de combo vide.

 

[dg62]

re

Piste de solution

La cellule H3 est nommée JE1_A1 comme le combobox1
idem pour H4 H5 H6 avec le nom identique au comboBox 2 3 et 4

la comparaison se fait donc par la valeur de ces cellules.
La valeur est nulle car elles sont initialisée à '' à l'affichage du userform.
Il y a donc ajout automatique dans le 2e combo.


Il faut donc renommer convenablement chaque combo et modifier le code en conséquence.

 

[PierreB77]

Salut dg62

J'ai trouvé une solution à mon probleme grace à une autre aide exterieur. Merci à toi d'avoir bien voulu passer un peu de ton temps à vouloir m'aider et je t'en remercie sincerement.

ci joint le nouveau fichier pour que tous le monde puisse en profiter.

Si tu vois un autre moyen de le simplifier je suis preneur car moins il y a de lignes de code moins il y a risque de plantage. [file name=ListeD2.zip size=13767]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeD2.zip[/file]

 

[RENAUDY]

bonjour visiteur,

Ton fichier zip m'intéresse ayant des questions similaires sur excel;
malheureusement, le zip n'est pas lisible.
Pourrais-tu le refaire et le remettre à dispo,
voire me l'envoyer directement à y.renaud@tiscali.fr.

merci beaucoup

 

[RENAUDY]

bonjour visiteur,

Ton fichier zip m'intéresse ayant des questions similaires sur excel;
malheureusement, le zip n'est pas lisible.
Pourrais-tu le refaire et le remettre à dispo,
voire me l'envoyer directement à y.renaud@tiscali.fr.

merci beaucoup