- Que vaut ma macro?

Salut,

Personne ne t'a répondu, bon tanpis je me lance, du moment que ta macro te satisfait pourquoi bon la changer.
Nettoyer les select et rajouter une vraie fausse gestion d'erreur , et en éliminant une variable (nomsheet) en utilisant la proprité Text d'un range. Si tu avais mis Option Explicit en haut de ton module tu aurais le debugger qui aurait dit cell variable non définie

Sub TEST()
Dim Cell As Range
With Sheets("Récapituler")
For Each Cell In Range(.[A1], .[A1].End(xlDown))
On Error Resume Next 'Si par hasard le nom de feuille n'existe pas ça plante la macro
If Cell.Offset(0, 5).Value <> Sheets(Cell.Text).Range("F4").Value Then Cell.Offset(0, 5).Value = Sheets(Cell.Text).Range("F4").Value
On Error GoTo 0 'On remet à 0 la valeur d'erreur
Next Cell
End With
End Sub


A+++

- Merci beaucoup Zon, j'ai essayé et en effet quand la feuille n'existe pas c'était le plantage assuré.
Maintenant avec ta correction cà marche super!

Encore merci et joyeux noël à toi...
JB

- P.S. Zon, tu as oublié un petit "End If" mais autrement "No Problemo", ta correction me convient tout à fait.

Encore merci, JB

Salut,

Je n'ai pas oublié de End if , on peut écrire si on reste sur la même ligne.

If Mavariable=1 then Monaaction


à la place de

If Mavariable=1 then
Monjaction
End if


A+++

Salut Zon,

- J'aurais mieux fait de m'abstenir, mais je ne regrette rien car je viens d'apprendre quelque chose en plus.
Encore merci,
JB