[VBA-E] Détecter des Formules

**gojira** · 21/04/2006, 16h50

Bonjour,

Je parcours un grand nombre de feuilles pour formatter des données.
Et si la cellule contient un chiffre avec virgule je voudrais le changer en chiffre avec un point.
Donc je détecte si le champ contenu dans la cellule est numérique.
Or une formule est numérique.
Comment détecter si une cellule contient une Formula?

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
19
20
21
22
23
Private Sub formatNumber()
' routine permettant de supprimer les virgules et les remplacer par des points sur toutes les feuilles
' et toutes les cellules
    Dim feuille As Variant
    Dim zone As Range
    Dim texte As String
    For Each feuille In Sheets
        If feuille.Name <> "SOMMAIRE" Then
            For Each zone In feuille.Range("A1:BE1000")
                texte = zone.Text
                If texte <> Empty And texte <> "" Then
                    If IsNumeric(texte) Then
                        If InStr(texte, ",") > 0 Then
                            Replace texte, ",", "."
                            zone.Text = CDbl(texte) 'plante si la Cellule contient une Formule
 
                        End If
                    End If
                End If
            Next zone
        End If
    Next feuille
End Sub

Merci beaucoup pour votre aide

**ouskel'n'or** · 21/04/2006, 17h17

Code :

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

1
2
3
4
5
6
7
8
9
    Worksheets("Feuil2").Select
    Cells.Select      'sélectionne toute la feuille
    Selection.Copy
    Sheets.Add      'ajoute une feuille où coller
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False 'ne colle que les valeurs
    Application.CutCopyMode = False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False ' remplace les , par des .