Effacer un contenu spécifique :
Résolu
cyrga11
Messages postés
48
Date d'inscription
Statut
Membre
Dernière intervention
-
cyrga11 Messages postés 48 Date d'inscription Statut Membre Dernière intervention -
cyrga11 Messages postés 48 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Effacer un contenu spécifique :
- Word a trouvé du contenu illisible - Guide
- Comment effacer un compte gmail - Guide
- Comment effacer un iphone - Guide
- Effacer les données de navigation sur android - Guide
- Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
6 réponses
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 !
Alors merci a ceux qui voudront bien m'aider. J'ai toujours était poli sur ce site !
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
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
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 :)
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 :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question