Remettre formulaire à zéro

Bonjour à tous

Je cherche une manière simple de réinitialiser un formulaire.

Ca parait plutôt simple comme ça, mais vous allez comprendre mon interrogation.

C'est plutôt simple de réinitialiser toutes les cases en vert.

Mais mon problème est que j'ai une quarantaine de formulaires identiques comme celui-là.

On en voit 3 sur cette image mais il y en a 40 qui se suivent comme ça.

Étant novice en VBA, je me demande comment je pourrais faire une boucle pour effacer le contenu de toutes les cases vertes?

Ou y a t-il un moyen de "scanner" la page entièrement et effacer le contenu de toutes les cases vertes?

Je pourrais enregistrer une macro manuellement, mais je sais que ca ne serait pas la manière intelligente de faire le travail.

Si vous avez quelque chose à me proposer, ca serait grandement apprécié.

Un grand merci!

Bonsoir,

Tu parles de formulaire, mais il ne s'agit pas de Userform, il s'agit d'effacer des plages sur une feuille de calcul.

Si tes formulaires sont également espacés une boucle réalisera l'opération par décalage à partir du premier...

Fichier requis en ce qui me concerne...

Cordialement.

Oui tu as raison, ce n'est pas vraiment un formulaire.

Mais oui chaque partie du "formulaire" est espacée de 25 lignes.

J'ai déjà étudié en programmation dans ma jeunesse, mais c'est tellement loin que je ne rappelle de pratiquement rien

Mon fichier est en pièce jointe, mais ne riez pas de ma programmation, ce n'est vraiment pas optimal, mais j'aimerais bien qu'au moins la réinitialisation le soit, ca me servirait d'exemple si j'ai d'autres tâches semblables à programmer.

Merci!!

Bonsoir,

Voilà ta proc. de réinitialisation. Celle que tu avais tentée ne pouvait fonctionner (problème de syntaxe).

Sub reinitialiser()
    Dim Plg As Range, i%
    With Worksheets("donnees")
        Set Plg = Union(.[I3:R3], .[B3:B16], .[E7:E23], .[G7:U12], .[G16:U23])
    End With
    With Plg
        For i = 0 To 40
            .Offset(i * 25).ClearContents
        Next i
    End With
End Sub

Tu vois la démarche...

Tu as un peu de ménage à faire... Je me demande comment tu peux t'y retrouver !

Cordialement.

merci beaucoup!

je vais tenter de l'appliquer a mon fichier

en effet, il y a beaucoup de ménage à faire...

je travaille sur ce projet quelques minutes à la fois, entre 2 tâches au bureau, ce n'est pas l'idéal

mais c'est la première fois que j'ose programmer des macros...

à certains moments, je me suis trouvé plutôt ambitieux de faire de ce projet ma première macro...

mais avec un peu d'aide je vais y parvenir

je vais tenter de l'appliquer a mon fichier

Il te suffit de substituer ce code à celui de ta procédure reinitialiser, laquelle est déjà affectée à un bouton, et tu n'auras qu'à cliquer sur le bouton pour opérer la réinitialisation.

Cordialement.

Wow! Je m'attendais pas à recevoir ça tout cuit dans le bec...

Un gros merci!!