Microsoft 365 Personnaliser une formule depuis un formulaire

netparty · 1 Mai 2024

Bonjour à tous
Dans un de mes fichiers j'utilise une formule de concaténation mais suivant les projets je dois adapter cette formule.
Je me demande si via un formulaire je pourrais personnaliser cette formule.
Dans mon formulaire j'aurais la possibilité de choisir la position de la cellule concernée pour choix d'une numérotation exemple 1 2 3 et si je met un 0 cette cellule n'est pas prise en compte et entre chaque choix j'aurais la possibilité de placer un séparateur exemple - ou _

Merci d'avance pour votre aide

Staple1600 · 1 Mai 2024

Bonjour @netparty

Une alternative

avec la formule JOINDRE.TEXTE
et en modifiant le formulaire (on utilise des cases à cocher pour sélectionner les cellules à prendre en compte)
Le séparateur est dans la cellule N7 dans cet exemple

Staple1600 · 1 Mai 2024

Re

Donc en suivant l'idée du message précédent, on peut faire par exemple

Ci-dessous le code de l'Userform

VB:

Dim t()
Private Sub UserForm_Initialize()
ReDim t(1, 1 To 9)
t = ActiveSheet.Range("D3:L3").Value
End Sub

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
      Select Case ctrl.Value
      Case True
      Range(ctrl.Tag & "3") = ""
      Case Else
      End Select
    End If
Next ctrl
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Range("D3:L3").Value = t
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
      ctrl.Value = False
    End If
Next ctrl
End Sub

NB: Ne pas oublier de renseigner la propriété Tag de chaque checkbox
Avant chaque création de formule, ne pas oublier de cliquer sur le bouton RAZ
(pour remettre les valeurs initiales présentes avant l'affichage de l'useform)

Donc le Tag pour CheckBox2 sera E , pour CheckBox3 sera F etc...

netparty · 1 Mai 2024

Staple1600 à dit:
Re

Donc en suivant l'idée du message précédent, on peut faire par exemple
Regarde la pièce jointe 1195995
Ci-dessous le code de l'Userform

VB:

Dim t() Private Sub UserForm_Initialize() ReDim t(1, 1 To 9) t = ActiveSheet.Range("D3:L3").Value End Sub Private Sub CommandButton1_Click() Dim ctrl As Control For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "CheckBox" Then Select Case ctrl.Value Case True Range(ctrl.Tag & "3") = "" Case Else End Select End If Next ctrl End Sub Private Sub CommandButton2_Click() ActiveSheet.Range("D3:L3").Value = t Dim ctrl As Control For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "CheckBox" Then ctrl.Value = False End If Next ctrl End Sub

NB: Ne pas oublier de renseigner la propriété Tag de chaque checkbox
Avant chaque création de formule, ne pas oublier de cliquer sur le bouton RAZ
(pour remettre les valeurs initiales présentes avant l'affichage de l'useform)

Regarde la pièce jointe 1195997

Donc le Tag pour CheckBox2 sera E , pour CheckBox3 sera F etc...

Bonjour @Staple1600

Merci pour ton aide, mais est-il possible aussi de choisir l’ordre de choix
Bonne journée

Staple1600 · 1 Mai 2024

Re

Petite correction de code (et pour que cela soit plus intuitif)
(ici les cases cochées indiquent les cellules retenues dans la formule)

Code:

Dim t()
Private Sub UserForm_Initialize()
ReDim t(1, 1 To 9)
t = ActiveSheet.Range("D3:M3").Value
End Sub

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
      Select Case ctrl.Value
      Case True
      '
      Case Else
      Range(ctrl.Tag & "3") = ""
      End Select
    End If
Next ctrl
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Range("D3:M3").Value = t
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
      ctrl.Value = False
    End If
Next ctrl
End Sub

Et j'avais oublié de posté la formule
=JOINDRE.TEXTE(B3;VRAI;$D$3:$M$3)

netparty · 1 Mai 2024

Staple1600 à dit:

Re

Petite correction de code (et pour que cela soit plus intuitif)
(ici les cases cochées indiquent les cellules retenues dans la formule)

Code:

Dim t()
Private Sub UserForm_Initialize()
ReDim t(1, 1 To 9)
t = ActiveSheet.Range("D3:M3").Value
End Sub

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
      Select Case ctrl.Value
      Case True
      '
      Case Else
      Range(ctrl.Tag & "3") = ""
      End Select
    End If
Next ctrl
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Range("D3:M3").Value = t
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
      ctrl.Value = False
    End If
Next ctrl
End Sub

