Ajout recette

[roro69]

Bonsoir et merci pour le temps passé et l’aide apporté
voici mon problème détaillé :
Dans mon fichier joint lorsque je souhait ajouter une recette ; j’attribue un numéro à celle-ci ,il doit etre toujours différent jusqu’à présent dans mon code j’ajoutais 1 à la valeur de la dernière ligne mais le problème et que lorsque je trie alphabétiquement mes recettes les numéros ne sont plus à la suite et donc lorsque je rajoute à la dernière valeur et bien je me retrouve avec deux numéros identiques.
Si quelqu’un pouvait me trouver la solution se serait sympa.
Merci pour votre aide.
Je vous prépare un chtiot blanc de chez moi et je trinque déjà à votre bonne santé

 

[soenda]

Re : Ajout recette

Bonsoir le fil, Roro69

tu peux essayer:

MonProchainNumero = WorksheetFunction.Max([COLOR=red][B][[/B][/COLOR]A:A[B][COLOR=red]][/COLOR][/B]) + 1

A plus

 

[PMO2]

Re : Ajout recette

Bonjour,

A tout hasard, essayez le code modifié suivant

Private Sub Ajouter_Click()
Dim DerLigne As Integer
Dim R As Range

'//// ajout pmo ////
With Sheets("Recettes")
  Set R = .[a1].CurrentRegion
  R.Sort Key1:=.[b2], Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
'///////////////////

DerLigne = Sheets("Recettes").Range("A65536").End(xlUp).Row + 1
With Sheets("Recettes")
.Cells(DerLigne, 1) = ComboType.Column(0, ComboType.ListIndex)
.Cells(DerLigne, 2) = .Range("B" & DerLigne - 1).Value + 1
.Cells(DerLigne, 3) = TxtRec
.Cells(DerLigne, 4) = Txtprog
.Cells(DerLigne, 5) = TexEne
.Cells(DerLigne, 6) = TexLiP
.Cells(DerLigne, 7) = TexGlu
.Cells(DerLigne, 8) = TexPro
.Cells(DerLigne, 9) = TexNB
LabID = .Range("B" & DerLigne - 1).Value + 1
End With
CmdIng.Enabled = True
End Sub

Cordialement.

PMO
Patrick Morange

 

[roro69]

Re : Ajout recette

Bonsoir Soenda,PMO2
Merci beaucoup pour vos réponses;je vais creuser l'idée de soenda;
PM02 le tri alpha est une bonne idée aussi je vais regarder.
Encore merci.
Soenda par contre j'ai juste un petit souci:
J'ai insère ton code et j'ai une erreur "Impossible de lire la propriété MAX la classe"
Encore merci de votre intèret

 

[soenda]

Re : Ajout recette

Bonsoir le fil, PMO2, roro69

Alors peut-être comme ça (le nom de la feuille est à adapter)

Set plage = Worksheets("Feuil1").Range("A:A")
rep = Application.WorksheetFunction.Max(plage) + 1

ou encore (Feuil1 étant le nom interne de la feuille)

rep = WorksheetFunction.Max(Feuil1.[A:A]) + 1

Ceci marche chez moi.

A plus

 

[roro69]

Re : Ajout recette

Bonjour soenda
Oui c'est parfait çà marche
Merci beaucoup