Ignoré des cellules contenant du texte en VBA
Résolu
viret1290
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
-
viret1290 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
viret1290 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un soucis, j'aimerai par macro effacer uniquement des cellules contenant du text.
merci d'avance de votre aide
J'ai un soucis, j'aimerai par macro effacer uniquement des cellules contenant du text.
merci d'avance de votre aide
A voir également:
- Ignoré des cellules contenant du texte en VBA
- Excel cellule couleur si condition texte - Guide
- Transcription audio en texte word gratuit - Guide
- Verrouiller des cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Mettre un texte en majuscule - Guide
4 réponses
bonjour,
Essaies :
Essaies :
Option Explicit
Sub xxx()
Dim c As Range
With ThisWorkbook.Worksheets("Feuil1").Cells
For Each c In .SpecialCells(xlCellTypeConstants)
If VarType(c.Value) = vbString Then c.ClearContents
Next
End With
End Sub
Merci pour votre réponse ça fonctionne, mais j'aimerai maintenant faire la chose suivante:
avec une boucle FOR j'aimerai additionner le nombre qui se trouve dans une série de cellule, mais si une des cellules contient du texte passer à la suivante.
merci d'avance
avec une boucle FOR j'aimerai additionner le nombre qui se trouve dans une série de cellule, mais si une des cellules contient du texte passer à la suivante.
merci d'avance
Bonjour Viret, Patrice
une alternative avec la plage de cellules définies par ex "A2:F18"
(si tableau dynamique, me dire l'adresse de la cellule en haut et à gauche)
une alternative avec la plage de cellules définies par ex "A2:F18"
(si tableau dynamique, me dire l'adresse de la cellule en haut et à gauche)
Option Explicit
'-----------------------------
Sub xxx()
Dim plage As Range
Dim somme As Double, nbr_txt As Integer, Cptr As Integer
Set plage = Range("A2:F18")
With Application
.ScreenUpdating = False
somme = .Sum(plage)
nbre_txt = .CountA(plage) - .Count(plage)
For Each cellule In plage
If .IsText(cellule) Then
cellule.ClearContents
Cptr = Cptr + 1
If Cptr > nbre_txt Then Exit For
End If
Next
End With
MsgBox "somme " & somme
End Sub
