Bonjour

Je refais une demande d'aide car je crois avoir mal publié la dernière

J'ai un problème de code sur deux combobox que je voudrais lier. Mon code à marché la première fois lors d'un premier test, puis, plus rein. je ne dois pas être très loin de la solution, mais je ne trouve pas mon problème, je n'ai pas de message d'erreur mais mes combobox restent désespérément vides.

Le problème se trouve sur l'userform "formulaire de saisie" sur les cboRubrique que je souhaite lier au cboTitre. Les listes se trouvent dans l'onglet Rubrique.

Si quelqu'un peut m'aider, ce serai top!

Voici mes codes et le dossier en pièce jointe :

Merci beaucoup



Dim colonne As Integer
Dim i As Integer
Dim j As Integer


Private Sub cboRubrique_Change()
i = 2
frmSaisie.cboTitre.Clear
Sheets("Rubrique").Range("B2:F2").Interior.ColorIndex = Clear
Do While Cells(2, i).Value <> ""
If Cells(2, i).Value = cboRubrique.Value Then
Cells(2, i).Select
ActiveCell.Interior.ColorIndex = 32
colonne = ActiveCell.Column
End If
i = i + 1
Loop
j = 3
Do While Cells(j, colonne).Value <> ""
frmSaisie.cboTitre.AddItem Cells(j, colonne)
j = j + 1
Loop

End Sub

Private Sub UserForm_Initialize()

colonne = 2
Sheets("rubrique").Range("B2:F2").Interior.ColorIndex = Clear
Do While Cells(2, colonne).Value <> ""
frmSaisie.cboRubrique.AddItem Cells(2, colonne).Value
colonne = colonne + 1
Loop

txtAn.Value = Format(Now, "yyyy")
txtmoisauto.Value = Format(Now, "MMMM")
Me.cboRubrique.SetFocus
Me.lblMessage = "Veuillez saisir l'information à transmettre"


End Sub

Private Sub btnValider_Click()

'test les contrôle pour vérifier saisie



If Len(Me.cboRubrique) = 0 Then
Me.lblMessage = "Veuillez selectionner une rubrique."
Me.cboRubrique.SetFocus

ElseIf Len(Me.cboTitre) = 0 Then
Me.lblMessage = "Veuillez selectionner un titre."
Me.cboTitre.SetFocus

ElseIf Len(Me.txtInformation) = 0 Then
Me.lblMessage = "Veuillez saisir l'information voulue."
Me.txtInformation.SetFocus

ElseIf Len(Me.cboSignature) = 0 Then
Me.lblMessage = "Veuillez signer."
Me.cboSignature.SetFocus

Else


'on cherche la dernière ligne de la source

Feuil2.Activate
Feuil2.Range("A1048576").End(xlUp).Offset(1, 0).Select

'On affecte les données du formulaire dans la source

ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = Me.txtAn
ActiveCell.Offset(0, 2) = Me.txtmoisauto
ActiveCell.Offset(0, 3) = Me.cboRubrique
ActiveCell.Offset(0, 4) = Me.cboTitre
ActiveCell.Offset(0, 5) = Me.txtInformation
ActiveCell.Offset(0, 6) = Me.cboSignature

Call btnAnnuler_Click
Unload Me
Feuil2.Activate

End If

End Sub

Private Sub btnAnnuler_Click()
Me.txtAn = ""
Me.txtmoisauto = ""
Me.cboRubrique = ""
Me.txtInformation = ""
Me.cboSignature = ""
Me.lblMessage = ""
Me.lblMessage = "Veuillez saisir l'information à transmettre."

End Sub

Private Sub btnFermer_Click()
Unload Me

End Sub





Communication_interne_SI_test.xlsm