Sub convertirNombre ( ) Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If Not Worksheet Function.IsNonText(plagecell) Then plagecell .Value = Worksheet
Sub convertirphrase() Dim plagecell As Range For Each plagecell In Selection If WorksheetFunction.IsText(plagecell) Then plagecell.Value = UCase(Left(plagecell, 1)) & LCase(Right(plagecell, Len(plagecell) – 1)) End If
Sub convertirminiscule() Dim plagecell As Range For Each plagecell In Sélection If Application.Worksheet Function.IsText(plagecell) Then plagecell.Value= LCase(plagecell) End If Next End Sub Ce code vous
Sub convertirmajuscule() Dim plagecell As Range For Each plagecell In Selection If Application.WorksheetFunction.IsText(plagecell) Then plagecell.Value = UCase(plagecell) End If Next End Sub Sélectionnez les cellules
Sub convertirdate() Dіm tempCell Aѕ Rаngе Sеlесtіоn.Vаluе = Selection.Value For Eасh tempCell In Selection If IѕDаtе(tеmрCеll) = True Thеn Wіth tеmрCеll .Vаluе = Yеаr(tеmрCеll) .NumbеrFоrmаt
Sub datejour() Dim tempCell As Range Selection.Value = Selection.Value For Each tempCell In Selection If IsDate(tempCell) = True Then With tempCell .Value = Day(tempCell) .NumberFormat
Sub convertirformules() Dim MyRange As Range Dim MyCell As Range Select Case _ MsgBox (“Vous ne pouvez pas annuler cette action. ” _ & “Enregistrer
Sub ConvertirPlageImage() Application.CutCopyMode = False Selection.Copy ActiveSheet.Pictures.Paste.Select End Sub Coller la plage sélectionnée en tant qu’image. Vous n’avez qu’à sélectionner la plage et une fois
La fonction DEVISE convertit un nombre au format texte et applique un symbole monétaire. Le format monétaire sera arrondi à la décimale spécifiée. = DEVISE(nombre;
Dans cet exemple, les nombres saisis sous forme de texte doivent être convertis en valeurs. Pour ce faire, utilisez les fonctions CNUM et SUPPRESPACE en
