Discussion :

[juliensea]

Bonjour,

Je suis à la recherche d'un code pour inserer apres un texte déja présent dans une cellule , les caracteres suivant "°C" explication:

j'ai une cellule qui contient 23,4 et je souhaite qu'elle se transforme en 23,4°C et sur toutes les cellules de la colonne (colonne B)

Merci d'avance

[laetitia]

bonjour juliensea pour cela il faut utiliser format personnalisée plus simple non??

si tu tiens vraiment a une macro !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub es()
Dim x As Variant, r As Long, c As Long
  Application.ScreenUpdating = False
    x = Range("B1", Cells(Rows.Count, "B").End(xlUp))
     For r = 1 To UBound(x, 1)
     For c = 1 To UBound(x, 2)
      If IsNumeric(x(r, c)) Then x(r, c) = x(r, c) & "°C"
          Next c: Next r
   Range("B1", Cells(Rows.Count, "B").End(xlUp)) = x
End Sub

[Didier Gonard]

juliensea : sur toutes les cellules de la colonne (colonne B)

laetitia : bonjour juliensea pour cela il faut utiliser format personnalisée plus simple non??

C'est très vrai... même en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activesheet.Columns(2).NumberFormat = "#.##"" °C"""

cordialement,

Didier

[juliensea]

Merci à tous les deux pour vos solutions. Elles fonctionnent toutes les deux cependant pour une question d'affichage, j'utiliserai celle de Laeticia. Merci Ormonth.

[laetitia]

re,

je suis surprise!!!! que tu prends pas le code de l'ami Didier bien plus simple???