× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Problème avec un fichier excelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
atom04
  Posté le 02/11/2013 @ 12:07 
Aller en bas de la page 
Petit astucien

Bonjour,

Voilà j'ai un problème de mise en page d'une liste excel ci-jointe? et je suis bloqué

Cordialement

http://cjoint.com/?3KcmhfwZ6EI

Publicité
ferrand
 Posté le 02/11/2013 à 13:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Du vite fait à partir de ton modèle. Tu copies la macro ci-dessous, tu la colles dans un module standard (dans l'éditeur VBA: Insertion > Module) et tu l'affecte à ton contrôle DropDown (clic droit > Affecter une macro > sélection du nom de la macro > OK).

Les noms que tu sélectionnes dans ta liste déroulante seront successivement inscrits dans ta liste (première cellule vide à chaque sélection). Si la liste est complète (15 noms), pas d'inscription, un message t'indique qu'elle est complète. Si tu sélectionnes un nom déjà dans la liste, pas d'inscription, un message t'indique qu'il figure déjà.

Bonne continuation.

Sub SélectionListe()
Dim n%, i%, s$
With Worksheets("Feuil1")
For i = 3 To 17
If .Cells(i, 1).Value = "" Then
n = i
Exit For
End If
Next i
If n = 0 Then
MsgBox "La liste est complète : la sélection ne peut être ajoutée.", _
vbInformation, "Erreur de sélection"
Exit Sub
End If
With .DropDowns(1)
s = .List(.ListIndex)
End With
For i = 3 To 17
If .Cells(i, 1).Value = s Then
MsgBox "La sélection figure déjà dans la liste.", vbInformation, "Erreur de sélection"
Exit Sub
End If
Next i
.Cells(n, 1).Value = s
End With
End Sub

atom04
 Posté le 02/11/2013 à 17:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

j'ai bien copié la macro dans VBASIC par insertion -> module et ensuite comment affecté le controle Drop Down? il faut faire un clic droit sur quoi et affecté une macro comment?

je ne maîtrise pas trop VBA. excuse moi

A+

ferrand
 Posté le 02/11/2013 à 17:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

atom04
 Posté le 02/11/2013 à 18:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

re,

Ok j'ai réussi mais j'ai en ligne 5 colonne A un chiffre qui apparait et qui change à chaque fois que je sélectionne un prénom

fichier ci-joint

http://cjoint.com/?3KcsO2MzQr3

ferrand
 Posté le 02/11/2013 à 21:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Tu supprimes A5 en tant que cellule liée à ton contrôle (et tu effaces ce qu'elle contient) et tout rentrera dans l'ordre.

atom04
 Posté le 03/11/2013 à 09:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

re,

j'ai fais ce que tu m'a dit, mais j'ai les messages suivants; classeur1 htm introuvable et une erreur s'est produite au cours de l'initialisation des bibliothèques VBA 540040)

ferrand
 Posté le 03/11/2013 à 11:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Reprenons à zéro ! Voilà un modèle fonctionnel : http://cjoint.com/?CKdlI7fuMUZ

atom04
 Posté le 03/11/2013 à 19:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re,

Tout fonctionne normalement. Merci beaucoup pour ton dévouementbonne soirée.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
58,26 €SSD Crucial MX500 500 Go à 58,26 € livré
Valable jusqu'au 20 Septembre

Amazon Royaume-Uni propose actuellement le SSD Crucial MX500 500 Go à 47,99 £. Avec la conversion en euros et la livraison en France, il vous reviendra à 58,26 € livré. On le trouve ailleurs à partir de 70 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 3 ans.

Rappelons que vous pouvez utiliser votre compte Amazon France sur Amazon UK et qu'il n'y a pas de douane.


> Voir l'offre
9,99 €Câble plat Ethernet RJ45 Ugreen Cat 7 10 Gbps 5 m à 9,99 € avec le code E3YDPUMI
Valable jusqu'au 22 Septembre

Amazon fait une promotion sur le câble plat Ethernet RJ45 Ugreen Cat 7 10 Gbps 600 Mhz d'une longueur de 5 m à 9,99 € avec le code E3YDPUMI. On le trouve habituellement à 17,99 €. Pour profiter de l'offre, saisissez le code E3YDPUMI sur la page de paiement. La livraison en point relais est gratuite.


> Voir l'offre
135,88 €Mini PC Acute Angle AA-B4 (Celeron N3450, 8Go RAM, 64Go+SSD 128Go) à 135,88 €
Valable jusqu'au 22 Septembre

Gearbest fait une promotion sur l'ordinateur Acute Angle AA - B4 qui passe à 135,88 € au lieu de 180 € grâce au code promo GBCNSJXPC. Ce mini PC au design atypique et au corps en bois, intègre un processeur Intel Celeron N3450 (4 coeurs de 1,1 à 2,2 GHz), 8 Go de RAM, un espace de stockage de 64 Go EMMC ainsi qu'un SSD de 128 Go. Il possède également le WiFi5, le Bluetooth 5.0, une prise Ethernet Gigabit, 3 ports USB 3.0, une sortie HDMI. L'ordinateur est livré avec une prise électrique européenne. Il est accompagné de Windows 10 Familial. Avec ce PC, vous pourrez réaliser sans soucis toutes vos tâches courantes : internet, bureautique, multimédia.

Ce marchand sérieux se trouvant en Chine, la livraison peut prendre une quinzaine de jours. Comptez 5,62 € pour la livraison en France et l'assurance pour le transport. Vous pouvez payer par carte bancaire ou par Paypal (conseillé pour bénéficier de la garantie Paypal).


> Voir l'offre

Sujets relatifs
Problème à l'ouverture 1 fichier EXCEL
Fichier .csv avec Excel
Données d'un Fichier txt avec EXCEL
problème lecture fichier docx avec Open Office
Problème ouverture de fichier protégé dans Excel 2003
ouverture d'un fichier excel cree sur xp avec windows 7
Office Etudiant 2013 Excel, problème avec mes cellules
Probleme d'enregistrement avec excel 2007
Problème avec fichiers Word et Excel
Fichier en lecture seule avec Excel 2003 ?
Plus de sujets relatifs à Problème avec un fichier excel
 > Tous les forums > Forum Bureautique