> Tous les forums > Forum Bureautique
 [Unité personnalisée par macro Excel] Résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Magnan
  Posté le 13/04/2013 @ 12:25 
Aller en bas de la page 
Astucien

Bonjour,

dans un classeur j'ai une cellule dans laquelle l'utilisateur indique l'unité dans laquelle il travaille (Kg, K€, piéce, ...]

chaque utlisateur peut donc indiquer "son" unité.

D'autres feuilles de calcul doivent reprendre cette unité (Cellule d'affichage et/ou issues de calculs).

Comment par une macro récupéré cette unité, pour l'intégrer dans un format personnalisé afin que les celllules affichent le résultat et l'unité ?

Ppar exemple :

Feuille parametre

Cellule C10

Contenu : individu

C'est l'unité de l'utilisateur

Feuille resulat

Cellule Z39

Contenu : =recherchev(C9;zone;4)

Resultat obtenu : 45,00

Résultat souhaité : 45,00 individu

Sachant que le contenu de parametre!C10 peut, à son tour, être utilisé dans une autre formule.

Créer un format personnalisé, je sais faire. Mais il ne s'agit pas d'un format mais de nombreux formats.

Merci d'avance.



Modifié par Magnan le 15/04/2013 18:51
Publicité
ferrand
 Posté le 14/04/2013 à 10:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Résultat souhaité : 45,00 individu

Tu subdivises les "individus"

Dans ce cas tu pourrais avoir un format de nombre tel que : 0" individus" ou 0" individus";; selon choix

A-priori je pense qu'il te faut faire une macro qui à la sélection d'un unité formate formate les cellules concernées au format de nombre pré-établi pour cette unité.

Mais pour compléter je ne pense pas que simplement inscrire un nom d'unités quelconque dans une cellule te permette des formats élaborés. D'où je conseillerais volontiers, choix d'unités sur liste, assorti d'une procédure d'ajout d'unités à la liste en définissant le format pour l'unité ajoutée (et affectation du format à une cellule témoin, identifiable par une recherche à partir du choix dans la liste, de façon à prélever le format voulu par la propriété NumberFormat [beaucoup plus confortable dans une macro que d'avoir à écrire certains formats plus ou moins remplis de guillemets...]).

Magnan
 Posté le 15/04/2013 à 15:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Voici le code qui fonctionne :

Sub test()
Dim Unite As String Unite = Sheets("Feuil1").Range("$A$1").Value
Sheets("Feuil1").Range("$C$1").NumberFormat = "#,##0" & """ " & Unite & """;""-""#,##0" & """ " & Unite & """"
End Sub
Bonne journée.
Je marque le sujet comme étant résolu.
Boogie Palace
 Posté le 15/04/2013 à 17:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour,

pour marquer un sujet comme résolu sur ce forum :

Magnan
 Posté le 15/04/2013 à 18:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Merci Boogie Palace pour tes chauds conseils.;

Forumeur sur PCASTUCES depuis tres trés longtemps je sais ce qu'il faut faire ne t'en déplaise.

Mais, je dois être poursuivi par une sacre guigne depuis de si nombreuses années.

Malgré la coche bien souvent la mention RESOLU n'apparait pas. D'ou mon ajout dans le titre.

Il te faudra faire avec

Là je viens d'y arriver en changeant de navigateur. Chrome au lieu de Crazy Browser.

A+



Modifié par Magnan le 15/04/2013 18:55
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
NAS 8 Baies Ugreen DXP8800 Plus (Intel Core i5-1235U, 8 Go DDR5, 2x10 GbE, cache NVMe)
1225,49 € 1499 € -18%
@Amazon Allemagne
Boîtier SSD M.2 NVMe UGREEN USB 3.2 Type C
18,39 € 22,99 € -20%
@Amazon
16 Go de mémoire SO-DIMM DDR4 Crucial 3200 MHz
27,58 € 55,99 € -51%
@Amazon
Ecran portable 16 pouces AOSIMAN 161FIJ (FHD 1920x1080, 60 Hz, IPS, USB-C, WiFi, HDMI, HP)
129 € 186 € -31%
@Amazon
Ecran portable 13.4 pouces AOSIMAN P134UCC (4K 3840x2400, 60 Hz, IPS, USB-C, HDMI, HP)
139 € 177 € -21%
@Amazon
Routeur TP-Link Archer AX58 WiFi 6
51,03 € 89,99 € -43%
@Amazon Allemagne

Sujets relatifs
Mot de passe sur une Macro Excel [résolu]
Excel macro positionnement texte Résolu
excel macro selection cellules vides Résolu
excel: macro sur feuille protégée ?..(résolu)
Autoriser macro sous excel 2002 -résolu-
RESOLU Macro Excel. Arrière plan et récuperation
Excel: Macro sans defilement écran: RESOLU
Macro Excel pour masquage conditionnel - Résolu
RESOLU Excel - Lancement de macro automatique
2 pages par feuille dans macro excel
Plus de sujets relatifs à [Unité personnalisée par macro Excel] Résolu
 > Tous les forums > Forum Bureautique