rechercher le dernier numéro et non le nombre de ligne

If NumDerEpisode(Me.ComboBoxNomSérie) = 1 Then

Cliquez pour agrandir...

If NumDerEpisode(Me.ComboBoxNomSérie) = 1 Or NumDerEpisode(Me.ComboBoxNomSérie) = 65 Then

Cliquez pour agrandir...

Me.ComboBoxNuméroEpisode = NumDerEpisode(Me.ComboBoxNomSérie) + 1

Cliquez pour agrandir...

RONIBO à dit:

1) J'aimerais garder le numéro 1 si ma série actuelle porte le numéro un également

2) J'aimerais également appliquer garder le même numéro su dans ma base il y a une série avec un épisode, par exemple si dans ma base j'ai une série nommée Caméleon avec qu'une seule épisode qui a comme N°65, ne pas appliquer la règle du +1 pour la prochaine épisode, garder le même numéro (65)

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Tu m'as demandé

Donc :
Le caméléon épisode 1, restera à 1
Le caméleon épisode 65, restera à 65

Le reste c'est +1 😕

Cliquez pour agrandir...

J'ai qu'une épisode de la série caméleon peu importe le numéro, ici on applique pas plus un mais on conserve le numéro.

Cliquez pour agrandir...

Private Sub ComboBoxNomSérie_Change()
  Dim Ligne As Long, NbEp As Integer
  If Encours = True Then Exit Sub
  Me.ComboBoxNuméroEpisode.Enabled = True
  Me.CBNommer.Enabled = True
  Ligne = Me.ComboBoxNomSérie.List(Me.ComboBoxNomSérie.ListIndex, 1)
  With Sheets("série")
    ' Combien d'épisode pour la série
    NbEp = Application.CountIf(.Range("A:A"), Me.ComboBoxNomSérie.Value)
    ' Si le nombre d'épisode est 1 on laisse ce numéro
    If NbEp = 1 Then
      Me.ComboBoxNuméroEpisode = NumDerEpisode(Me.ComboBoxNomSérie)
    Else
      ' Sinon on ajoute 1
      Me.ComboBoxNuméroEpisode = NumDerEpisode(Me.ComboBoxNomSérie) + 1
    End If
    'Me.DTPDate = .Range("C" & Ligne)
    Me.ComboBoxQualité = .Range("D" & Ligne)
    Me.ComboBoxFormat = .Range("E" & Ligne)
  End With
  ConstructionNomFichier
End Sub