High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Problème liste déroulante

Dernière réponse le 29 jun 2009 à 17:51:35 lou3313, le 26 jun 2009 à 23:13:12 
 Signaler ce message aux modérateurs

Bonjour,

J'ai besoin d'aide sur Excel,

Sur une feuille nommée ( Prestation janvier ), j'ai crée une liste déroulante (ComboBox1).

Pour ma liste, j'ai intégré des données dans les cellules P1:P24 dans ListFillRange

Lorsque je clique sur une des données de ma liste, je voudrais qu'elle s'affiche en cellule A1, puis lorsque je clique à nouveau sur une nouvelle donnée de la liste, je voudrais que cette donnée s'affiche en cellule A2, et ainsi de suite, sans effacer les données rentrées auparavant.

Si cela est possible sur VBA, merci de votre aide.

Configuration: Windows XP
Firefox 3.0.11

Meilleures réponses pour « Problème liste déroulante » dans :
Listes déroulantes simples avec Excel Voir Dans votre tableau, vous souhaitez insérer un texte ou une valeur choisi dans une liste (déroulante). vous créez votre liste, ligne aprés ligne, sur votre feuille en cours ou sur une autre feuille du classeur en cours. vous la nommez : INSERTION...
Créer une Liste déroulante (Word 2003) (Résolu) Voir
Liste déroulante avec Image (Résolu) Voir
Posez votre question Répondre

1

a70m, le 26 jun 2009 à 23:20:51

Salut lou3313,
Je n'ai pas bien compris ton problème ...
En revanche, je connais un site très très bien pour excel qui pourra peut être répondre à ta question :
http://doublevez.com/

Encore désoler de ne pas avoir été en mesure de te répondre précisement

A70M

   
Répondre à a70m

2

eriiic, le 26 jun 2009 à 23:45:27
   
Répondre à eriiic

3

Mike-31, le 27 jun 2009 à 00:00:04

Salut,

Colles ce code dans les propriétés de ton combobox

Private Sub ComboBox1_Click()
Dim LigFin As Long
Range("A1").Select
Selection.Copy
LigFin = Range("A100").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

si tu veux effacer la cellule A1 après le transfert, ajoutes cette ligne juste avant End Sub

Range("A1").ClearContents


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

   
Répondre à Mike-31

4

a70m, le 27 jun 2009 à 00:10:41

Respect Mike-31

Chapeau bas :p

A70M

   
Répondre à a70m

5

Mike-31, le 27 jun 2009 à 12:12:23

Salut,

C'est le même code que celui proposé par Eriiic, en plus basique, ce qui le différencie, c'est que je passe par la cellule A1 qui est la cellule lié à ton combobox comme tu le demandais.
Pour les novices ce genre de code est plus facilement interprétable, mais pour le même résultat, il est possible d’écrire un code plus propre

Private Sub ComboBox1_Click()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell = [A1]
End Sub


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstei­n)

   
Répondre à Mike-31

6

lou3313, le 27 jun 2009 à 16:06:05

Salut Mike,

J'ai rentré les informations dans Les Propriétés de mon ComboBox, comme tu me l'a indiqué et ça ne fonctionne pas, ci joint le message d'erreur.

Bibliothèque d'objets incorrecte ou contenant des références à des définitions d'objets introuvables.

Peux-tu résoudre ce problème?

Merci pour ton Aide.

Lou3313.

   
Répondre à lou3313

7

Mike-31, le 27 jun 2009 à 16:21:16

Salut,

Ta combobox est sur la feuille ou sur une Userform !

Si elle est sur la feuille,
mets toi en mode création, double clic sur la combobox, ce qui va t'ouvrir la feuille des

propriétés

Dans ListFillRange saisie P1:P20 et dans ListFillRange et dans linkedcell saisis A1 ensuite sur la feuille tu auras le début du code

Private Sub ComboBox1_Change()

End Sub

Entre les deux lignes colles ces deux lignes

[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell = [A1]

Si tu recontres un problème reviens sur le forum


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstei­n)

   
Répondre à Mike-31

9

lou3313, le 27 jun 2009 à 23:24:27

Salut,

Désolé mais ça ne fonctionne toujours pas.

Je m'explique peut-être mal, je te réitère mon problème.

J'ai une feuille nommée (Prestations janvier)

Sur cette feuille j'ai crée une ComboBox1

Dans la fenêtre de propriété à listFilRange j'ai sélectionné P1:P24

Dans ma liste, dès que je clique sur un nom ,il s'affiche. jusque là aucun souci

A noter: ma liste déroulante se trouve en E7

Ce que je souhaiterais, c'est lorsque je clique sur un des noms de ma liste déroulante, il doit
s'afficher en E9 et ainsi de suite jusqu'a E18.

Nota: les noms sélectionnés dans ma liste peuvent être les mêmes ou différent.

Exemple, j'ai Robert, Suzane, Francis,Antoine, si je clique sur Antoine, il Doit s'afficher en E9; puis si je clique sur Francis, il doit s'afficher en E10; puis si je clique su Suzane, il doit s'afficher en E11. et ainsi de suite sans effacer les noms sélectionnés dans les cellules
Merci pour ton aide, Salut!

   
Répondre à lou3313

8

eriiic, le 27 jun 2009 à 17:28:32

Bonjour tout le monde,

tu peux aussi lire toutes les réponses et regarder l'exemple du post 2...
eric

   
Répondre à eriiic

10

Mike-31, le 28 jun 2009 à 00:39:17

Re,

Si tu avais expliqué clairement tes attentes, ton problème aurait été résolu depuis longtemps, Eriiic te proposait un bon début de code et avec ces dernières précisions il ajoutais deux lignes et le tour était joué

http://cjoint.com/?gCaHd4mQNW

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstei­n)

   
Répondre à Mike-31

11

lou3313, le 28 jun 2009 à 09:11:58

Salut Mike,

ça fonctionne.

Merci, pour ton aide et excuse moi de ne pas avoir été plus explicite la première fois.

Merci encore et un Grand Salut.

   
Répondre à lou3313

12

eriiic, le 28 jun 2009 à 11:19:30

De rien lou3313 !!!

   
Répondre à eriiic

13

lou3313, le 29 jun 2009 à 16:04:48

Bonjour,

J'ai un souci avec ma liste déroulante.

Si par inadvertance, je me trompe dans la sélection d'un nombre de ta liste déroulante, et que je l'efface puis après réflexion le sélectionné à nouveau, je ne peux pas.

D'autre part, je ne peux pas sélectionner plusieurs fois le même nombre à la suite.

Est-il possible d'y remédier, si oui peux-tu m'aider.

Salut et A+

   
Répondre à lou3313

14

 Mike-31, le 29 jun 2009 à 17:51:35

Salut,

Testes ce code, colles le à la place de celui qui est sur mon exemple

Private Sub ComboBox1_Change()
If Range("E9") = "" Then
[E9] = [A1]
Else
[E1000].End(xlUp).Offset(1, 0).Select
ActiveCell = [A1]
End If
ComboBox1.Value = ""
ActiveCell.Clear
Exit Sub
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

   
Répondre à Mike-31
Posez votre question Répondre
Ils ont besoin de votre aide