XL 2013 VBA Prochain numéro

[Danyk01]

Bonjour

J’aimerais afficher dans le dossier A, cellule (A3) le dernier numéro +1 d’une liste qui se trouve dans le dossier B, Feuil1,Liste : LNumero
ex : dossier A : C:\mes documents\MATRICE_TEST.xlsm\ cellule (A3)
dossier B : C:\mes documents\JOURNAL.xlsm\ colonne A, dernier numero+1
Avec un clic sur le bouton “Prochain Numéro”

Merci pour votre aide

 

[laurent3372]

Sans macro :

=GRANDE.VALEUR('[JOURNAL .xlsm]Feuil1'!$A:$A;1)+1

Cordialement,
-- LR

 

[Danyk01]

Merci Laurent
Mais il me faut un code VBA, j'explique mon usine à gaz:
1- Je créé un devis à l'aide de ma matrice avec le dernier n°+1 issu du journal
2- je fais une archive (1 ligne dans le journal et une copie du devis dans le fichier du client)
Jusque là tout fonctionne

3- mais si j'ouvre ma matrice pour un nouveau devis, l'ancien numéro s'affiche
c'est là que je dois pouvoir cliquer sur le bouton pour sélectionner un nouveau n°

Je vais qd même essayer ta solution
A+

 

[laurent3372]

Ma solution affiche le nouveau numéro dans la feuille Matrice

 

[Danyk01]

Ma solution affiche le nouveau numéro dans la feuille Matrice

Laurent
Je crois que ça marche comme je voulais
En effet, si j'archive le docs. ça me rajoute la ligne au journal et ensuite ça me rajoute le nouveau n° quand j'ouvre la matrice.
Merci bcp

 

[fanfan38]

Bonjour
Ta macro

Sub ProchainNum()
  Dim derlig As Long
  With Workbooks("JOURNAL .xlsm")
   derlig = .Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
   Range("A3").Value = .Sheets("Feuil1").Range("A" & derlig).Value + 1
  End With
End Sub

A+ François

 

[Danyk01]

Bonjour
Ta macro

Sub ProchainNum()
  Dim derlig As Long
  With Workbooks("JOURNAL .xlsm")
   derlig = .Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
   Range("A3").Value = .Sheets("Feuil1").Range("A" & derlig).Value + 1
  End With
End Sub

A+ François

Merci François
Tu es vraiment TOP
C'est ça que je voulais pour faire évoluer mon document.
A+

 

[patricktoulon]

BONJOUR
j'arrive tard mais bon
il y avait aussi la solution du names caché

un bouton qui appelle la macro newdevis

Sub newdevis()
    Dim nom As Names
    For Each n In Application.Names
        If n.Name = "DevisNumber" Then x = True
    Next
    If Not x Then
        Application.Names.Add "DevisNumber", 1, False
    Else
        Names("DevisNumber").RefersTo = Val(Replace(Names("DevisNumber"), "=", "")) + 1
    End If
    Cells(2, 3).value= Replace(Names("DevisNumber"), "=", "")
End Sub

ça permet de se dispenser d'une feuille mémoire
bien Evidemment il faut faire un save de la même manière qu'avec une feuille mémoire

cela dit
le save de la "matrice"(pour employer le même terme) doit se faire après enregistrement du devis
car si on annule par exemple la saisie d'un devis on aura des numéros qui ne se suivent pas

 

[Danyk01]

Bonjour François
Ta macro fonctionne (je l'ai marqué comme solutionné)
Juste une question :
Si le fichier "JOURNAL.Xlsm" est en forme de Tableau ça ne marche pas ça me mets un 1
sur une page simple ça fonctionne, c'est normal?

 

[fanfan38]

Le fichier que tu m'as donné le fichier journal est sous forme de tableau est ça marche...
A+ François

 

[Danyk01]

BONJOUR
j'arrive tard mais bon
il y avait aussi la solution du names caché

un bouton qui appelle la macro newdevis

Sub newdevis()
    Dim nom As Names
    For Each n In Application.Names
        If n.Name = "DevisNumber" Then x = True
    Next
    If Not x Then
        Application.Names.Add "DevisNumber", 1, False
    Else
        Names("DevisNumber").RefersTo = Val(Replace(Names("DevisNumber"), "=", "")) + 1
    End If
    Cells(2, 3).value= Replace(Names("DevisNumber"), "=", "")
End Sub

ça permet de se dispenser d'une feuille mémoire
bien Evidemment il faut faire un save de la même manière qu'avec une feuille mémoire

cela dit
le save de la "matrice"(pour employer le même terme) doit se faire après enregistrement du devis
car si on annule par exemple la saisie d'un devis on aura des numéros qui ne se suivent pas

Merci Patrick
FanFan38 m'a envoyé un code qui fonctionne
Je vais qd même essayer le tien Histoire de me familiariser avec les macros
Dany