Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Effacer plusieurs cellules prédéfinis en utilisant une serie de boutons VBA macros

  • Initiateur de la discussion Initiateur de la discussion LUYGYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

LUYGYS

XLDnaute Occasionnel
Il s agit d' effacer les cellules d' un click ou il y a un 8 et aucune autre en utilisant une série de boutons dans l' ordre comme une séquence code !
Un peut DE VBA est bien venu !
Merci d' avance a tous les collaborateurs. ! 🙂

PS: le 8 est juste pour indiquer quelles sont les cellules a effacer, les donnes dans ces cellules peut être divers et de formats complètement différents !!!!

LUYGYS
 

Pièces jointes

Dernière édition:
Re

La macro Remets comme son l'indique sert à remettre les valeurs initiales 🙄
(J'ai suivi l'exemple fourni par Youki(bj)
[C'est un vœu pieux, pas une critique - donc inutile de s'énerver]
Ce serait chouette d'être un peu attentif et ne de pas "bêtement" lancer la macro sans chercher à comprendre ce qu'elle fait...
[/C'est un vœu pieux, pas une critique - donc inutile de s'énerver]
 
Re

Je viens de retester
(toujours pas de problème sur mon PC)
VB:
Sub Efface_II()
Dim p As Range
With ActiveSheet
  T = .[B9:B1091].Value: Set p = .Cells(9, .Columns.Count).Resize(3 * 361)
  p.FormulaR1C1 = "=IF(RC2=8,""$"",0)": p.SpecialCells(-4123, 2).Offset(, -Columns.Count + 2) = ""
  .Columns(.Columns.Count).Clear
End With
End Sub
 
Re

Merci youky(bj) pour ta vigilance 😉

LUYGYS
Heureusement que j'avais écrit...

PS: Relire mon précédent message, où j'ai reposté la macro avec ActiveSheet
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
4 K
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…