Ignoré des cellules contenant du texte en VBA
Résolu/Fermé
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
-
10 déc. 2015 à 18:37
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 11 déc. 2015 à 13:23
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 11 déc. 2015 à 13:23
A voir également:
- Ignoré des cellules contenant du texte en VBA
- Excel additionner des cellules - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller des cellules excel - Guide
- Mettre un texte en majuscule - Guide
- Transcription audio en texte word gratuit - Guide
4 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
11 déc. 2015 à 00:10
11 déc. 2015 à 00:10
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
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
2
11 déc. 2015 à 09:15
11 déc. 2015 à 09:15
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
11 déc. 2015 à 10:19
11 déc. 2015 à 10:19
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
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
2
11 déc. 2015 à 13:16
11 déc. 2015 à 13:16
Merci beaucoup, j'aimerai juste que le résultat s'affiche dans une cellule et non pas dans un message
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
2
11 déc. 2015 à 13:23
11 déc. 2015 à 13:23
Merci beaucoup
j'ai juste modifie le code pour qu'il fonctionne comme je le désirai.
merci michel m
j'ai juste modifie le code pour qu'il fonctionne comme je le désirai.
merci michel m