Format personnalisé

joseph974 · 6 Janvier 2013

Bonsoir
Et meilleur voeux 2013 à tous,

J'ai 4 colonnes d'un tableau excel
Colonne A : 1 nombre
Colonne B : 1 nombre
Colonne C : une valeur texte (Kg, L, ml etc...)
Colonne D : Total des lignes des col A et B
Je souhaiterais, pour chaque ligne de la colonne D, utiliser comme format personnalisé la valeur de la colonne C, sans utiliser la fonction "CONCATENER" ou autre qui formaterais la colonne D en texte. Je veux garder la colonne D en format numérique.
Peu m'importe si je dois utiliser du VBA ou une fonction d'Excel.
Ah! j'oubliais. Pas de formule matricielle non plus.

Merci d'avance pour vos réponses.

ROGER2327 · 6 Janvier 2013

Re : Format personnalisé

Bonsoir joseph974.

Essayez ceci :

VB:

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Plg As Range, Cel As Range
    Set Plg = Intersect(Columns(3), Cible)
    If Not Plg Is Nothing Then
        For Each Cel In Plg.Cells
            Cel.Offset(, 1).NumberFormat = "General " & """" & Cel.Value & """"
        Next
    End If
End Sub

ROGER2327
#6360

Lundi 9 Décervelage 140 (Dormition de Jacques Vaché, Interprète - fête Suprême Quarte)
17 Nivôse An CCXXI, 8,5389h - marne
2013-W01-7T20:29:36Z

kjin · 6 Janvier 2013

Re : Format personnalisé

Bonsoir,
Voir PJ

Edit : salutations et meilleurs voeux Roger

A+
kjin

chris · 6 Janvier 2013

Re : Format personnalisé

Bonjour
Coucou Roger, Kjin

On peut combiner les formats personnalisés avec une MFC...

joseph974 · 6 Janvier 2013

Re : Format personnalisé

Bonsoir kjin,
votre macro me conviens tout à fait. j'ai fait quelques modifications pour l'adapter à mon fichier.
Merci beaucoup

Désolé ROGER2327, mais votre solution n'a pas fonctionné chez moi. Peut-être l'ai mal inséré.
Merci quand même pour votre aide

Bonsoir Chris,
Une mfc, tout comme une formule matricielle n'était pas possible,il fallait que je passe soit par une procédure soit par une fonction.
Merci pour votre intervention

mon problème est résolu.

ROGER2327 · 6 Janvier 2013

Re : Format personnalisé

Re...

joseph974 à dit:
(...) votre solution n'a pas fonctionné chez moi. Peut-être l'ai mal inséré. (...)

Peut-être...

ROGER2327
#6361

Lundi 9 Décervelage 140 (Dormition de Jacques Vaché, Interprète - fête Suprême Quarte)
17 Nivôse An CCXXI, 8,9997h - marne
2013-W01-7T21:35:57Z

Format personnalisé

joseph974

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

joseph974

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Discussions similaires