XL 2016 VBA formulaire

Yücel · 11 Janvier 2023

Bonjour,

Pourriez-vous svp m'aider à effectuer une tache avec un formulaire ?

Je souhaiterai en cas de changement d'une plage de cellule afficher un formulaire à remplir et reporter la saisie sur une autre plage de cellule défini.

Vous trouverez ci-joint un fichier avec plus d'explication à ma demande.

Je vous remercie d'avance pour votre précieuse aide !

Excellente journée à vous.

youky(BJ) · 12 Janvier 2023

Bonjour,
Voici en retour le fichier répondant à la demande.
Bruno

youky(BJ) · 11 Janvier 2023

Bonjour,
J'ai bricolé le fichier, j'ai fait du changement.
Bon c'est à voir si cela conviens.
En bouton Valider j'ai mis après mon code un Exit sub car les contrôles n'existe pas.
Bruno

herve62 · 11 Janvier 2023

Bonsoir
Voici un 1er jet du process à appliquer ( via sheets Change suivi d'un intersect) , j'ai laissé tel quel mais il y a du ménage à faire dans l'INUTILE !!!
On voit la REcup de code mais non analysé !!! ,
Pourquoi un "FRAME" dans l'USF ?? > inutile
Si besoin je laisserai plus d'explications et la méthode (simple ) pour poursuivre
Question : Comment se met le VRAI dans les cellules ?? à la main ou selon une condition ??
Les tableaux resteront ils à cet endroit ??

TooFatBoy · 12 Janvier 2023

Bonjour,

Yücel à dit:
Je souhaiterai en cas de changement d'une plage de cellule afficher un formulaire à remplir et reporter la saisie sur une autre plage de cellule défini.

Pour remplir ton tableau jaune, tu peux utiliser des formules plutôt qu'une macro.

Formule à mettre en I3 (puis copier la cellule et coller la formule en I3:K6) :

Code:

=SI(F7;C7;"")

herve62 à dit:
Question : Comment se met le VRAI dans les cellules ?? à la main ou selon une condition ??

Visiblement c'est en cochant la case à cocher correspondante, et du coup ça ne déclenche pas le Worksheet_Change.

youky(BJ) · 12 Janvier 2023

Bonjour Tous,
J'avais supprimé les checkbox liés aux cellules qui renvois vrai ou faux.
J'ai mis à la place une écriture Winding à la place qui déclenche le _change
Cela imite les checkbox
De toute façon c'est faire très compliqué ce qui est simple.
Bruno

TooFatBoy · 12 Janvier 2023

youky(BJ) à dit:
J'avais supprimé les checkbox liés aux cellules qui renvois vrai ou faux.
J'ai mis à la place une écriture Winding à la place qui déclenche le _change

Oui, on avait bien vu l'astuce.

Perso, j'ai essayé de faire une proposition modifiant le moins possible le fichier.

Yücel · 12 Janvier 2023

Je vous remercie TOUS !
Youky(BJ) C'est presque ça !! mais serai t-il possible de décaler les cellules en jaune de votre fichier de 4 lignes au-dessus ?? aussi, il me faut tout de même les vrais/Faux de mon fichier initial car j'ai d'autre formule qui son rattaché à ces cellules vrai/faux.
Ainsi, peut-on écrire (en même temps que les cellules de date se remplissent dans les cellules en jaune) les vrais/Faux dans les cellules initiales ?? c'est à dire lorsque une cellules en jaunes écrit une date alors mettre "vrai" sinon lorsqu'on supprime une date ou lorsque cellule en jaune vide alors mettre "Faux".

Mille merci à vous

Yücel · 12 Janvier 2023

herve62 à dit:
Bonsoir
Voici un 1er jet du process à appliquer ( via sheets Change suivi d'un intersect) , j'ai laissé tel quel mais il y a du ménage à faire dans l'INUTILE !!!
On voit la REcup de code mais non analysé !!! ,
Pourquoi un "FRAME" dans l'USF ?? > inutile
Si besoin je laisserai plus d'explications et la méthode (simple ) pour poursuivre
Question : Comment se met le VRAI dans les cellules ?? à la main ou selon une condition ??
Les tableaux resteront ils à cet endroit ??

Bonjour Herve62 !
En faite j'ai plein d'autre formule dans mon fichier de base, j'ai dû oublié de supprimer certain code vba...
Votre fichier est très bien mais il aurait fallu que le formulaire se lance lorsque l'on coche les cases tous à gauche.
Pour répondre à votre question, les Vrais/Faux s'écrivent dans les cellules lorsque l'on coche les cases tous à gauches.

Merci à vous et Excellente journée

youky(BJ) · 12 Janvier 2023

Bonjour,
Voici en retour le fichier répondant à la demande.
Bruno

Yücel · 12 Janvier 2023

youky(BJ) à dit:
Bonjour,
Voici en retour le fichier répondant à la demande.
Bruno

C'est PARFAIT merci beaucoup Youky(BJ) !! Vous êtes un génie !
Plus qu'à essayer sur mon fichier si ça fonctionne

youky(BJ) · 12 Janvier 2023

Quelques explications pour le futur.
Si décalage des cellules jaunes ou si ajout de noms(mettre en wingdings et "o")
Les lettres en gras sont les décalages à rectifier si modifs
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Font.Name <> "Wingdings" Then Exit Sub
FormSaisie.TextBox6 = Cells(Target.Row - 4, Target.Column + 7)
FormSaisie.Show
End Sub
Pareil dans l'userform
Private Sub ANNULER_Click()
Selection.Value = "o"
Cells(Selection.Row - 4, Selection.Column + 7) = ""
TextBox6 = ""
Unload Me
End Sub
IDEM en sauvegarder

Yücel · 19 Janvier 2023

Bonjour Youky(BJ),
j'ai suivi vos conseils et ça fonctionne très bien sur mon fichier merci beaucoup !

XL 2016 VBA formulaire

Yücel

XLDnaute Junior

Pièces jointes

youky(BJ)

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

herve62

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Yücel

XLDnaute Junior

Yücel

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Yücel

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

Yücel

XLDnaute Junior

Discussions similaires