Copie suivant historique.

[aubelix]

Un bonjour matinal à tous les Amis du Forum. 🙂

Je reviens une fois de plus vers vous pour un problème que je vous soumests :

A partir d'un fichier qui est appellé à être ouvert par plusieurs personnes
j'aurais aimé pouvoir conserver un historique du numéro Maxi de la colonne
A pour la Ref en G2.

A chaque ouverture, aller chercher le dernier numéro pour la Ref correspondant
à la cellule G2 de l'onglet BASE dans l'onglet "POUR_MEMOIRE" et le copier et le coller dans l'onglet "BASE" en y ajoutant 1.

A la sortie, copier l'historique à savoir la valeur de G2 el le numéro Maxi de la colonne A.
Le fichier joint sera plus explicite.

Par avance, Merci pour votre aide.
Cordialement.

 

[JBOBO]

Re : Copie suivant historique.

Bonjour,

Pas sur de pouvoir t'aider mais A priori ton zip n'est pas valide. Pour ma part je ne parviens pas à l'ouvrir.

Peux tu renvoyer un fichier STP !
Merci,

 

[aubelix]

Re : Copie suivant historique.

Bonjour JBOBO et les Amis du Forum. 🙂

Fichier ininitial modifié.

Cordialement.

 

[JBOBO]

Re : Copie suivant historique.

Bonjour,

un essai par formule poue le n° en A2

=SIERREUR(RECHERCHEV(G2;POUR_MEMOIRE!A2:B6;2;0)+1;1)

pour le reste je pense qu'il faut passer par macro et je ne sais pas faire.

Avis aux spécialistes.

 

[aubelix]

Re : Copie suivant historique.

Re JBOBO

Merci pour ta réponse. 🙂

J'ai un message d'erreur.
#NOM?

Par avance; Merci pour votre aide.
Cordialement.

 

[JBOBO]

Re : Copie suivant historique.

Bonjour,

effectivement la fonction sierreur n'est valable qu'à partir de 2007 je crois,

remplace :

=SIERREUR(RECHERCHEV(G2;POUR_MEMOIRE!A2:B6;2;0)+1;1)

par

=si(esterreur(recherchev(G2;POUR_MEMOIRE!A2:B6;2;0)+1)=vrai;1;recherchev(G2;POUR_MEMOIRE!A2:B6;2;0)+1)

et ça devrait marcher !

 

[aubelix]

Re : Copie suivant historique.

Re 🙂

J'ai trouvé un début de code.
Pourriez-vous m'aider à finaliser ce projet.

Sub EnrNumOrdre()
    Dim Ligne As Long
    With Sheets("POUR_MEMOIRE")
        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
        .Cells(Ligne, 1) = Range("[B]REF[/B]")  [COLOR=darkgreen]'Nommer la cellule G2[/COLOR]
        .Cells(Ligne, 2) = Range("[B]DERNIER_NUMERO[/B]")  [COLOR=darkgreen]'Nommer la cellule O2[/COLOR]
        .Cells(Ligne, 3) = Range("[B]DATE - HEURE[/B]")  [COLOR=darkgreen]'Nommer la cellule P2[/COLOR]
    End With
End Sub

Les copies se font bien.
Nommer les valeurs des diverses cellules (noms en caractères gras)


Comment puis-je trouver la valeur Maxi de la référence en G2 et la copier en A2 +1 à chaque ouverture du classeur.

Par avance; Merci pour votre aide.
Cordialement.

 

[aubelix]

Re : Copie suivant historique.

Bonsoir JBOBO 🙂

Merci pour ta réponse.

La formule fonctionne, mais prends en compte la 1ère valeur.
S'il y'a plusieurs REF identiques, il ne prends pas la valeur Maxi.

Quelqu'un airait-il une idée par formule ou macro ?

Par avance, merci pour votre aide.
Cordialement.