Incrémentation alphanumérique avec Mémorisation dernière valeur

Halffy · 11 Octobre 2011

Bonsoir le Forum, comment allez-vous?
Bien j'espère
Je retourne vers vous car je me trouve confronté à une nouvelle problématique (vous vous en doutiez)
En effet, comment incrémenter +1 à une valeur alphanumérique (HA ou BQ), suivant l'état qu'une cellule de cette même ligne appartient à la colonne "Débit" ou "Crédit"...
Tout en gardant en mémoire le n-1 dernier n° de HA ou BQ déjà sorti, afin de connaitre la nouvelle valeur définie à incrémenter?
Si je manque de claretée, je vous joins un fichier pour plus amples explications, en espérant cette fois-ci avoir été assez clair dans ma demande
cf: Vous y trouverez la macro (retravaillée) qui me permet d'incrémenter "+1" à la dernière valeur, mais sans distinction d'identification.
Je vous adresse par avance tous mes Remerciements pour le temps passé bénévolement, comme toujours.
Halffy /.

Dranreb · 11 Octobre 2011

Re : Incrémentation alphanumérique avec Mémorisation dernière valeur

Bonsoir.
Ça, ça a l'air de marcher :

VB:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim L As Long
Dim Entree As String * 6
Dim Chaine As String * 2
Dim Num As Double
Dim i As Integer

'   Suivant plage ("C16:C65536")
'   ==> Insertion Date J-1 dans Cellule Double-Clickée
      If Not Intersect(Target, Range("C16:C65536")) Is Nothing Then
         If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = Format(Now - 1, "mm/dd/yyyy"): ActiveCell.Offset(1, 0).Select
       End If
L = Target.Row
If Sh.Cells(L, 12).Value <> "" Then Chaine = "HA" Else Chaine = "BQ"
Do: L = L - 1
   If Left$(Sh.Cells(L, 2).Value, 2) = Chaine Then
      Sh.Cells(Target.Row, 2).Value = Chaine & Format(Right$(Sh.Cells(L, 2).Value, 3) + 1, "000")
      Exit Do
      End If
   Loop
End Sub

À +

Halffy · 11 Octobre 2011

Re : Incrémentation alphanumérique avec Mémorisation dernière valeur

Bonsoir Dranreb,
Je ne sais vraiment quoi dire ??
Si ce n'est un grand Merci pour ton Remarquable travail, qui répond parfaitement à ma requête (de prime abord)
Je regarderai plus en profondeur demain matin, car pour le moment je dois aussi m'occuper de mes enfants (et oui demain il y a école ) / Je te tiendrai au courant de toute manière. Encore Merci (pour la rapidité également de la réponse) & Bonne nuit,
Halffy /.

Halffy · 12 Octobre 2011

Re : Incrémentation alphanumérique avec Mémorisation dernière valeur

Bonjour Dranreb,
Donc comme promis, des nouvelles:
Après intégration de ta macro avec les miennes, il n'y a pas d'intéraction problématique, et mon fichier fonctionne correctement.
Je te remercie encore pour ta particiption (Création d'un fichier comptable Loi 1901)
==> Celui-ci avance bien
Bonne journée, et au plaisir...
Halffy /.

Incrémentation alphanumérique avec Mémorisation dernière valeur

Halffy

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Halffy

XLDnaute Occasionnel

Halffy

XLDnaute Occasionnel

Discussions similaires