Macro au conditionnel

**ancien1957** · 01/09/2017, 17h42

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** · 01/09/2017, 19h20

Bonjour

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

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

**ancien1957** · 02/09/2017, 12h16

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** · 03/09/2017, 18h36

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 ?

**Pierre Fauconnier** · 04/09/2017, 08h40

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** · 04/09/2017, 14h16

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.

**ancien1957** · 05/09/2017, 18h14

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.

**Pierre Fauconnier** · 05/09/2017, 21h12

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

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** · 06/09/2017, 09h00

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 :

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** · 06/09/2017, 10h49

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

**Patrice740** · 07/09/2017, 14h21

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 .

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 ?

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.

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

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

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.

**ancien1957** · 09/09/2017, 10h20

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.

**Patrice740** · 10/09/2017, 22h59

Bonjour,

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

Code :

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

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

**ancien1957** · 11/09/2017, 19h36

Merci beaucoup Patrice.

**ancien1957** · 13/09/2017, 10h44

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.

**Menhir** · 13/09/2017, 11h10

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

**Patrice740** · 13/09/2017, 13h02

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 :

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

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

**ancien1957** · 15/09/2017, 18h54

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.

**Patrice740** · 15/09/2017, 22h31

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 ?