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

RONIBO · 4 Février 2015

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.

RONIBO · 6 Février 2015

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+

Compte Supprimé 979 · 6 Février 2015

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

Re,

Tu m'as demandé

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)

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

Le reste c'est +1

RONIBO · 6 Février 2015

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

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

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

Compte Supprimé 979 · 6 Février 2015

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

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+

RONIBO · 6 Février 2015

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

Re,

Oui je sais... Je n’arrêtais pas de tourner en rond

En tout cas le dernier code fonctionne bien, merci encore une fois

A+

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

RONIBO

XLDnaute Impliqué

Pièces jointes

RONIBO

XLDnaute Impliqué

Compte Supprimé 979

Guest

RONIBO

XLDnaute Impliqué

Compte Supprimé 979

Guest

RONIBO

XLDnaute Impliqué

Discussions similaires