Et j'avais oublié de posté la formule
=JOINDRE.TEXTE(B3;VRAI;$D$3:$M$3)

Re @Staple1600

Mon idée était la suivante :

Partir sur des ComboBox ce qui permet de configurer ma formule crois-tu que cela est faisable ?

Staple1600 · 1 Mai 2024

Re

@netparty
Moi, je suis parti (et à l'insu de mon plein gré ) sur l'alternative proposée dans mes précédents messages
Personnellement, si j'étais moi, j'oublierai cette histoire d'userform pour créer une formule.
(De peur de pencher vers l'usine à gaz, de perdre en ergonomie intuitive)

Mais c'est ton projet, donc suis ton idée.

Staple1600 · 1 Mai 2024

Re

@netparty
Plutôt qu'un userform, pourquoi ne pas utiliser Données/Validation ?

Ce serait plus simple, non ?
(Il faut juste créer N listes et faire Données/Validation sur les cellules concernées)

netparty · 1 Mai 2024

Staple1600 à dit:
Re

@netparty
Moi, je suis parti (et à l'insu de mon plein gré ) sur l'alternative proposée dans mes précédents messages
Personnellement, si j'étais moi, j'oublierai cette histoire d'userform pour créer une formule.
(De peur de pencher vers l'usine à gaz, de perdre en ergonomie intuitive)

Mais c'est ton projet, donc suis ton idée.

Oui je sais que c'est peut-être une usine à gaz
Dans mon formulaire j'ai réussi à choisir l'ordre que j'ai besoin et j'affiche le résultat dans une textbox mais comment puis-je récupérer les bonnes cellules pour les concaténer ?

Staple1600 · 1 Mai 2024

Re

@netparty
Quid de ma précédent suggestion ?

netparty · 1 Mai 2024

Staple1600 à dit:
Re

@netparty
Plutôt qu'un userform, pourquoi ne pas utiliser Données/Validation ?
Regarde la pièce jointe 1195999
Ce serait plus simple, non ?
(Il faut juste créer N listes et faire Données/Validation sur les cellules concernées)

Staple1600 à dit:
Re

@netparty
Quid de ma précédent suggestion ?

Tu vas trop vite j'étais en train de répondre.

Le but de mon fichier est de gérer une liste de plan en dessin et suivant les projets une codification du nom est souvent demandée.
Donc mon idée était que la première fois je configure la structure du nom et ensuite je duplique cette formule jusque la dernière ligne.
Si c'est moi qui configure cette codification se n'est pas un problème car je modifie la formule manuellement mais se fichier est utilisé par plusieurs personnes qui ne savent pas toujours utiliser des formules personnalisées.
C'est pour cela que j'essaye de faire cela via un formulaire pour que tous le monde puise le faire.

Staple1600 · 1 Mai 2024

Re

@netparty

C'est pour cela que j'essaye de faire cela via un formulaire pour que tous le monde puise le faire.

Je parle d'expérience.
Plus un classeur Excel est à destination d'utilisateurs "novices" d'Excel, moins celui-ci devrait contenir du VBA.
Jadis, je faisais des classeurs avec VBA, Userform etc...
A l'usage, il y avait toujours un collègue qui faisait planter le bestiau .

Donc désormais, je suis et applique le principe K.I.S.S
Je vais au plus simple (ce qui m'évite mails et coup de fil des mes collègues avec des " ca marche plus"

Si le fichier est à destination d'autres personnes et qu'elles n'ont pas à modifier les formules, il suffit de juste leur fournir une version PDF du classeur, non ?

Sinon, il suffit de prendre du temps (ce que je fais avec mes collègues) pour expliquer le fonctionnent de l'outil que je mets à leur disposition.

netparty · 2 Mai 2024

Bonjour @Staple1600

Oui comme tu dis c'est bien aussi de faire des choses simples
Mais à titre de développement personnel j'aimerai réussir a le faire

Bonne journée

Staple1600 · 2 Mai 2024

Bonjour @netparty

Mais à titre de développement personnel j'aimerai réussir a le faire

Bon courage à toi alors

Mon mien de développement personnel va à l'encontre du tien
(Moins de VBA, plus de formules, plus de PowerQuery etc..)

netparty · 2 Mai 2024

Staple1600 à dit:
Bonjour @netparty

Bon courage à toi alors

Mon mien de développement personnel va à l'encontre du tien
(Moins de VBA, plus de formules, plus de PowerQuery etc..)

Merci

Microsoft 365 Personnaliser une formule depuis un formulaire

netparty

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Discussions similaires