Discussion :

[S.Mag]

Bonjour,

j'ai une colonne contenante des cellules avec soit des nombres soit du textes. mais en cliquant sur le format j'ai standard, donc pas de différence en tant que format entre les 2 types de cellules.
Comment puis je faire d'une manière automatique en VBA, pour trouver le format de la cellule nombre (INTEGER) et la cellule texte (STRING ) pour après supprimer automatiquement dans la colonne N1:N120 les cellules contenant du texte?

Pour supprimer je peux bien utiliser ce code, mais avant je dois changer le format en string pour le texte et integer pour les autres car sinon avec ce code ça supprime les 2 types!!!!

merci pour vos propositions!

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub replaceEx()
Dim orig As String, wb As Workbook
Dim correct
 
Set wb = Workbooks.Open("Z:\VBA\copyColumns.xlsx")
 
orig = wb.Sheets("Feuil1").Range("N3")
correct = Replace(orig, orig, "")
Range("N3").Value = correct
End Sub

Cheers!

[goldstar]

Bonjour,

il faut tester avec la fonction IsNumeric

Code :

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

1
2
3
if IsNumeric(laCellule)=true then
 
endif

Cordialement,

[S.Mag]

Bonjour,

il faut tester avec la fonction IsNumeric

Code :

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

1
2
3
4
5
 
 
if IsNumeric(laCellule)=true then
 
endif

Cordialement,

vous avez raison c'était ça

merci beaucoup!

voiçi le code qui fonctionne parfaitement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub replace()
Dim orig As String, wb As Workbook
Dim correct
 
Set wb = Workbooks.Open("Z:\VBA\copyColumns.xlsx")
For i = 1 To 6
If IsNumeric(wb.Sheets("Feuil1").Cells(i, 14)) = False Then
wb.Sheets("Feuil1").Cells(i, 14).ClearContents
End If
Next i
End Sub

[78chris]

Bonjour

Ne pas confondre format et type. Intéresse-toi aux fonctions disponibles dans VBA, IsNumeric notamment

On ne supprime pas un contenu de cellule en y plaçant une chaîne vide : même si Excel est assez permissif, ce n'est pas logique. Utiliser ClearContents