M
Mathieu
Guest
Bonjour, je fais appel à vous aujourd'hui car je suis bloqué sous Excel 2003. Je n'y connais rien en VBA et mes tentatives de programmation n'ont rien donné de probant.
Voici ce que je souhaite obtenir:
J'ai un fichier où je voudrais autoriser l'exécution d'une macro en fonction de la valeur d'une case de reférence ('oui' ou 'non')
Et je n'arrive pas à faire fonctionner la macro...
Sub Effacer()
If ActiveCell = 'oui' Then GoTo 1
1 If MsgBox('Effacer entièrement les cellules TOTAL OA ?', vbYesNo + vbCritical) = vbYes Then
Range('CL25OA').ClearContents
Range('ASPEHOA').ClearContents
Else
End If
End Sub
Celle-ci marche qu'il y ait oui ou non dans la cellule active. Si je rajoute Else en dessous du premier if, il me dit qu'il n'a pas de if... Au secours !
Merci d'avance !
Mathieu
Voici ce que je souhaite obtenir:
J'ai un fichier où je voudrais autoriser l'exécution d'une macro en fonction de la valeur d'une case de reférence ('oui' ou 'non')
Et je n'arrive pas à faire fonctionner la macro...
Sub Effacer()
If ActiveCell = 'oui' Then GoTo 1
1 If MsgBox('Effacer entièrement les cellules TOTAL OA ?', vbYesNo + vbCritical) = vbYes Then
Range('CL25OA').ClearContents
Range('ASPEHOA').ClearContents
Else
End If
End Sub
Celle-ci marche qu'il y ait oui ou non dans la cellule active. Si je rajoute Else en dessous du premier if, il me dit qu'il n'a pas de if... Au secours !
Merci d'avance !
Mathieu