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

Résolu/Fermé
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022 - 7 nov. 2022 à 16:47
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022 - 11 nov. 2022 à 15:55

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

Le Pingou Messages postés 12029 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 février 2024 1 424
7 nov. 2022 à 19:32

Bonjour,

Pour la commande [RESET]

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

Le reste est imconpréhensible!


0
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022
Modifié le 7 nov. 2022 à 20:52

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
Le Pingou Messages postés 12029 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 février 2024 1 424
7 nov. 2022 à 22:45

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
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022
Modifié le 7 nov. 2022 à 23:48

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

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

Posez votre question
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022
8 nov. 2022 à 00:06

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
Le Pingou Messages postés 12029 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 février 2024 1 424
Modifié le 8 nov. 2022 à 11:27
0
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022
8 nov. 2022 à 13:28

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
Le Pingou Messages postés 12029 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 février 2024 1 424
Modifié le 8 nov. 2022 à 19:14

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
WhiteWidow Messages postés 6 Date d'inscription lundi 7 novembre 2022 Statut Membre Dernière intervention 11 novembre 2022
11 nov. 2022 à 15:55

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