Recherche efface ligne

Recherche efface ligne - VB/VBA/VBS - Programmation

Marsh Posté le 27-10-2007 à 08:36:30    

BONJOUR A TOUS
 
Le but de ma macro et le suivant
 
Recherche dans la colonne A la ligne  dans la page nome base  
Dont le résultat correspond à la cellule E 10 de la page modiffiche
Et effacer le contenu de cette ligne
Voici ma séance  
problème elle n’efface pas le contenu de la ligne juste la cellule  dans la colonne A
 
A = Sheets("modiffiche" ).Range("E10" )
Sheets("base" ).Activate
For Each ligne In Range("A5:A8000" )
If ligne = A Then
ligne.ClearContents
 
 
Par avance merci
 
AIGLON74


Message édité par Elmoricq le 27-10-2007 à 11:36:07
Reply

Marsh Posté le 27-10-2007 à 08:36:30   

Reply

Marsh Posté le 27-10-2007 à 11:36:35    

RE BONJOUR
 
EN FAISANT CETTE MODIF CA MARCHE Super
 
A = Sheets("modiffiche" ).Range("E10" )
Sheets("base" ).Activate
For Each ligne In Range("A5:A8000" )
If ligne = A Then
ligne.EntireRow.ClearContents
 
 
 
AIGLON74

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed