Discussion :

[Rémi01]

Bonjour,

J'ai commencé une macro qui a pour but de mettre à jour les dates d'un fichier excel chaque année:

Le souci est que je ne sais le faire que si j'indique l'année dans la macro. Or j'aimerais justement pouvoir gérer sur 2 cellules de la 1ere feuille les années à mettre à jour pour éviter de revenir sans cesse dans la macro

J'avais pensé mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Replace What:=Range("E1"), Replacement:=Range("F1"), LookAt:=xlPart, _

Mais ça ne fonctionne pas...

Avez vous une solution ?



Merci d'avance pour votre aide

[Menhir]

Quelques remarques liminaires :
- A l'avenir, évite de mettre ton code sous forme d'une image. C'est chiant, on ne peut pas le copier et il faut tout retaper pour proposer une solution.
- Gérer une protection par mot de passe en utilisant VBA, c'est comme fermer la porte à clé et laisser la clé sous le paillasson.
- Evite de mettre des Select/Selection partout. Je sais que c'est ce que fait l'enregistreur automatique, mais ce n'est pas une bonne idée.

Donc, supprime toutes les lignes contenant Activate ou Select.

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A:B").Replace What:=Range("E1").Text, Replacement:=Range("F1").Text, LookAt:=xlPart

Les autres paramètres de Replace sont inutiles dans ton cas.

[Rémi01]

Merci d'avoir pris le temps de me répondre

- A l'avenir, je mettrai le code en copier coller. Désolé pour la gaffe.
- Pour la protection, je sais que ce n'est pas efficace, cependant le fichier étant destiné à quelqu'un qui n'est pas très Excel, cela évite qu'il modifie mes cellules qui contiennent des formules. C'est uniquement pour cela que j'ai verrouillé certaines cellules.
- Je ne savais pas pour les Select, du coup le code va être vachement réduit c'est Cool

Le code marche à la perfection,
Par contre, j'ai fixé les cellules de ma 1ère feuille pour qu'il recherche les 2 variables sur la 1ère feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A:B").Replace What:=Sheets("JANVIER").Range("E1").Text, Replacement:=Sheets("JANVIER").Range("G1").Text, LookAt:=xlPart

En tous cas Merci beaucoup ! tu es au top

Bonne journée