Sujet Précédent Sujet Suivant

Effacer un contenu spécifique :

Résolu/Fermé
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014 - Modifié par cyrga11 le 28/11/2014 à 12:17
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014 - 28 nov. 2014 à 18:42
Bonjour,

Voici mon problème :

J'ai 12 colonnes que voici :

D4:D34
H4:H34
L4:L34
P4:P34
T4:T34
X4:X34
AB4:AB34
AF4:AF34
AJ4:AJ34
AN4:AN34
AR4:AR34
AV4:AV34

Ensuite j'ai 6 boutons associé chacun à une lettre : a, f, k, e, l, d

Je voudrait que chaque bouton puisse retrouver dans les colonnes la lettre qui lui est attribué et qu'il n'efface que ça lettre. Donc, que le bouton du a n'efface dans les 12 colonne que la lettre a et pareil pour les autres boutons avec leur lettres respective.

J'ai trouvé ceci sur internet, mais cela m'affiche une erreur 400 et m'efface toute les lettres.

Sub A_Cliquer()
Dim cellule As Range
Application.ScreenUpdating = False
Range("D4:D34").Value = ""
Range("H4:H34").Value = ""
Range("L4:L34").Value = ""
Range("P4:P34").Value = ""
Range("T4:T34").Value = ""
Range("X4:X34").Value = ""
Range("AB4:AB34").Value = ""
Range("AF4:AF34").Value = ""
Range("AJ4:AJ34").Value = ""
Range("AN4:AN34").Value = ""
Range("AR4:AR34").Value = ""
Range("AV4:AV34").Value = ""
For Each cellule In ActiveSheet.UsedRange
If cellule = a Then cellule.ClearContents
Next cellule
Application.ScreenUpdating = True
End Sub

Merci a ceux qui pourront m'apporter leur aide

6 réponses

Réponse 1 / 6
Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 325
28 nov. 2014 à 12:06
Bonjour,

Les réponses sont données par des personnes, pas par des robots. Merci d'user des formules de politesse courante (bonjour, merci, s'il vous plait...).
0
Réponse 2 / 6
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014
Modifié par cyrga11 le 28/11/2014 à 12:16
Le bonjour a était mis et le merci oublier ce qui peux arriver !

Alors merci a ceux qui voudront bien m'aider. J'ai toujours était poli sur ce site !
0
Réponse 3 / 6
Maurice
28 nov. 2014 à 12:39
Bonjour

sans modele de ton fichier on peux pas faire grand chose

voila une astuce pour la lettre "A"

Sub TestLettre()
'Range("D4:D34").Value = ""
Col = 2
For Lig = 4 To 34
Cells(Lig, Col).Value = Replace(Cells(Lig, Col).Value, "A", "")
Next
End Sub

A+
Maurice
0
Réponse 4 / 6
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014
28 nov. 2014 à 17:03
J'ai pu m'arranger avec ton code comme ceci :

Sub TestLettre()
Cells(4, 4).Value = Replace(Cells(4, 4).Value, "a", "")
End Sub

Et j'ai répété la ligne de code entre Sub et End Sub jusqu'à la ligne 34 et pareil pour chacune de mes colonnes.

C'est un peu plus long, mais cela fonctionne et je te remercie beaucoup Maurice pour ton aide précieuse :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Maurice
28 nov. 2014 à 18:39
Re

Voila la meme macro sur 12 colonne

Sub MultiColonne()
NbLig = Range("A" & Rows.Count).End(xlUp).Row
For Col = 1 To 12
For Lig = 4 To NbLig
Cells(Lig, Col).Value = Replace(Cells(Lig, Col).Value, "A", "")
Next
Next
End Sub

A+
Maurice
0
Réponse 6 / 6
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014
28 nov. 2014 à 18:42
Merci à toit d'avoir pris de ton temps pour mon problème. Très sympa ;)
0

Discussions similaires

Savoir de quel ville à été envoyé le message
pedro1209 -
Pierr10 -

7 réponses
un périphérique qui n'existe pas a été spécifié
KyzeK -
Moi -

9 réponses
Youtube: Ce contenu n'est pasdisponible dans votre pays
nesrinedu30 -
Ref1 -

10 réponses
Pokémon X et Y : comment effacer une partie ?
PokéFan -
yoshiedu13 -

49 réponses
Contenue masqué
Hippolyte -
Hippolyte -

6 réponses