VBA effacé

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Août 2010

• #2

Re : VBA effacé

Bonjour JP,

ton fichier en retour

à+
Philippe

 

Pièces jointes

• 111.xls

  37 KB · Affichages: 62
• 111.xls

  37 KB · Affichages: 68
• 111.xls

  37 KB · Affichages: 72

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 17 Août 2010

• #3

Re : VBA effacé

Bonjour,
Dans le module de la feuille

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C2:G24"), Target) Is Nothing Or Target.Count > 1 Then Exit Sub
Set c = Range("C26:G26").Find(Target.Value, lookat:=xlWhole)
If Not c Is Nothing Then c.ClearContents
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 17 Août 2010

• #4

Re : VBA effacé

phlaurent55 à dit:

Bonjour JP,

ton fichier en retour

à+
Philippe

Cliquez pour agrandir...

Alors un grand merci pour ton aide c'est super.

A +

J.-P.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Août 2010

• #5

Re : VBA effacé

Re,

ça peut aussi fonctionner dans l'autre sens
voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xls

  38 KB · Affichages: 56
• 111.xls

  38 KB · Affichages: 57
• 111.xls

  38 KB · Affichages: 58

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 17 Août 2010

• #6

Re : VBA effacé

phlaurent55 à dit:

Bonjour JP,

ton fichier en retour

à+
Philippe

Cliquez pour agrandir...

Merci Philippe mais je teste ton fichier et dans la collone G ca ne fonctionne pas!

Merci


J.P

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Août 2010

• #7

Re : VBA effacé

Re,

modifie le code comme ceci:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:G24")) Is Nothing Then
[B][COLOR=blue] For i = 3 To 7[/COLOR][/B]
 If Target.Value = Cells(26, i).Value Then
 Cells(26, i).ClearContents
 End If
 Next i
End If
End Sub

c'est la ligne bleue qui posait problème

à+
Philippe

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 17 Août 2010

• #8

Re : VBA effacé

Salut,
J'ai mis ton code dans le module ca ne fonctionne pas.
Salut a +

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Août 2010

• #9

Re : VBA effacé

Re,

mets plutôt le code dans la feuille

à+

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 17 Août 2010

• #10

Re : VBA effacé

Que veux dire ( For i = 3 To 7 ) dans le code ?

J.-P.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Août 2010

• #11

Re : VBA effacé

J.-P. à dit:

Que veux dire ( For i = 3 To 7 ) dans le code ?

J.-P.

Cliquez pour agrandir...

de la colonne 3 à la colonne 7

à+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Août 2010

• #12

Re : VBA effacé

Bonsoir à tous

Juste une piqure de rappel J-P 😉
A l'avenir essaie d'employer des titres plus explicites, stp, pour tes questions.
Cela nous rendra service à tous (et facilitera les recherches à venir dans le forum)

Merci.

Ps: Vba effacé, Code VBA ou anni sont des titres qui sont loin de ceux préconisés dans la charte du forum.

 

Dernière édition: 17 Août 2010

Vote positif 0 Vote négatif