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

Remplacer une ligne de code par une autre

  • Initiateur de la discussion Initiateur de la discussion guy72
  • 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 !

guy72

XLDnaute Impliqué
Bonjour,
Quelle est la marche à suivre pour modifier ou supprimer par VBA une ou des lignes de code, (soit en automatique à l'ouverture du USF ou soit avec un bouton) ?
Quelque soit le fichier.

Et de les remplacer par d'autres.
Exemple 1:
Ligne 55 ---> Select Case Application.CountIf([B14:B19], "n") remplacer par ----> Select Case Application.CountIf([B14:B18], "n")

Exemple 2:
Ligne 71 ---> supprimer Label14.Caption = [B19] . Value

Merci de votre aide
Cordialement
Guy
 
Re : Remplacer une ligne de code par une autre

Bonjour,
Avec 300 et des brouetttes au compteur depuis 2006, dois je te suggérer de lire la charte du forum pour espérer une réponse aussi claire que ta question ?!
A+
kjin
 
Re : Remplacer une ligne de code par une autre

Bonjour,
Je n'ai pas besoin que l'on me mette en pleine face "La Chartre".😡

Je crois que jusque-là, j'ai respecté la chartre au maximum, un petit écart, n'est pas très grave 😉
Je pensais que (sincèrement) ma question était claire.

Bon, bref, je vais donc mieux la détailler et mettre un fichier avec.

Je souhaite pouvoir modifier, avec une macro, quelques lignes de mon code.
Exemple :

Macro 1
Ligne 47 ---> Label14.Caption = "" ---> ligne à ajouter

Ligne 56 ---> n = Application.CountA([B10:B19]) ---> remplacer B19 par B18

Ligne 57 ---> Range("B10:B19")(n, 1).ClearContents ---> remplacer B19 par B18

Ligne 69 ---> Label14.Caption = [B19].Value ---> à ignorer ou supprimer

1) Je ne sais pas si c'est possible ?
2) j'ai mis : remplacer B19 par B18, mais cela est peut être mieux de supprimer la ligne et de la remplacer par une autre ?

Peut-être avez-vous une solution ?

Merci de votre aide
Cordialement
Guy
 

Pièces jointes

Dernière édition:
- 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
4
Affichages
586
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…