Format personnalisé

Résolu
joseph974 -  
Bonjour,
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 nombres col A et Col 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'oublais. Pas de formule matricielle non plus.

Merci d'avance pour vos réponses.

4 réponses

  1. Heliotte
    Bonsoir joseph974,4

    Directement dans la formule :
    =A1+B1 &" " &(C1)
    0
    1. joseph974 Auteur
      Bonsoir Heliotte,

      Déjà essayé. Le format de la colonne se transforme en texte et j'ai besoin de garder le format en numérique pour de calculs ultérieurs.

      Merci pour ton aide
      0
      1. Heliotte
        Bonsoir joseph974,

        Pas d'accord avec vous, car il existe deux méthodes:

        Principe de départ :
        - "A" = nombre
        - "B" = nombre
        - "C" = texte
        - "D" = "A" + "B" + " " + "C"

        Solutions :
        1° : "E" ="A" + "B"
        2° : "E" =GAUCHE(D1;NBCAR(D1)-NBCAR(C1)-1)

        Voilà
        0
        1. joseph974 Auteur
          Bonsoir Heliotte,

          Effectivement votre méthode fonctionne, mais additionnée à mon calcul sur cette colonne, n'aurait fait que l'alourdir.
          Aussi je suis passé par une macro VBA de type :
          Private Sub Worksheet_Change(ByVal Cible As Range)
          Dim Plg As Range, Cel As Range
          Set Plg = Intersect(Columns(4), 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

          Merci encore pour votre aide
          0