Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

un internaute

XLDnaute Impliqué
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
 

Pièces jointes

  • toto.xls
    52.5 KB · Affichages: 3

job75

XLDnaute Barbatruc
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…