Discussion :

[jtc59]

Bonjour à tous
Dans une feuille de calcul j'ai une colonne avec des cellules contenant un nombre et du texte "( 2 234 345,87 frs )", je ne voudrais recopier dans une autre feuille les cellules de la colonne que le nombre, à savoir que le nombre peut avoir de 3 à plusieurs chiffres. Je n'ai pas accès au dossier source.
Ou comment je peux faire pour additionner des cellules contenant un nombre et le même texte ??
Merci de votre aide....

[Daniel.C]

Bonjour,

Les valeurs initiales sont en colonne A de Feuil1. Les résultats sont en Feuil2, colonne A :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Nombre()
    Dim C As Range, Plage As Range, Txt As String, X As Variant
    With Sheets("Feuil1")
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("Feuil2")
        For Each C In Plage
            Txt = ""
            For i = 1 To C.Characters.Count
                X = C.Characters(i, 1).Text
                If X = "," Or (X >= 0 And X <= 9) Then
                    Txt = Txt & X
                End If
            Next
            .Cells(C.Row, 1).Value = Txt
        Next C
    End With
End Sub

[papouclo]

Bonjour,
Bonjour jtc59, bonjour Daniel
Merci pour le code mais j'ai eu une petite mésaventure en faisant des essais.
Les nombres obtenus en Feuil2 sont au format texte et ne peuvent s'additionner.
Je m'en suis sorti en remplaçant la 15ème ligne de la macro
.Cells(C.Row, 1).Value = Txt
par 3 lignes :

Code :

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

1
2
3
	If Txt <> "" Then
            		.Cells(C.Row, 1).Value = CDbl(Txt)
            	End If

Je m' étais a priori contenté de remplacer la 15ème ligne par
.Cells(C.Row, 1).Value = CDbl(Txt)
mais dans ce cas cela coïnce en cas de cellules vides dans la colonne A.

En utilisant le coeur de la macro, ne serait-il pas intéressant d'écrire une fonction personnalisée qui permettrait une certaine souplesse d'emploi ?

Pour jtc59 , si la colonne (supposons A) ne contient que des données exactement au format de l'exemple donné, la somme peut se calculer avec la formule matricielle :

Code :

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

=SOMME(SI(A:A="";0;CNUM(GAUCHE(A:A;NBCAR(A:A)-4))))

à valider bien sûr avec ctrl + maj + entrée.
Cordialement
Claude

[Daniel.C]

Bonjour papouclo,

Tu travailles avec quelle version ? J'ai essayé les versions Windows de XL2003 à XL2013. J'obtiens directement le nombre au format numérique.