Texte a remplacer en nombres

Dormeur74

XLDnaute Occasionnel

• 29 Mai 2013

• #2

Re : Texte a remplacer en nombres

Une macro :

Code:

Sub Macro1()
    Dim i As Long
    
    ' Initialisation
    Cells(3, 6) = Val(Cells(3, 4))
    
    ' Cumul
    For i = 4 To Range("D" & Rows.Count).End(xlUp).Row
        Cells(i, 6) = Val(Cells(i - 1, 6)) + Val(Cells(i, 4))
    Next i
End Sub

 

Vote positif 0 Vote négatif

C

chris13

Guest

• 29 Mai 2013

• #3

Re : Texte a remplacer en nombres

ok j'ai remplacé mon fichier Excel avec des données non confidentielles !

Y a t'il une autre solution que la macro (que je ne sais pas utiliser !). n'y a t'il pas une fonction excel plus adaptée ..?

Merci

 

Pièces jointes

• ExempleExcelDowload1.xlsx

  11.9 KB · Affichages: 49
• ExempleExcelDowload1.xlsx

  11.9 KB · Affichages: 50
• ExempleExcelDowload1.xlsx

  11.9 KB · Affichages: 50

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 29 Mai 2013

• #4

Re : Texte a remplacer en nombres

Bonsour®

chris13 à dit:

Y a t'il une autre solution que la macro (que je ne sais pas utiliser !).

Cliquez pour agrandir...

🙄 pas une fonction une manipulation ...
sélectionner la colonne C en totalité (curseur dans la ligne d'entete)
Edition > remplacer
Rechercher : tapez ici la combinaison de touche Alt 0160 (en utilisant le pavé numérique)
Replacer : par rien (supprimer le contenu de la zone)
OK

et pis c'est tout !!🙄

autre solution par formule intermédiaire à recopier vers le bas

=1*SUBSTITUE(C3;CAR(160);"")

Cliquez pour agrandir...

puis copier la zone
Edition > Copier
Selectionner la 1er cellule correspondante de la colonne C
> Collage spécial : Valeur
supprimer la colonne intermédiaire

 

Dernière édition: 29 Mai 2013

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 29 Mai 2013

• #5

Re : Texte a remplacer en nombres

Les macros sont tellement simples et faciles à utiliser que tu devrais te lancer si tu aimes les stats.
Je te donne le mode d'emploi, tu en feras ce que bon te semble.
1) Alt+F11 pour aller dans l'éditeur VB
2) Insertion...Module pour ... insérer un nouveau module 😀
3) Tu colles dans la feuille de droite le code que je t'ai donné
4) Alt+Q pour revenir au tableur
5) Ctrl+S pour sauver ton travail
6) Alt+F8 pour sélectionner les macros disponibles
7) Tu sélectionnes Macro1 et "OK"

OUPS ! Percussion : bonjour Modeste geedee

 

Dernière édition: 29 Mai 2013

Vote positif 0 Vote négatif

C

chris13

Guest

• 29 Mai 2013

• #6

Re : Texte a remplacer en nombres

Bravo Modeste ! Une manip toute simple et si efficace .. maintenant nous n'avons plus a retaper les caractères en nombres (nous le faisions a la mano !). Rechercher et Remplacer .. je retiens

un grand merci !

 

Vote positif 0 Vote négatif