Macro plusieurs conditions

[Tana]

Bonjour,

Je n'arrive pas à ecrire la commande suivante:

SI la feuille1 est sélectionnée
ET que la feuille2 est visible,
ALORS efface les valeurs des cellules A1 et A2 de la feuille2
ET masque la feuille 2
OU
(SI la feuille1 est sélectionnée)
ET que la feuille3 est visible,
ALORS efface les valeurs des cellules A1 et A2 de la feuille3
ET masque la feuille 3

J'ai essayé des elseif mais Je suis -beaucoup- un peu perdu

Merci

 

[John]

Voilà je viens de faire ce petit programme en vitesse et apparemment ça marche (en tout cas il fait ce que tu demandes).

Sub efface()
If Sheets(1).Activate = True And Sheets(2).Visible = True Then
Sheets(2).Select
Range('A1:B1').Value = ''
ActiveWindow.SelectedSheets.Visible = False
Sheets(1).Select
Else
If Sheets(1).Activate = True And Sheets(3).Visible = True Then
Sheets(3).Select
Range('A1:B1').Value = ''
ActiveWindow.SelectedSheets.Visible = False
Sheets(1).Select
End If
End If
End Sub

Voilà j'espère que ça pourra t'aider un peu.

Bonne journée.

John

 

[Tana]

C'est super! Je l'ai adapté à mon fichier ça marche impeccable!

Merci beaucoup!!

 

[john]

Bonjour,

De rien, le forum est là pour ça.

Quand j'ai commencé dans les macros, j'ai ramé aussi et malheureusement je ne connaissais pas ce forum, donc j'ai dû chercher, chercher et chercher encore (

Si tu as d'autre problèmes, n'hésite pas une seconde.

Bonne fin de journée.

John

boblanc1@hotmail.com (au cas où...)