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.
 

Fichiers joints

CHALET53

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

bonjour,

Il y a peut-être plus simple :

b = Range("B" & Range("B65536").End(xlUp).Row)

a+
 

RONIBO

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

Bonjour,

Merci Chalet53 pour cette proposition mais dans mon combobox "série" apparaît les numéro.

C'est normal?
 

RONIBO

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

Re,

Merci beaucoup Bruno, sa fonctionne nickel, je serais curieux de savoir comment tu as fait :)

A+
 

RONIBO

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

Ah j'avais pas vu le code dans le module, je vais regarder sa de plus près :)
 

RONIBO

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

Re,

Tu as une idée concernant le dtpicker, j'aimerais mettre automatiquement la date du jour et non la date de l'enregistrement.

Je sais qu'il faut mettre me.DTPDate = date mais où ? :)

edit :
C'est peu-être ça qu'il l’empêche :
Code:
        Me.DTPDate = .Range("C" & Ligne)
edit 2 : en effet c'était bien ça :)
 
Dernière édition:

RONIBO

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

Une autre question Bruno peut-être que tu as la solution. :)

Si dans ma base de donnée, j'ai une série commençant par le numéro 1 (ex : Plus Belle La Vie BL 2 (05.02.2015) DVBRip XviD - TURG), théoriquement d'après le code si je nomme le fichier fichier il portera le numéro 2. (Plus Belle La Vie BL 2 (05.02.2015) DVBRip XviD - TURG)

La question est comment faire si une série commençant par N°1 dans ma base, garder le même numéro pour nommer le fichier, dans tous les autres cas ajouter +1.

J'ai pu exprimer?

A+
 

BrunoM45

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

Re,
Une autre question Bruno peut-être que tu as la solution. :)
Si dans ma base de donnée, j'ai une série commençant par le numéro 1 (ex : Plus Belle La Vie BL 2 (05.02.2015) DVBRip XviD - TURG), théoriquement d'après le code si je nomme le fichier fichier il portera le numéro 2. (Plus Belle La Vie BL 2 (05.02.2015) DVBRip XviD - TURG)
La question est comment faire si une série commençant par N°1 dans ma base, garder le même numéro pour nommer le fichier, dans tous les autres cas ajouter +1.
J'ai pu exprimer?
A+
1) lors du nommage du fichier, il faut penser à mettre un 0 devant ton 1 si l'ordre alphanumérique ne sera pas respecté ;)

2) Désolé, mais je n'ai pas compris ta question :confused:
 

RONIBO

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

Re,

1) lors du nommage du fichier, il faut penser à mettre un 0 devant ton 1 si l'ordre alphanumérique ne sera pas respecté ;)
Bizarre, pourtant j'ai pas de problème chez moi :(

2) Désolé, mais je n'ai pas compris ta question
Dans ma base de donnée, j'ai ajouté une série avec le numéro 1 en épisode
01.png

Au moment au je vais commencé à nommer mon fichier .avi
J'aimerais garder le numéro 1 si ma série actuelle porte le numéro un également, à compter du numéro 2 ajouter +1 à chaque numéro d'épisode.

Comme ceci
02.jpg

et non comme ci-dessous :
03.jpg

J'ai réussis à me faire comprendre? :)

A+
 

Fichiers joints

Dernière édition:

BrunoM45

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

Re,

Bizarre, pourtant j'ai pas de problème chez moi :(
Laisse tombé, je pensais que ça allait poser problème, mais effectivement pas

Pour ta 2ème demande, si j'ai bien tout compris :eek:, voici le code pour remplacement
Code:
Private Sub ComboBoxNomSérie_Change()
  Dim Ligne As Long
  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")
    ' Si le numéro d'épisode est 1 on laisse ce numéro
    If NumDerEpisode(Me.ComboBoxNomSérie) = 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

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

Re,

Oui c'est ça Bruno ;)

Merci bien pour ce coup de main :)

Il me manque plus qu'à tout tester.

Bonne journée au fil
 

RONIBO

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

Bonsoir le forum

Bonsoir Bruno :)

J'ai eu l'occasion de faire pas mal de teste, j'ai trouvé une correction à faire,
Désolé j'ai pu l'identifier seulement avec des essais :(

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)

Désolé Bruno, j'ai mal fait mes essais auparavant :(

A+
 

BrunoM45

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

Re,

Le test est pourtant simple :( si j'ai bien compris
Code:
  If NumDerEpisode(Me.ComboBoxNomSérie) = 1 or NumDerEpisode(Me.ComboBoxNomSérie) = 65 Then
A+
 

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+
 

BrunoM45

XLDnaute Barbatruc
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 :(
 

BrunoM45

XLDnaute Barbatruc
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+
 

RONIBO

XLDnaute Impliqué
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+
 

Discussions similaires


Haut Bas