Reporter des valeurs

[lelukois]

Bonsoir, le forum j'ai de nouveau besoin de vous pour un tableau Excel pour gérer des impressions, je voudrais extraire la correspondance de la Numerotation de chaque carnet situé dans d'autre cellule.
La numérotation est aléatoire; La saisie de la numérotation se faisant en cour d'année.
Le nombre de carnet dans une année peut varier avec un maximum de un par mois; donc 13 carnets cela depend des ventes; un carnet est égale a 200 souches Le carnets a toujours une numerotation de 1 à 200 par exemple X 300001 à X 300200; H 1401 à H 1600; AA01 à AA200 de manière aléatoire.
Je joint un fichier pour mieux me faire comprendre.

Merci d'avance a ceux qui me donnerons un coup de main

 

[phlaurent55]

Re : Reporter des valeurs

Bonjour lelukois,

voir fichier joint (formules dans les cellules jaunes)
.......... si j'ai bien compris la demande

à+
Philippe

 

[mapomme]

Re : Reporter des valeurs

Bonjour lelukois, phlaurent55

Une autre interprétation de la demande avec un essai dans le fichier joint. La présentation ne correspond pas tout à fait à celle demandée mais c'est la mienne

Le tableau s'adapte automatiquement en fonction de la modification du tableau source.

J'ai dû ôter la fusion des cellules C7: D7 et E7:F7. En règle générale, ne jamais fusionner de cellules dans les tableaux de données. La fusion complique, voire empêche, la bonne marche de certaines fonctions et de certaines actions comme les tris. Vous pouvez, dans la plupart des cas, remplacer la fusion par le choix de l'alignement "Centrer sur plusieurs colonnes" comme pratiqué dans le fichier pour les cellules C7: D7 et E7:F7.

Les formules isolées:

en I5 (nombre de carnets):

=NB(J7:J19)

en J7 (1ier carnet):

=SIERREUR(PETITE.VALEUR($D$5:$D$31;1);"")

Les formules à copier/tirer vers le bas:

en J8 (formule matricielle):

=SIERREUR(PETITE.VALEUR(SI($D$5:$D$31<200*(1+ENT((J7-1)/200));"";$D$5:$D$31);1);"")

en I7:

=SIERREUR(INDEX($C$5:$C$31;EQUIV(J7;$D$5:$D$31;0));"")

en K7:

=I7

en L7 (formule matricielle):

=SIERREUR(MAX(SI(($F$5:$F$31>=J7)*($F$5:$F$31<= 200*(1+ENT((J7-1)/200)))>0;$F$5:$F$31;""));"")

Formule matricielle: Elle doit être validée par la combinaison des touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée comme une formule classique.
Si la validation matricielle est correcte, alors Excel entoure la formule d'accolades {=.......}.
Chaque fois que cette formule sera modifiée, la validation devra se faire par Ctrl+Maj+Entrée. Les accolades apparaissent à la validation et ne doivent pas être saisies au clavier.

 

[Regueiro]

Re : Reporter des valeurs

Bonsoir à Tous.
Une autre variante avec une procédure évènementielle.
Private Sub Worksheet_Change(ByVal Target As Range)
Cet évènement est déclenché lorsque le contenu d'une cellule est modifiée dans la feuille.
En colonne C5->Cxxx.
En suite les données sont triées par ordre Alpha dans la colonne depuis J13.

Sub SansDoublonsTrié1()
   Dim temp()
   Set f = Sheets("TEST")
   Set mondico = CreateObject("Scripting.Dictionary")
   a = Range(f.[c5], f.[c65000].End(xlUp)).Value
   For Each c In a
      mondico(c) = ""
   Next c
   Set dest = f.Range("I13")
   dest.Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
   dest.Resize(mondico.Count, 1).Sort Key1:=dest, Order1:=xlAscending
   Set mondico = Nothing ' libère mondico
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect([C5:C200], Target) Is Nothing And Target.Count = 1 Then
     SansDoublonsTrié1
    End If
 End Sub

Le fichier en PJ.
Salutations.
A+

 

[lelukois]

Re : Reporter des valeurs

Bonsoir, un grand merci pour toute vos méthodes et votre aide . Ma pomme ta solution a été retenu cela fonctionne a merveille .
Je vous remercie encore en espérant que mon problème puisse en aidez d'autres.