Discussion :

[mémoinfo]

Bonjour tout le monde;

J'ai 2 petits problémes:

1) j'ai un formulaire à remplire sous excel,et j'ai une liste des roulante des description d'echec et à coté s'affiche le code de cette echec.
j'ai fait ces démarche suivante:clic sur la case,puis sur validation,pares liste .... et j'ai associé les 2 informations:description d'echec et code erreur.
mais quand je choisis la description d'un echec,le code erreur qui s'affiche c'est pas l'équivalent.

2)j'ai un classeur de 3 feuilles;la premiére contient tout les données importer de l'extérieure(équivalent base de données),et la 2éme feuille contient un formulaire remplire.
cete 2éme feuille contient une liste déroulante de référence,cette dérniére je la récupére dans la 1ére feuille(base de donnée).
le probléme apres importation les données de l'extéreiere dans le feuille 1,la liste déroulante de référence de Feuille2 mis pas à jour automatiquement.je suis obligé d'aller sur la feuille 1 apres retourné au formulaire càd la feuille2.

Je ne sais si j'ai bien décrire mes problématique

Merci beaucoup

[Krovax]

Bonjour,
Tu as deux problème différent deux post différent ca pourrais etre utile

Pour ton premier problème un ordinateur c'est idiot ca fait ce qu'on lui demande, donc tu ne lui demande pas la description associé ou tu n'associe pas la bonne description. Il te suffit de corriger ca (je suis trop fort)
Je ne peux pas t'en dire plus vu que l'on ne sais absolument rien de ton code

Pour le deuxième, pareille ca pourrais être sympa de nous dire comment tu créer ta liste déroulante tu utilisé la validation de donnée c'est une ComboBox, si oui tu la rempli comment......

Tu as pas trop mal décrit tes problème mais tu ne nous a donné aucune information pour t'aider à les résoudre (je pense que la même un forum de voyance en direct aurait du mal )

Donc n'hésite pas a donner des morceau de code (en utilisant les balises)

[DeaD78]

Je prédis que nous allons avoir un code d'ici peu. Alors tu vois ? La voyance ça marche

Plus sérieusement, il doit effectivement manquer un "lien" pour ton premier problème.

Pour le deuxième, il va falloir "rafraîchir" ton formulaire par un Repaint ou carrément le relancer. Après, je ne sais même pas si tu parles vraiment d'un UserForm. Bref, Paco Rabanne veut un code !

[mémoinfo]

Rebonjour Krovax;

On faite j'ai pas de code;tout simplement:j'ai cliqué sur la case ou je veux selectionner la description,puis sur le menu outil je cilc sur validation,apres me demande la plage des cellule selectionnée.....voilà ce que ça donne quand je clic sur la cellule:

Code :

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

=INDEX(AE39:AE55;EQUIV(E57;AF39:AF55);0;1)

le probléme en gros:icompatibilité entre la description d'echec et son code d'erreur:

Code Echec description Echec
ABS Client absent
HAB Non habilité
REFRDV Refus RDV
REFCON Refus contrat
AUTOSY Autorisation de syndic
REFTVX Travaux client
INFCOM Manque.d’Informations commerciales

Voilà ce que ressemble ce que je veux faire;si je choisi dans la liste des roulante client absent,cellule à coté doit afficher ABS.
moi me sort les code echec décaler,càd c'est pas l'équivalent.

2)mon 2éme probléme,je veux juste mis à jour automatiquement ma liste déroulante apres chaque importation.

[Krovax]

pour ton premier problème je dirais simplement que tu t'es planté dans ton index equiv. Je ne connais pas très bien c'est du excel pas du VBA mais dans celle que j'utilise je n'ai pas de 0,1 a la fin

Celle la fontionne très bien

Code :

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

=INDEX(B4:B14;EQUIV(E8;C4:C14))

Il renvoie une valeur de la colonne B en fonction de la corespondance entre la colonne C et la cellule E8
si les description sont en colonne B et les code derreure en colonne A et que tu connai le code d'erreur ta valeur a rechercher est en C1

Code :

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

1
2
 
=INDEX(AE39:AE55;EQUIV(C1;B39:B55)

Pour plus d'info je te conseille le forum excel plutot que VBA

pour ton deuxième problème tu ne nous as donné aucune nouvelle info a utilisé donc aucune nouvelle réponse

Le balise code permet de faire une jolie mise en forme pour les colonne c'est plus pratique

[garion28]

bonjour,

en excel:

Code :

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

=recherchev(cellule_avecvaleur;plagecontenantlaréponse;colonnecontenantlareponse)

ptete que ca te sera utile

[mémoinfo]

bonjour,

en excel:

Code :

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

=recherchev(cellule_avecvaleur;plagecontenantlaréponse;colonnecontenantlareponse)

ptete que ca te sera utile

Bonjour ;

ça marcher pas,j'ai pas encore trouvé la solution.
mais est ce que il y aura quelqu'un sait comment faire une liste déroulante illimité?prcq ma liste déroulante est limité pour 58 élements,prcq ma base de donnée contient plus 300 éléments,et chaque importation se rajoute.
Base de donner dans la feuille 1 et liste déroulante dans la feuille 2
donc qlq'un peut m'aider?

Merci infiniment

[mémoinfo]

Bonjour;

Je demande votre aide monsieurs dames,pour un petit probléme sur ma liste déroulante.
on faite j'ai un classeur de 2 feuilles:feuille1---->BD
feuille2---->Forulaire avec liste déroulante de N°UG
Quand j'importe les information dans ma base de donnée(BD) la conlone que j'ai associé ma liste déroulante devient plus en plus longue.
ma liste déroulante est déterminé en 48 élement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Worksheet_Activate()
Dim LesUG As New Collection, MonUg As Range, MaListe$, i&, j&, a, B
 
  [ug_sur_ot] = ""
 
  'CREATION DE LA COLLECTION DES N° UG
  With F2.Columns(22)
    Set MonUg = .Cells(3)
    Do While MonUg <> "": LesUG.Add MonUg, CStr(MonUg): Set MonUg = MonUg.Offset(1, 0): Loop
  End With
 
  If LesUG.Count = 0 Then MsgBox "Votre Base de Données d'OT est vide": Exit Sub
 
  'TRI DE LA COLLECTION AVEC SUPPRESSION DES DOUBLONS (Origine J.G. Hussey)
  For i = 1 To LesUG.Count - 1
    For j = i + 1 To LesUG.Count
      If LesUG(i) > LesUG(j) Then
        a = LesUG(i): B = LesUG(j)
        LesUG.Add a, before:=j: LesUG.Add B, before:=i
        LesUG.Remove i + 1: LesUG.Remove j + 1
      End If
    Next j
  Next i
 
  'CREATION DES DONNEES DE LA LISTE DE CHOIX
  For i = 1 To LesUG.Count - 1
    MaListe = MaListe & LesUG.Item(i) & ","
  Next i
  MaListe = MaListe & LesUG(LesUG.Count)
 
  'MISE A JOUR DE LA LISTE DE VALIDATION
  With F3.Range("I7").Validation
    .Delete: .Add xlValidateList, xlValidAlertStop, xlBetween, MaListe
    .IgnoreBlank = True: .InCellDropdown = True: .InputTitle = "Choix d'UG": .ErrorTitle = ""
    .InputMessage = "Veuillez sélectionner un N° d'UG dans la liste"
    .ErrorMessage = "Ce N° d'UG n'existe pas dans la base de données"
    .ShowInput = True: .ShowError = True
  End With

Merci beaucoup de votre attention