hemardjean
XLDnaute Occasionnel
Bonjour le forum
Je me tourne à nouveau vers vous pour améliorer le dossier que je suis actuellement en perpétuelle amélioration.
Grâce à pierrejean j'ai pu améliorer le formulaire" boulangerie" je peux changer l'intitulé de certaines TextBoxs, à la réouverture pour une nouvelle écriture sans effacer les autres cellules.
Mon souci pour la suite de mon dossier , est-il possible d'avoir le controlsource des TextBoxs et des ComboBoxs dans la feuille de formule et pas dans les propriétés car les formulaires sont ouverts dans les cellules de la colonne O (il y a plusieurs formulaires nommés « charcuterie, viande, légumes, etc.) et chaque formulaire est indépendant.
J'ai essayé d'appliquer la formule de pierrejean mais celle-ci ne renseigne pas ma ComboBox et il faut remplir le controlsource du formulaire est donc ne peut pas être utilisé dans les formulaires plus bas.
La formule que j'ai utilisée la voici :
If ActiveCell.Offset(0, 1).Value = "" Then
ActiveCell.Offset(0, 1).Value = (Me.ComboBox1)
Else
Me.ComboBox1 = ActiveCell.Offset(0, 1).Value
End If
Comme d'habitude je vous joins le dossier de création et de recherche.
Merci encore de votre aide
Cordialement
Hemardjean
Je me tourne à nouveau vers vous pour améliorer le dossier que je suis actuellement en perpétuelle amélioration.
Grâce à pierrejean j'ai pu améliorer le formulaire" boulangerie" je peux changer l'intitulé de certaines TextBoxs, à la réouverture pour une nouvelle écriture sans effacer les autres cellules.
Mon souci pour la suite de mon dossier , est-il possible d'avoir le controlsource des TextBoxs et des ComboBoxs dans la feuille de formule et pas dans les propriétés car les formulaires sont ouverts dans les cellules de la colonne O (il y a plusieurs formulaires nommés « charcuterie, viande, légumes, etc.) et chaque formulaire est indépendant.
J'ai essayé d'appliquer la formule de pierrejean mais celle-ci ne renseigne pas ma ComboBox et il faut remplir le controlsource du formulaire est donc ne peut pas être utilisé dans les formulaires plus bas.
La formule que j'ai utilisée la voici :
If ActiveCell.Offset(0, 1).Value = "" Then
ActiveCell.Offset(0, 1).Value = (Me.ComboBox1)
Else
Me.ComboBox1 = ActiveCell.Offset(0, 1).Value
End If
Comme d'habitude je vous joins le dossier de création et de recherche.
Merci encore de votre aide
Cordialement
Hemardjean