Effacer un contenu spécifique : Résolu/Fermé

Question

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 

Configuration: Windows 7 / Firefox 33.0

Chris 94 · Answer

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...).

cyrga11 · Answer

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 !

Maurice · Answer

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

cyrga11 · Answer

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 :)

Maurice · Answer

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

cyrga11 · Answer

Merci à toit d'avoir pris de ton temps pour mon problème. Très sympa ;)

Effacer un contenu spécifique :

6 réponses

Discussions similaires