[VBA-E] Détecter des Formules
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:
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