Blocage / Reset d'une valeur dans une cellule spécifique

Résolu
WhiteWidow Messages postés 6 Statut Membre -  
WhiteWidow Messages postés 6 Statut Membre -

Bonjour,

Je cherche quelque chose de relativement simple,
mais comme je suis un gros noob en macro et excel, j'ai besoin d'une petite aide ????

Pour que ce soit plus simple j'ai fais une infographie de ce que j'ai besoin:

Exemple-Macro-Excel

Pour la date j'ai trouvé, mais je ne sais pas comment obligé la macro à rentrer automatiquement la date dans la cellule de droite
Idem pour le "Ressource du Housing"

Code:
Sub Date_Actuelle_1()
        ActiveCell = Now
End Sub

J'aimerai éviter que l'on est besoin de sélectionner la cellule en question, de manière à juste cliquer.

Pour la "Machine à Rêve de Claire"

J''ai trouvé comment rajouter +1 à la cellule de droite, mais même problème, il faut sélectionner la cellule au préalable,
et j'aimerai bien que cela s'ajoute à la cellule de droite directement, et que cette valeur soit bloqué à 6 maximum.
De plus, j'aimerai que le bouton du dessous Reset à 0.

Code:
Sub Rectangle2_Cliquer()
  ActiveCell = ActiveCell + 1
End Sub

Et pour le Reset cela ne fonctionne pas:

Code:
Sub Reset_a_0()
  ActiveCell = ActiveCell = 0
End Sub

Ce serait nettement plus pratique, plus beau, plus simple.

Merci d'avance à celui qui m'aiderai à faire marcher tout cela ????



Windows / Chrome 107.0.0.0

9 réponses

  1. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     

    Bonjour,

    Pour la commande [RESET]

    Sub Reset_a_0()
      Range("I3").Value = 0
    End Sub
    

    Le reste est imconpréhensible!


    0
  2. WhiteWidow Messages postés 6 Statut Membre
     

    Merci beaucoup!

    image

    Donc désormais tout marche trop bien!

    Il faudrait juste désormais dans la Machine à Rêve de Claire
    la valeur maximale de la cellule soit bloquée à 6.

    0
  3. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     

    Bonjour,

    Une proposition:

    Sub Machine_a_reve_1()
    If Range("I3") = 6 Then
        MsgBox "Le maximum de 6 ne peux pas être dépassé!"
    Else
        Range("I3").Value = Range("I3") + 1
    End If
    End Sub

    0
  4. WhiteWidow Messages postés 6 Statut Membre
     

    BIG MERCI A VOUS! :D

    Grace à vous, cela a une gueule de fou!

    Je regrette de ne pas savoir faire mieux, mais c'est désormais fonctionnel,
    c'est assez beau, et franchement c'est génial.

    Longue vie à vous les développeurs! <3 <3 <3 <3 <3 <3 

    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. WhiteWidow Messages postés 6 Statut Membre
     

    ah bin mince, moi qui pensais que tout était bon, les macros ne sont pas dispo pour les personnes à qui je partage le fichier.

    Comme si les macros dans mon VBA ne faisaient pas parties du fichier et donc du VBA des autres personnes

    0
  7. WhiteWidow Messages postés 6 Statut Membre
     

    Je suis aller dessus justement, je fais aussi mes recherches en parallèle.

    Mais je trouve ça dommage de devoir partager les macros indépendement du fichier en question.

    0
  8. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     

    Bonjour,

    Désolé, le partage est un nuage pour moi que je ne comprends pas !

    Alors j’ai réalisé un essai en suivant la proposition de MSO via [OneDrive] et là bonne surprise les macros sont opérationnelles et si je reviens sur mon PC le fichier contient les nouvelles données.


    0
  9. WhiteWidow Messages postés 6 Statut Membre
     

    En faite, il faut que les personnes actives les macros en terme de condifidentialité au plus bas pour que cela marche.
    C'était aussi simple que ça.

    En tout cas merci à la communauté ici présente, je vous aime! <3

    0