Merci à vous deux Thierry et Jean Marie,
Vous êtes une vraie fontaine à savoir pour moi sur excel et VBA et je me goinfre de vos renseignements.
Sinon pour faire suite à ma requête, j'ai modifié le code de la sorte :
Sub REMISE_A_ZERO()
'macro REMISE A ZERO
'Sélection de la feuille
'sheet ("STATS").select
If Range("A1") = 1 Then 'si A1 est égale à 1 alors
Range("G7") = "x" 'inscrire X en G7
Range("G7") = "" 'Effacer le contenu de la cellule G7
End If
End Sub
J'y ai supprimé les .value et j'ai ajouté, et c'est surtout cela qui me manquait tout à l'heure, les guillements pour le X.
Pour répondre à ta question Thierry, ma macro fait donc :
vérifie la présence de 1 dans A1, mets un X dans G7 et efface la cellule aussitôt après. De la sorte ma cellule ce formate comme je le voulait !!! Dire que c'était juste les petites guillements qui me gênait. Donc la nanoseconde suffit au reste des formules de mon tableau pour qu'il se mette à son tour à zéro.
Si cela vous intéresse je peut vous faire parvenir mon fichier pour que vous vous rendiez compte de ce que j'ai fais (ici il ne passe pas il fait plus de 50 Ko)
Merci encore, j'apprend énormément avec vous.
Par contre, je sais que ce que je vais dire n'a rien à voir avec la question de départ, mais je suis entrain de mettre toutes les cellules des tableau en forme conditionnelle (pour que chaque accident s'affiche en rouge lors de la validation) et je me demande s'il n'y a pas un truc pour mettre tout le tableau en une fois en forme conditionnelle que de le faire cellule par cellule. ??!