Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Si une cellule est modifiée alors code se réenclenche automatiquement HELP

M

Maxtincel

XLDnaute Nouveau
Bonjour,

J'implore votre aide, je bosse sur le sujet depuis plusieurs jours sans réussite...

Je suis en train de créer un fichier qui me permet et permettra à d'autres personnes de faire des états des lieux d'appartements sur excel (avec une tablette, ipad lors du rendez-vous).
Il y a plusieurs Feuilles dans le fichier excel.
J'ai rédigé une ligne de code qui permet de copier le contenu de plusieurs feuilles sur une même page (la feuil1) qui contiendra les infos de toutes les autres feuilles. Voici le code :
" Sub Module3()
Feuil14.Range("A1:E17").Copy Feuil1.Range("A3")
End Sub"
Et le même code recopié pour toutes les feuilles avec le numéro de feuille modifié....

Sauf que quand le contenu d'une cellule a changé dans la feuille 14, le contenu copié dans la feuille 1 ne se modifie pas automatiquement, il faut que j'aille dans VBA réactiver le code ....

Pourriez-vous m'aider en me donnant la formule qui permettra la modification automatique dans la feuille 1 si le le contenu des cellules des autres feuilles viendraient à être modifié s'il vous plait ?

Voici ci-joint le fichier pour une meilleure compréhension, merci d'avance à tous ceux qui m'aideront. Je m'y connais pas en Excel mais je peux vous dépanner sur le sujet de l'immobilier
Maxime Le Roux
 

Pièces jointes

  • etat des lieux.xlsm
    366.5 KB · Affichages: 15
Solution
Re Bonsoir Maxtincel , le Forum

Oui tu as du boulot mais bon ce sera fait qu'une seule fois si tu as bien formatté ta "Feuil1" comme il faut (et les les sous Feuilles aussi)

Pour que ca devienne automatique sans utiliser le bouton, il faut aller dans le Private Module de la Feuil1 et tu y verras ce code tout simple

VB: 
Private Sub Worksheet_Activate()
Refresh
End Sub

A la simple activation de cette feuil1, la Sub "Refresh" se déclenchera.

Bon courage
@+Thierry
Trier par date Trier par votes

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir @Maxtincel , Forum

J'ai l'impression de ne rien comprendre même avec le fichier sous les yeux !
Quelle est la finalité de ce projet ?

A l'heure actuelle je déduis que pour des raisons d'ergonomie lors de l'usage en déplacement sur Tablette ou iPad tu veux tout regrouper sur la Feuil1, est-ce exact ?

Par conséquent, je ne vois pas vraiment le besoin de macro, si tu prépares bien ta Feuil1 avec des simple "=" dans chaque case ?




Ou bien je n'ai pas compris quelque chose ?

Bien à toi, à vous
@+Thierry
 
Vote positif 0 Vote négatif
M

Maxtincel

XLDnaute Nouveau
Merci pour ton commentaire Thierry. La finalité de ce projet c'est que la feuille1 soit le récapitulatif de toutes les feuilles.

Je ne veux justement pas mettre de formule "=" car on fait facilement de fausses manipulations sur tablettes et le "=" pourrait se supprime aisément ce qui obligerait l'utilisateur à retaper la formule...

Le code VBA permet d'empêcher ce genre de problème ...
 
Dernière édition:
Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir @Maxtincel , le Forum

Voici une première approche, mais c'est assez fastidieux pour rédiger le code, il va te falloir de la patience, car rien n'est vraiment structuré selon les onglets... En fait il manque une vraie feuille "base de données"
J'ai commencé dans le module "ModuleThierry" ... Je te laisse continuer ...

J'ai mis un bouton "Refresh" mais on peut aussi assigner la Sub Refresh a un Trigger sur l'évenement sheet activate ou autre, pour qu'il n'y ait pas besoin du bouton...

Je te laisse voir...

Bien à toi, à vous
@+Thierry
 

Pièces jointes

  • XLD_Maxtincel_etat_des_lieux_v01.xlsm
    374.4 KB · Affichages: 6
Vote positif 0 Vote négatif
M

Maxtincel

XLDnaute Nouveau
Oui j'ai un peu de boulot
Un grand merci pour ton codage, j'avais commencé différemment en copiant les plages de cellules entières...

Ouiiii le top serait de ne pas devoir cliquer sur un bouton pour refresh automatiquement les cellules modifiées...
Pourrais-tu m'écrire le code "assignation Sub Refresh a un trigger sur l’événement sheet activate" s'il te plait ? Je t'avoue que je ne vois pas comment coder ça ...
 
Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Bonsoir Maxtincel , le Forum

Oui tu as du boulot mais bon ce sera fait qu'une seule fois si tu as bien formatté ta "Feuil1" comme il faut (et les les sous Feuilles aussi)

Pour que ca devienne automatique sans utiliser le bouton, il faut aller dans le Private Module de la Feuil1 et tu y verras ce code tout simple

VB: 
Private Sub Worksheet_Activate()
Refresh
End Sub

A la simple activation de cette feuil1, la Sub "Refresh" se déclenchera.

Bon courage
@+Thierry
 

Pièces jointes

  • XLD_Maxtincel_etat_des_lieux_v02.xlsm
    374.6 KB · Affichages: 4
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
255
pat66
P
P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
486
job75
M
  • Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
1
Affichages
374
vgendron
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
268
ma6me
M
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
451
Nel'
N
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
279
TomJoad
T
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
523
Corentin26270
C
S
  • Résolu(e)
XL 2016 VBA pour sélectionner feuilles indiqué dans une cellule
Réponses
6
Affichages
484
sebastien34
S
T
  • Résolu(e)
XL 2016 Code VBA pour masquer des éléments sauf sur une feuille
Réponses
5
Affichages
416
telemarrk
T
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…