Macro au conditionnel

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

Bonjour

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

Citation:

---

Envoyé par 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

---

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.

Citation:

---

Envoyé par 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.

---

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 ?

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:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) ... ... End Sub

---

Citation:

---

Envoyé par ancien1957

=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.

Citation:

---

Envoyé par Patrice740

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.

Citation:

---

Envoyé par ancien1957

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 :koi:

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

Citation:

---

Envoyé par ancien1957

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:

---

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

Salut.

Il faut utiliser une macro évènementielle

Code:

---

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... :(

Citation:

---

Envoyé par ancien1957

Je voudrais taper la formule suivante sous Excel 2007:
=Si la cellule H1 [...]; Si la cellule H2 [...]; Si la cellule H3 [...]; 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 .

---

Citation:

---

Envoyé par Patrice740

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 ?

---

Citation:

---

Envoyé par ancien1957

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.

---

Citation:

---

Envoyé par Pierre Fauconnier

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 :koi:

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

---

C'est toujours pas très clair !
Ne crois-tu pas pas qu'il serait utile de nous fournir le code de tes macro, ce qui nous permettrait très probablement de mieux comprendre ta demande ?

Nous pourrions te proposer un code complet, c'est-à-dire le code adéquat de l'évènement Change sur la colonne H et surtout les modifications de tes macros 1 et 2 pour qu'elles puissent être exécutées pour la position correspondante.

Citation:

---

Envoyé par Patrice740

C'est toujours pas très clair !
Ne crois-tu pas pas qu'il serait utile de nous fournir le code de tes macro, ce qui nous permettrait très probablement de mieux comprendre ta demande ?

Nous pourrions te proposer un code complet, c'est-à-dire le code adéquat de l'évènement Change sur la colonne H et surtout les modifications de tes macros 1 et 2 pour qu'elles puissent être exécutées pour la position correspondante.

---

Au fait, il y a le code de ma macro et le code de ma Private Sub.
Ouvrez la Pièce Jointe SVP.
Un grand Merci à Tous.

Bonjour,

Si j'ai bien compris, je te propose ce code dans le module de la feuille (et supprimes Macro1) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("K1:K4")) Is Nothing Then Ajoute_Tableau [A1], "hamadou", Range("K1").Value = "" Ajoute_Tableau [A25], "hamadou", Range("K2").Value = "" Ajoute_Tableau [A55], "hamadou", Range("K3").Value = "" Ajoute_Tableau [A85], "Liste des élèves", Range("K4").Value = "" End If End Sub Private Sub Ajoute_Tableau(r As Range, v As String, Optional efface As Boolean = False) r.Resize(16, 8).Clear If efface Then Exit Sub r.Resize(16, 8).Borders.LineStyle = xlContinuous r.Offset(0, 1).Value = v End Sub

---

Merci beaucoup Patrice.

Je vous remercie infiniment pour tous les efforts que vous avez consentis pour m'avoir envoyé le code qu'il fallait, mais voilà qu'un autre problème est apparu.
Je vais vous expliquer:
Dès que je saisis du texte dans la cellule K1, un tableau est ajouté immédiatement en A1; C'est ce que je voulais. Mais lorsque je remplis ce tableau avec des valeurs numériques (Les notes des élèves) et que j'active K2 pour ajouter un autre tableau en A25, toutes les données saisies dans le 1er tableau disparaissent. Je ne comprends rien à tout ça.
Aussi, lorsque je supprime K3 par exemple, toutes les données que j'ai saisies dans les autres tableaux disparaissent.
Merci beaucoup.

Il faut que tu ajoutes au code de Patrice740 (juste après la ligne du premier If), un Select Case qui ne crée qu'un seul tableau en fonction de la case K qui a été modifiée.
https://msdn.microsoft.com/fr-fr/lib.../gg278665.aspx

Citation:

---

Envoyé par ancien1957

Je vous remercie infiniment pour tous les efforts que vous avez consentis pour m'avoir envoyé le code qu'il fallait, mais voilà qu'un autre problème est apparu.
Je vais vous expliquer:
Dès que je saisis du texte dans la cellule K1, un tableau est ajouté immédiatement en A1; C'est ce que je voulais. Mais lorsque je remplis ce tableau avec des valeurs numériques (Les notes des élèves) et que j'active K2 pour ajouter un autre tableau en A25, toutes les données saisies dans le 1er tableau disparaissent. Je ne comprends rien à tout ça.
Aussi, lorsque je supprime K3 par exemple, toutes les données que j'ai saisies dans les autres tableaux disparaissent.
Merci beaucoup.

---

Effectivement, la conservation des infos n'était pas précisée dans la demande initiale, voici le code corrigé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("K1:K4")) Is Nothing Then Ajoute_Tableau [A1], "hamadou", Range("K1").Value = "" Ajoute_Tableau [A25], "hamadou", Range("K2").Value = "" Ajoute_Tableau [A55], "hamadou", Range("K3").Value = "" Ajoute_Tableau [A85], "Liste des élèves", Range("K4").Value = "" End If End Sub Private Sub Ajoute_Tableau(r As Range, v As String, Optional efface As Boolean = False) If efface Then r.Resize(16, 8).Clear Exit Sub End If r.Resize(16, 8).Borders.LineStyle = xlContinuous r.Offset(0, 1).Value = v End Sub

---

Merci pour tout Patrice740, ça fonctionne bien. Lorsque je saisis du texte dans les cellules K1, K2, K3, K4, immédiatement après apparaissent 4 tableaux
( en A1; en A25 ; en A55 ; en A85 ).Le seul inconvénient est que lorsque je trie de A à Z le contenu des cellules K1, K2, K3, K4 , les tableaux ne bougent pas. Je voudrais que si le contenu de K1 passe en K2, même les tableaux suivront la même opération.
Bonne soirée.

Citation:

---

Envoyé par ancien1957

Merci pour tout Patrice740, ça fonctionne bien. Lorsque je saisis du texte dans les cellules K1, K2, K3, K4, immédiatement après apparaissent 4 tableaux
( en A1; en A25 ; en A55 ; en A85 ).Le seul inconvénient est que lorsque je trie de A à Z le contenu des cellules K1, K2, K3, K4 , les tableaux ne bougent pas. Je voudrais que si le contenu de K1 passe en K2, même les tableaux suivront la même opération.
Bonne soirée.

---

Est-tu sûr qu'il n'y a pas autres fonctionnalités que tu aurais oublié de demander ?

C'est la toute dernière fonctionnalité que je vous demande. Excusez-moi Patrice740.
Bonne soirée.