> Tous les forums > Forum Bureautique
 Créer une boîte de dialogue sous ExcelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gabrilou
  Posté le 13/02/2007 @ 16:28 
Aller en bas de la page 
Astucienne

Bonjour à tous,suite du sujet 13666 À partir de la macro suivante, je désire y ajouter une boîte de dialogue qui me demanderait de choisir une plage de cellules pour convertir des notes numériques en note littérale.

Sub Conversion()

'' Test Macro' Macro enregistrée le 2007-02-05 par Hélène' MsgBox("Dans quelle colonne se trouve la note finale à convertir en note littérale ? ? Exemple : de T21 à T42"

For Each o In Range("c22:c42")

Select Case o.Value

Case Is >= 89.5: z = "A+"

Case Is >= 84.5: z = "A"

Case Is >= 79.5: z = "A-"

Case Is >= 76.5: z = "B+"

Case Is >= 72.5: z = "B"

Case Is >= 69.5: z = "B-"

Case Is >= 64.5: z = "C+"

Case Is >= 59.5: z = "C"

Case Is >= 56.5: z = "C-"

Case Is >= 53.5: z = "D+"

Case Is >= 49.5: z = "D"

Case Is >= 34.5: z = "E"

Case Is > 0: z = "F"

Case Else: z = "F*"

End Selecto.Offset(0, 1) = z

Next End Sub

Merci à l’avance de votre aide.

http://cjoint.com/?cnqyQxyryR



Modifié par Gabrilou le 13/02/2007 16:31
Publicité
Bérylion
 Posté le 13/02/2007 à 17:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


Salut

un truc dans ce genre la ? : http://cjoint.com/?cnrcKN36V3
Gabrilou
 Posté le 13/02/2007 à 17:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Rebonjour.

Merci pour la rapidité de la réponse. Comment as tu prévu que je rentre les valeurs, en admettant que je cherche à convertir les notes à partir de T21 à T42 ? Re-merci encore

galopin01
 Posté le 13/02/2007 à 17:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonsoir,

Ce n'est guère possible comme ça : La macro est prévu pour fonctionner sur une colonne et...
pour afficher le résultat sur la colonne suivante.

Tu peux toujours modifier la macro de cette manière :

For Each o In Selection
.
.. la suite sans changement

Ainsi la macro fonctionnera quelque soit la colonne sélectionnée.
Mais attention à bien prévoir une colonne vide à droite de ta sélection pour enregistrer le résultat (quitte à la déplacer ensuite)

A+

Gabrilou
 Posté le 13/02/2007 à 17:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour Galopin,

Excuse mon ignorance, mais je la colle à quel endroit de ma macro cette instruction ?

Gabrilou
 Posté le 13/02/2007 à 17:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Ok, Galopin.

J'ai compris. Ça fonctionne super.

Merci à vous deux. Bonne soirée

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
164,99 €SSD Interne M.2 NVMe Samsung 970 Evo Plus 1 To à 164,99 €
Valable jusqu'au 24 Avril

Amazon fait une promotion sur le SSD Interne M.2 NVMe Samsung 970 Evo Plus 1 To qui passe à 164,99 € livré gratuitement. On le trouve ailleurs autour de 180 €. Ce SSD offre des taux de transfert de 3400 Mo /s en lecture et 2300 Mo/s en écriture. 


> Voir l'offre
GratuitJeu PC Deponia: The Complete Journey gratuit
Valable jusqu'au 24 Avril

Epic Game Store offre actuellement le jeu PC The First Tree. Deponia est un jeu d'aventure de type point & click disponible sur PC. Aidez Rufus à quitter la planète poubelle de Deponia afin d'atteindre Elyseum, une planète de rêve. En chemin, celui-ci rencontre la jolie Goal, et compte bien s'en servir pour parvenir à ses fins.


> Voir l'offre
98,24 €SSD interne M.2 NVMe Kingston A2000 1 To à 98,24 € livré
Valable jusqu'au 24 Avril

Amazon Allemagne fait une promotion sur le SSD interne M.2 NVMe Kingston A2000 1 To qui passe à 93,68 € (avec la TVA ajustée). Comptez 4,56 € pour la livraison en France soit un total de 98,24 € livré au lieu de plus de 120 € ailleurs. Il offre des vitesses de lecture allant jusqu'à 2 200 Mo/s et 2 200Mo/s en écriture.


> Voir l'offre

Sujets relatifs
besoin d'aide, sous Excel, boîte de dialogue +++
Créer un message d'erreur sous excel 2007
COMMENT CREER DES GROUPES ALEATOIRES SOUS EXCEL
créer boîte de dialogue
Créer un graphique sous excel 2003 XP
créer une table sous excel
enregistrer sous grandeur boîte dialogue
Creer une fonction personnalisée sous Excel 2003
Macro : créer des lignes sous Excel
lien EXCEL / WORD boite de dialogue
Plus de sujets relatifs à Créer une boîte de dialogue sous Excel
 > Tous les forums > Forum Bureautique