Macro efface cellule

MacMac

XLDnaute Occasionnel
Bonsoir le Forum ,

voila hier je chercher comment effacer une cellue si je rentre du texte dans une cellule j'ai trouver sur le forum un model merci le forum

maintenat je cherche a simplifier mon code si quelqu'un pourrais mader je sera ravi voici le code repetitif je desir le simplifier mais aucune connaissance

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$22" Then Range("G22:W22").ClearContents
If Target.Address = "$F$23" Then Range("G23:W23").ClearContents
If Target.Address = "$F$24" Then Range("G24:W24").ClearContents
If Target.Address = "$F$25" Then Range("G25:W25").ClearContents
If Target.Address = "$F$26" Then Range("G26:W26").ClearContents
If Target.Address = "$F$27" Then Range("G27:W27").ClearContents
If Target.Address = "$F$28" Then Range("G28:W28").ClearContents
If Target.Address = "$F$29" Then Range("G29:W29").ClearContents
If Target.Address = "$F$30" Then Range("G30:W30").ClearContents
If Target.Address = "$F$31" Then Range("G31:W31").ClearContents
If Target.Address = "$F$32" Then Range("G32:W32").ClearContents
If Target.Address = "$F$33" Then Range("G33:W33").ClearContents
If Target.Address = "$F$34" Then Range("G34:W34").ClearContents
If Target.Address = "$F$35" Then Range("G35:W35").ClearContents
If Target.Address = "$F$36" Then Range("G36:W36").ClearContents
If Target.Address = "$F$37" Then Range("G37:W37").ClearContents
If Target.Address = "$F$38" Then Range("G38:W38").ClearContents
If Target.Address = "$F$39" Then Range("G39:W39").ClearContents
If Target.Address = "$F$40" Then Range("G40:W40").ClearContents
End Sub


merci le forum MacMac
 

Spitnolan08

XLDnaute Barbatruc
Re : Macro efface cellule

Bonsoir,

Je te propose :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig as Long
Lig = Target.Row
If 21 < Lig And 41 > Lig And Target.Column = 6 Then Range(Cells(Lig, "G"), Cells(Lig, "W")).ClearContents
End Sub
Cordialement
 

myDearFriend!

XLDnaute Barbatruc
Re : Macro efface cellule

Bonsoir MacMac, Spitnolan08,

Une autre façon de faire pour la forme :

Code:
[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Range("F22:F40")) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Target.EntireRow.Range("G1:W1").ClearContents
    [COLOR=NAVY]End If
End Sub[/COLOR]
Cordialement,
 

Discussions similaires

Réponses
6
Affichages
347

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh