Discussion :

[ancien1957]

Aidez moi à réaliser sous Ecxel 2007 des relevés de notes scolaires à travers la formule suivante:
=Si(ESTTEXTE(A1);Executer Macro1 en page1; Sinon Executer Macro2 en page1; Si(ESTTEXTE(A2);Executer Macro1 en page2; Sinon Executer Macro2 en page2; Si(ESTTEXTE(A3);Executer Macro1 en page3; Sinon Executer Macro2 en page3; ... Si(ESTTEXTE(A50);Executer Macro1 en page50; Sinon Executer Macro2 en page50))

Merci d'avance

[ylemasson]

Bonjour

Je pense qu'un peu plus d'explications ne serait pas de trop ..

Aidez moi à réaliser sous Ecxel 2007 des relevés de notes scolaires à travers la formule suivante:
=Si(ESTTEXTE(A1);Executer Macro1 en page1; Sinon Executer Macro2 en page1; Si(ESTTEXTE(A2);Executer Macro1 en page2; Sinon Executer Macro2 en page2; Si(ESTTEXTE(A3);Executer Macro1 en page3; Sinon Executer Macro2 en page3; ... Si(ESTTEXTE(A50);Executer Macro1 en page50; Sinon Executer Macro2 en page50))

Merci d'avance

[ancien1957]

Je voudrais taper la formule suivante sous Excel 2007:
=Si la cellule H1 contient du texte, alors sélectionner la cellule A1 puis exécuter la macro1 (dans la cellule A1) sinon exécuter la macro2 ; Si la cellule H2 contient du texte, alors sélectionner la cellule A2 puis exécuter la macro1 (dans la cellule A2) sinon exécuter la macro2 ; Si la cellule H3 contient du texte, alors sélectionner la cellule A3 puis exécuter la macro1 (dans la cellule A3) sinon exécuter la macro2 ; ....Si la cellule H50 contient du texte, alors sélectionner la cellule A50 puis exécuter la macro1 (dans la cellule A50) sinon exécuter la macro2 .

Merci d'avance.

[Patrice740]

Je voudrais taper la formule suivante sous Excel 2007:
=Si la cellule H1 contient du texte, alors sélectionner la cellule A1 puis exécuter la macro1 (dans la cellule A1) sinon exécuter la macro2 ; Si la cellule H2 contient du texte, alors sélectionner la cellule A2 puis exécuter la macro1 (dans la cellule A2) sinon exécuter la macro2 ; Si la cellule H3 contient du texte, alors sélectionner la cellule A3 puis exécuter la macro1 (dans la cellule A3) sinon exécuter la macro2 ; ....Si la cellule H50 contient du texte, alors sélectionner la cellule A50 puis exécuter la macro1 (dans la cellule A50) sinon exécuter la macro2 .

Merci d'avance.

Bonjour,

Ton explication n'est vraiment pas claire : une macro ne peut-être lancée que par un évènement !
Peux-tu nous donner le code VBA de la macro1 et celui de la macro2 ?
Est-ce lors de la saisie d'un texte dans une des cellules de la colonne A que tu voudrais lancer l'exécution d'une de ces macros ?

[ancien1957]

Bonjour,

Ton explication n'est vraiment pas claire : une macro ne peut-être lancée que par un évènement !
Peux-tu nous donner le code VBA de la macro1 et celui de la macro2 ?
Est-ce lors de la saisie d'un texte dans une des cellules de la colonne A que tu voudrais lancer l'exécution d'une de ces macros ?

Dès que je saisis du texte dans la cellule H1, il faudrait que ma macro s’exécute en A1.
En fait, la macro1 exécute un tableau dans lequel il y a 6 colonnes et 50 lignes (avec bien sur du texte dans ce tableau) tandis que la macro2 supprime tout le tableau (Format et texte) c'est-à-dire que la page redevient vierge.

Merci à vous.

[Pierre Fauconnier]

Dès que je saisis du texte dans la cellule H1, il faudrait que ma macro s’exécute en A1.
En fait, la macro1 exécute un tableau dans lequel il y a 6 colonnes et 50 lignes (avec bien sur du texte dans ce tableau) tandis que la macro2 supprime tout le tableau (Format et texte) c'est-à-dire que la page redevient vierge.

Merci à vous.

Toujours pas certain d'avoir compris...
Dès que je saisis du texte dans la cellule H1, il faudrait que ma macro s’exécute en A1

la macro1 exécute un tableau dans lequel il y a 6 colonnes et 50 lignes Ca veut dire quoi, exécuter un tableau?

[Menhir]

Dès que je saisis du texte dans la cellule H1

Il faut utiliser une macro évènementielle Worksheet_Change
https://msdn.microsoft.com/fr-fr/lib.../ff839775.aspx

en la commençant par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Address <> "$H$1" Then Exit Sub

Pour que le reste de la macro ne s'exécute que si c'est la cellule H1 qui a été modifiée.
https://msdn.microsoft.com/fr-fr/lib.../ff837625.aspx

[Pierre Fauconnier]

Salut.

Tu pourrais t'orienter vers l'évènement CHANGE de la feuille concernée, avec un SELECT CASE pour tester la cellule modifiée. De multiples exemples existent sur les forums et dans la faq

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
...
...
End Sub

[Menhir]

=Si(ESTTEXTE(A1);Executer Macro1 en page1; Sinon Executer Macro2 en page1;

Tu prends le problème à l'envers : ce n'est pas dans la formule qu'il faut mettre le test mais dans la macro.
Lancer la macro quel que soit l'état de la cellule et, dans cette macro, tester l'état des cellules concernée pour lancer tel ou tel action.

[Pierre Fauconnier]

Salut.

Il faut utiliser une macro évènementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$H$1" Then
 
  End If
End Sub

Evite les exit sub: il ne peut y avoir qu'une seule sortie de sub ou de function si tu veux éviter les ennuis.

Ceci dit, je t'ai déjà donné la solution lundi...

[Pierre Fauconnier]

Ca irait plus vite d'envoyer directement tout le cahier des charges puis de laisser travailler les larbins pour rien, tant qu'on y est...

Surtout que je ne vois plus tellement le rapport avec la question de départ.