Saut automatique de ligne à l'autre & insertion d'une valeur

Question

Je veux faire de la saisie et je veux sauter d'une cellule a l'autre et la condition est que si j'ai saisi une valeur positive "1" dans une cellule donnée je veux que la cellule ou les cellules de la ligne suivante donne "0" automatiquement. Et de manière aléatoire quelque soit l'endroit où je saisirai la valeur "1" que les (la) ligne(s) me donnent "0" automatiquement. EX: On ne peut pas avoir 2 ou 3 statut matrimoniaux à la fois! Quand on répond par "1" à un statut matrimonial sur une colonne donnée, le reste doit être automatiquement "0" Ainsi de suite jusque à la dernière colonne (Col 19) Les macros sont bienvenus bien que Je suis un débutant, Est-il possible de passer par une formule ? Merci d'avance pour les conseils de(s) spécialistes de ce forum le plus efficace du web Je joins un fichier pour bien expliquer ma demande...

frangy · Accepted Answer

Voici une solution avec VBA. A+...

frangy · Answer

Re, Du moment que c'est demandé gentiment A+...

frangy · Answer

Version 3. Faites vos jeux ! On va sûrement y arriver.

39aire-3.xlsm (20.65 Ko)

Si tu veux bien arrêter de me traiter de génie, ça me fera du bien car j'ai la tête et les chevilles qui enflent et je ne ressemble plus à rien .

A+

frangy · Answer

S’il s’agit de compléter le programme pour traiter toutes les zones du formulaire, il suffit d’appliquer la même logique. Je veux bien t’aider et te donner des explications si tu as des difficultés à le réaliser mais je ne ferai pas le travail à ta place. J’attends que tu m’exposes ton problème. A+...

frangy · Answer

Quelques explications : On utilise l’évènement Worksheet.Change qui détecte un changement de valeur d’une cellule de la feuille (cellule identifiée "Target"). Dès qu’un changement de valeur est détecté, la procédure Worksheet_Change() est lancée. Tout d’abord, il faut pouvoir distinguer les cellules concernées par la procédure. Pour cela, il faut avoir défini toutes les plages sur lesquelles on souhaite agir, cette définition de plages étant dépendante des thèmes abordés (Profil de la mère, Niveau de scolarité, etc.). En groupant toutes ces plages, on obtient la plage de cellules à prendre en compte (PlageGlobale). On écrit donc que la plage globale est constituée de l’union des plages à prendre en compte. Set PlageGlobale = Application.Union(Range("E11:W20"), etc. Ensuite, on définit le sous-ensemble qui est à l’intersection du thème et de l’identifiant de la personne concernée. L’identifiant correspond à la colonne donnée par Target.column. Exemple1 : si je modifie la cellule E11, la plage1 sera définie par l’intersection de la plage E11 :W11 (thème " profil de la mère") et de la colonne de l’identifiant (colonne E). Ce qui se traduit par : Set Plage1 = Cells(11, Target.Column) Exemple2 : si je modifie la cellule F16, la plage3 sera définie par l’intersection de la plage F16 :F20 (thème " Statut matrimonial") et de la colonne de l’identifiant (colonne F). Ce qui se traduit par : Set Plage3 = Range(Cells(16, Target.Column), Cells(20, Target.Column)) Il te reste ensuite à définir le traitement à appliquer lorsque qu’une cellule de la plage(x) est modifiée. Exemple pour la plage2. 'Si la cellule modifiée appartient à la plage2 If Not Application.Intersect(Plage2, Target) Is Nothing Then 'Si la mère est allée à l'école If Cells(11, Target.Column) = 1 Then 'Pour chaque cellule de la Plage2 For Each Cel In Plage2 'Si la cellule n’est pas la cellule modifiée, alors on inscrit 0. If Cel.Address &lt;&gt; Target.Address Then Cel.Value = 0 Next Cel 'De plus, si la cellule modifiée est vide, alors on efface toute la Plage2 If Target.Value = "" Then Plage2.ClearContents 'Sinon, (si la mère n’est pas allée à l'école) Else 'alors on efface toute la Plage2 Plage2.Value = 0 End If End If Donc, pour résumer tu dois 1) Redéfinir la PlageGlobale, 2) Définir les différentes plages part thème (Plage1, Plage2,...., Plage136), 3) Définir le traitement à appliquer pour chacune des plages. A+...