Autres [RÉSOLU] Problème macro ou autre dysfonctionnement

un internaute · 19 Janvier 2023

Bonjour le forum
Dans cellule E6 j'ai ajouté 100 €. Si je fais Suppr pour supprimer le montant et les dates cellules D6 & F6 ça fonctionne bien
Je fait la même chose dans cellule H6 mais ça n'efface pas les dates G6 & I6 et la ligne non plus. Il faut la sélectionner Clic droit Supprimer ligne
Le tableau 1 sert que de relais cellule B2

Merci à vous pour vos éventuels retours
Cordialement

PS: Excel 2003

job75 · 19 Janvier 2023

Bonjour un internaute,

Puisque Target est supprimée il faut mémoriser sa ligne :

VB:

    If Not Intersect(Target, Range("E4:E100,H4:H100")) Is Nothing Then
        tr = Target.Row 'mémorise la ligne
        If Target = "" Then  'Si le montant a été éffacé, on efface le mois et la date
            Range(Cells(tr, "D"), Cells(tr, "F")).ListObject.ListRows(tr - 3).Delete
            Range(Cells(tr, "G"), Cells(tr, "I")).ListObject.ListRows(tr - 3).Delete
        Else                                'Sinon on inscrit mois et date
            Cells(tr, Target.Column - 1) = UCase(Format(Date, "mmmm"))
            Cells(tr, Target.Column + 1) = UCase(Format(Date, "dddd dd mmmm yyyy"))
        End If

A+

un internaute · 19 Janvier 2023

Bonjour job75
Merci beaucoup
Bonne journée à toi
Cordialement

Autres [RÉSOLU] Problème macro ou autre dysfonctionnement

un internaute

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

un internaute

XLDnaute Impliqué

Discussions similaires