macro suppression

L

liloo23

Guest
bonjour a toutes et a tous!

j'ai un petit problème de macro, je vous explique :

je dois réaliser une fiche de suivi d'avancement mais je rencontre quelque difficulté à réaliser une macro

En effet, je voudrais lorsque que l'on coche la case B4 que rien ne se passe, mais lorsque celle-ci reste vierge que la ligne 31 disparaisse sur les trois feuilles présentes dans mon fichier!

J'ai donc essayé une formule mais ca ne marche aucunement, que la case B4 soit cochée ou non, il me supprime la ligne 31 :

Sub
Range ('B4').select
If ('B4') <> x Then
Rows('31:31').Select
Selection.Delete Shift:=xlUp
End if
End sub

D'autre part, je ne sais pas comment lui faire supprimer cette même ligne sur les trois feuillles.

Merci beaucoup par avance
 

Hervé

XLDnaute Barbatruc
re liloo, le forum

Pas de problème :)

le meme code commenté :

Dim ws As Worksheet 'déclare ws comme étant une feuille

'si la cellule B4 est différente de 'x'
If Range('b4') <> 'x' Then
&nbsp; &nbsp;
'pour chaque feuille dans le 'classeur'
&nbsp; &nbsp;
For Each ws In Worksheets
&nbsp; &nbsp; &nbsp; &nbsp;
'supprime la ligne 31 de la feuille
&nbsp; &nbsp; &nbsp; &nbsp; ws.Rows('31:31').Delete Shift:=xlUp
&nbsp; &nbsp;
'prochaine feuille
&nbsp; &nbsp;
Next ws
'fin de condition
End If

salut
 

Discussions similaires

Réponses
2
Affichages
494

Statistiques des forums

Discussions
312 348
Messages
2 087 508
Membres
103 568
dernier inscrit
NoS