Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel chiffres non numérique

chiffres non numérique

3 réponses
Avatar
Alain Lebayle
Bonjour,
Je pense que cette question a déjà été posée, mais malgré mes
recherches, je ne trouve pas de réponses.
Voilà, j'ai un fichier Excel qui contient des données qui ont été
exportées et donc impossible de faire un calcul avec...
ET comme je ne veux pas double-cliquer sur chaque cellule ;-)
Je vous remercie
Alain
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

http://boisgontierjacques.free.fr/pages_site/Conversion.htm

JB

On 21 avr, 19:02, Alain Lebayle
wrote:
Bonjour,
Je pense que cette question a déjà été posée, mais malgré mes
recherches, je ne trouve pas de réponses.
Voilà, j'ai un fichier Excel qui contient des données qui ont été
exportées et donc impossible de faire un calcul avec...
ET comme je ne veux pas double-cliquer sur chaque cellule ;-)
Je vous remercie
Alain
Avatar
michdenis
Bonjour,

L'exécution de cette macro devrait ta difficulté.

Tu adaptes le nom de la feuille et de la plage à traiter.

'--------------------------------
Sub test()

Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Feuil1") ' Nom à adapter
With .Range("IV65536") ' Plage à adapter
.Value = 1
.Copy
End With
With .Range("B1:B" & .Range("B65536").End(xlUp).Row)
.Replace what:=Chr(160), replacement:="", LookAt:=xlPart
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
With .Range("IV65536") 'Choisir une cellule libre
.Value = ""
End With
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
'--------------------------------



"Alain Lebayle" a écrit dans le message de groupe de
discussion :
Bonjour,
Je pense que cette question a déjà été posée, mais malgré mes
recherches, je ne trouve pas de réponses.
Voilà, j'ai un fichier Excel qui contient des données qui ont été
exportées et donc impossible de faire un calcul avec...
ET comme je ne veux pas double-cliquer sur chaque cellule ;-)
Je vous remercie
Alain
Avatar
Alain Lebayle
Bonsoir,
Un très grand merci à tous...
Très bonne soirée
Alain

michdenis a écrit :
Bonjour,

L'exécution de cette macro devrait ta difficulté.

Tu adaptes le nom de la feuille et de la plage à traiter.

'--------------------------------
Sub test()

Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Feuil1") ' Nom à adapter
With .Range("IV65536") ' Plage à adapter
.Value = 1
.Copy
End With
With .Range("B1:B" & .Range("B65536").End(xlUp).Row)
.Replace what:=Chr(160), replacement:="", LookAt:=xlPart
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
With .Range("IV65536") 'Choisir une cellule libre
.Value = ""
End With
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
'--------------------------------



"Alain Lebayle" a écrit dans le message de groupe de
discussion :
Bonjour,
Je pense que cette question a déjà été posée, mais malgré mes
recherches, je ne trouve pas de réponses.
Voilà, j'ai un fichier Excel qui contient des données qui ont été
exportées et donc impossible de faire un calcul avec...
ET comme je ne veux pas double-cliquer sur chaque cellule ;-)
Je vous remercie
Alain