Discussion :

[bvalenza]

Bonjour à tous(tes)
J'ai un classeur qui me permet de gérer des formations.
une feuille "SESSION" recense les sessions de formation (numéro unique)
une feuille "SAISIE" répertorie les inscriptions (stagiaires)

Dans ma feuille SAISIE, quand je double-clique dans une cellule de la colonne A
j'appelle un formulaire qui me permet de choisir le numéro de session et me l'incrémente
dans la feuille à l’endroit où j'ai double cliqué. RAS fonctionne très bien

Je récupère les données de SESSION pour les afficher dans mon combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub UserForm_Initialize()
ComboBox3.Value = ""
 
'
Dim i As Integer
dernLigne = Sheets("SESSIONS").Range("M" & Rows.Count).End(xlUp).Row
 
For i = 2 To dernLigne
  ComboBox3 = Sheets("SESSIONS").Range("M" & i)
  If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Sheets("SESSIONS").Range("M" & i)
Next i
 
 
End Sub

J'incrémente après avoir cliqué dans le formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton1_Click()
 
Ligne = ActiveCell.Row
 
   If Me.ComboBox3 = "" Then
      MsgBox "PAS DE SESSION SELECTIONNEE"
      Me.ComboBox3.SetFocus
      Exit Sub
  End If
 
  With Sheets("INSCRIPTIONS")
    'ligne = .Range("A65000").End(xlUp).Row + 1
    .Cells(Ligne, 1) = Me.ComboBox3
  End With
 
 
End Sub

Ma demande :

j'aimerais compléter le code (validation après avoir cliqué sur le bouton)
en allant compléter une formule matricielle qui se trouvera dans la feuille SESSION
sur la même ligne que le n° de session choisi dans le formulaire, on peut donc garder la variable Ligne = activeCellrow.
il faudrait ajouter le n° de la colonne de ma feuille SESSION qui contient déjà la formule matricielle
en l'occurrence 14
et faire en sorte que ma formule matricielle (qui me permet de réaliser un NB.SI avec deux conditions)
passe de l'état initial :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

{=SI(A3="";"";SOMME((INSCRIPTIONS!I:I="INSCRIT")*(INSCRIPTIONS!A:A="2020 - 10 - 1010 - PSCCHR")*1))}

à

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

{=SI(A3="";"";SOMME((INSCRIPTIONS!I:I="INSCRIT")*(INSCRIPTIONS!A:A="RECUPERATION CHOIX N° SESSION MENU DEROULANT")*1))}

en espérant ne pas vous avoir perdu

Merci d'avance pour vos conseils

BV

[pijaku]

Bonjour,

1- connais-tu la formule NB.SI.ENS()?
2- peux-tu placer, dans une cellule quelconque (dans l'exemple : P12), la variable "2020 - 10 - 1010 - PSCCHR" ?

Ainsi, ta formule devient :

=SI(A3="";"";SOMME((INSCRIPTIONS!I:I="INSCRIT")*(INSCRIPTIONS!A:A=P12)*1))

et ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  With Sheets("INSCRIPTIONS")
    'ligne = .Range("A65000").End(xlUp).Row + 1
    .Cells(Ligne, 1) = Me.ComboBox3.Value
    .Range("P12").Value = Me.ComboBox3.Value
  End With

[Menhir]

Les formules matricielles sont gérées dans VBA avec la propriété FormulaArray.
Lire ça : https://docs.microsoft.com/fr-fr/off...ectedfrom=MSDN

Le reste est juste du traitement de chaine de caractère (pour VBA, une formule est juste une chaine de caractère).
Dans ton cas, la modification pourrait se faire avec une simple fonction Repalce, pour transformer 2020 - 10 - 1010 - PSCCHR en RECUPERATION CHOIX N° SESSION MENU DEROULANT.
Lire ça : https://docs.microsoft.com/fr-fr/off...place-function