VBA Remplacer "N/A" par cellule vide
Résolu
actaris51
Messages postés
93
Date d'inscription
Statut
Membre
Dernière intervention
-
jjsteing Messages postés 1670 Date d'inscription Statut Contributeur Dernière intervention -
jjsteing Messages postés 1670 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- VBA Remplacer "N/A" par cellule vide
- Remplacer disque dur par ssd - Guide
- Supprimer page word vide - Guide
- Excel compter cellule couleur sans vba - Guide
- Remplacer par word - Guide
- Caractere vide - Guide
5 réponses
Bonjour,
Ce n'est pas le N/A d'Excel, mais un texte
En fait ma question pirrait tres bien etre :
j'ai parfois des cellules qui ont la valeur "toto"
Ce n'est pas le N/A d'Excel, mais un texte
En fait ma question pirrait tres bien etre :
j'ai parfois des cellules qui ont la valeur "toto"
bonjour...
donc ce que tu veux c'est mettre ce "toto" en vide dans n importe quel feuille à n importe quel endroit c'est ca ?
si oui en vba :
Macro1()
donc ce que tu veux c'est mettre ce "toto" en vide dans n importe quel feuille à n importe quel endroit c'est ca ?
si oui en vba :
Macro1()
mot ="toto"
For Feuille = 1 To Sheets.Count
Worksheets(Feuille).Activate
With Worksheets(Feuille).Range("a1:zz500")
Set trouvé1 = .Find(mot, LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.Activate
trouvé1.value=""
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub 'Tu n'est pas obliger de mettre cette ligne
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq
End If ' si tu as enlever le 1er if, enleve aussi ca
End With
Next Feuille
end
re :)
y a moyen de changer
With Worksheets(Feuille).Range("a1:zz500")
par les vrais numéros de cellules utilisées.. si tu as un très très très grand tableau
y a moyen de changer
With Worksheets(Feuille).Range("a1:zz500")
par les vrais numéros de cellules utilisées.. si tu as un très très très grand tableau
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question