Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Effacer cellules

Effacer cellules

6 réponses
Avatar
Jacquouille
Bonjour
En A1:C10, les cel sont colorées en jaune et certains mots sont écrits,
parmi lesquels il y a "merdum" que je veux effacer.
La macro suivante efface bien les "merdum", mais la souri bouffe quelques
cel qui étaient en jaune fromage), autrement dit, il y a quelques cel qui se
décolorent et pas nécessairement celles où figuraient les "merdum";
Z AV une ID svp?
Un grand merci et bon réveillon
Mes meilleurs oeufs pour l'an nouveau et merdum pour celui qui s'achève.
----------------
Sub AAeffacer_Merdum()
For Each c In Range("a1:c10")
If c = "merdum" Then
c.Delete
End If
Next
End Sub
---------------
Jacques

--
Jacquouille conseille : http://www.excelabo.net

NoSpam_j.thiernesse@skynet.be
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
Salut Jacquouille,

A mon avis, avec delete tu supprime tout.
essaies c.value = ""
Bon reveillon et bonne annee a tous
A+
JLuc

Bonjour
En A1:C10, les cel sont colorées en jaune et certains mots sont
écrits, parmi lesquels il y a "merdum" que je veux effacer.
La macro suivante efface bien les "merdum", mais la souri bouffe
quelques cel qui étaient en jaune fromage), autrement dit, il y a
quelques cel qui se décolorent et pas nécessairement celles où
figuraient les "merdum";
Z AV une ID svp?
Un grand merci et bon réveillon
Mes meilleurs oeufs pour l'an nouveau et merdum pour celui qui
s'achève. ----------------
Sub AAeffacer_Merdum()
For Each c In Range("a1:c10")
If c = "merdum" Then
c.Delete
End If
Next
End Sub
---------------
Jacques


Avatar
Daniel.M
Bonjour Jacques,

c.ClearContents n'irait-il pas mieux? Delete détruit la cellule et ramène des
cellules de droite (ou de gauche, d'en haut, d'en bas) pour la remplacer.

D'autre part, si tu rencontres des valeurs d'erreurs (#NA ou #DIV/0!), la
routine génèrera une erreur.

Sub AAeffacer_Merdum()
For Each c In Range("a1:c10")
If Not IsError(c) Then
If c = "merdum" Then
c.ClearContents
End If
End If
Next
End Sub

Salutations,

Daniel M.

"Jacquouille" wrote in message
news:
Bonjour
En A1:C10, les cel sont colorées en jaune et certains mots sont écrits,
parmi lesquels il y a "merdum" que je veux effacer.
La macro suivante efface bien les "merdum", mais la souri bouffe quelques
cel qui étaient en jaune fromage), autrement dit, il y a quelques cel qui se
décolorent et pas nécessairement celles où figuraient les "merdum";
Z AV une ID svp?
Un grand merci et bon réveillon
Mes meilleurs oeufs pour l'an nouveau et merdum pour celui qui s'achève.
----------------
Sub AAeffacer_Merdum()
For Each c In Range("a1:c10")
If c = "merdum" Then
c.Delete
End If
Next
End Sub
---------------
Jacques

--
Jacquouille conseille : http://www.excelabo.net






Avatar
Jacquouille
Je vous remercie tous deux.
Manière de foutre la "merdum", quel est le meilleur vocable ,
c.ClearContents ou c.value = "" ???
Encore mille mercis et meilleurs oeufs.



--
Jacquouille conseille : http://www.excelabo.net


"Daniel.M" a écrit dans le message news:

Bonjour Jacques,

c.ClearContents n'irait-il pas mieux? Delete détruit la cellule et ramène
des

cellules de droite (ou de gauche, d'en haut, d'en bas) pour la remplacer.

D'autre part, si tu rencontres des valeurs d'erreurs (#NA ou #DIV/0!), la
routine génèrera une erreur.

Sub AAeffacer_Merdum()
For Each c In Range("a1:c10")
If Not IsError(c) Then
If c = "merdum" Then
c.ClearContents
End If
End If
Next
End Sub

Salutations,

Daniel M.

"Jacquouille" wrote in message
news:
Bonjour
En A1:C10, les cel sont colorées en jaune et certains mots sont écrits,
parmi lesquels il y a "merdum" que je veux effacer.
La macro suivante efface bien les "merdum", mais la souri bouffe
quelques


cel qui étaient en jaune fromage), autrement dit, il y a quelques cel
qui se


décolorent et pas nécessairement celles où figuraient les "merdum";
Z AV une ID svp?
Un grand merci et bon réveillon
Mes meilleurs oeufs pour l'an nouveau et merdum pour celui qui s'achève.
----------------
Sub AAeffacer_Merdum()
For Each c In Range("a1:c10")
If c = "merdum" Then
c.Delete
End If
Next
End Sub
---------------
Jacques

--
Jacquouille conseille : http://www.excelabo.net










Avatar
AV
Je vous remercie tous deux.
Manière de foutre la "merdum", quel est le meilleur vocable ,
c.ClearContents ou c.value = "" ???


c.Value = zzzzzzzzzzzzzzzz

;-)
AV

Avatar
Clément Marcotte
Là, il risque de voir des zinconnus dans son fichier :-)


"AV" a écrit dans le message de
news:
Je vous remercie tous deux.
Manière de foutre la "merdum", quel est le meilleur vocable ,
c.ClearContents ou c.value = "" ???


c.Value = zzzzzzzzzzzzzzzz

;-)
AV





Avatar
Jacquouille
Z A V pas l'impression qu'il veut foutre la "merdum" dans le truc ?
Merci pour cette bonne réponse largement commentée.-))

--
Jacquouille conseille : http://www.excelabo.net


"AV" a écrit dans le message news:

Je vous remercie tous deux.
Manière de foutre la "merdum", quel est le meilleur vocable ,
c.ClearContents ou c.value = "" ???


c.Value = zzzzzzzzzzzzzzzz

;-)
AV