Remplacer une ligne de code par une autre

[guy72]

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

 

[kjin]

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

 

[guy72]

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