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

RONIBO

XLDnaute Impliqué
Bonjour,

Je viens de nouveau vers vous suite à un problème que je rencontre

Mon usf permet de nommer un fichier .avi grâce à une base de donnée et permet d'ajouter +1 au numéro d'épisode.

Actuellement j'ajoute + 1 en fonction du nombre de ligne, mais j'aimerai ajouté + 1 en cherchant le dernier numéro utiliser et ajouter +1.

j'espère que je me suis exprimé clairement.

Merci d'avance.
 

Pièces jointes

  • Exemple.xlsm
    47.2 KB · Affichages: 57
  • Exemple.xlsm
    47.2 KB · Affichages: 61
  • Exemple.xlsm
    47.2 KB · Affichages: 77

RONIBO

XLDnaute Impliqué
Re : rechercher le dernier numéro et non le nombre de ligne

Bonjour Bruno,

merci pouf ce bout de code.

j'ai remplacer
If NumDerEpisode(Me.ComboBoxNomSérie) = 1 Then

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

mais je pense à cause de cette ligne qui est après
Me.ComboBoxNuméroEpisode = NumDerEpisode(Me.ComboBoxNomSérie) + 1

il m'ajoute le plus le +1

Alors que moi je ne veux pas de + 1 si dans ma base il y a qu'une série avec qu'une épisode.

A+
 
C

Compte Supprimé 979

Guest
Re : rechercher le dernier numéro et non le nombre de ligne

Re,

Tu m'as demandé
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)

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

Le reste c'est +1 :confused:
 

RONIBO

XLDnaute Impliqué
Re : rechercher le dernier numéro et non le nombre de ligne

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 :confused:


Si dans ma base je n'ai pas d'autres épisode que le 65, oui faut garder le 65.

exemple : j'ai l'épisode 64 et 65 de la série caméleon dans ma liste, j'ajoute plus un +1
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.

J'espère que je me suis exprimé clairement :(

Et désoler Bruno pour ce problème qui te mélange la tête :(
 
C

Compte Supprimé 979

Guest
Re : rechercher le dernier numéro et non le nombre de ligne

Re,

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.
Ah bien voilà une explication claire :p;)

Le code est donc
Code:
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

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33