Blocage / Reset d'une valeur dans une cellule spécifique
RésoluWhiteWidow Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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:
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
- Blocage / Reset d'une valeur dans une cellule spécifique
- Comment reset un pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
9 réponses
Bonjour,
Pour la commande [RESET]
Sub Reset_a_0()
Range("I3").Value = 0
End Sub
Le reste est imconpréhensible!
Merci beaucoup!
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.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionah 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
Bonjour,
Peut-être voir par ici : Partager votre classeur Excel avec d’autres personnes (microsoft.com)
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.
