PB association de macro

Version imprimable

Re bonjour tout le monde.

Je me permets de revenir vers vous car il y a un point que je ne comprends pas dans le vba Excel.
le PB:
j'ai creer une macro qui affiche ou non un certains caractere dans la cellule A1 si il n'y a rien et inversement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Test_vide() If Not IsEmpty(Range("A1")) Then With Range("A1") .Range("A1") = "" End With Else: IsEmpty (Range("A1")) With Range("A1") .Range("A1") = "CD" End With End If End Sub
Ensuite j'ai une macro "double-clic" qui appel une autre macro ("test_vide")lorsque je double clic sur la cellule A1.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'condition : si l'intersection de la cible et de la plage A12:A30 n'est pas vide 'autrement dit, si le double clic se fait dans la plage A12:A30 If Not Application.Intersect(Target, Range("A12:A30")) Is Nothing Then Call Creer_choix 'appelle la macro Créer_choix Cancel = True 'évite le mode édition lié au double clic End If 'fin de la condition End Sub
Le probleme est ça ne marche pas regulierement. En effet, le probleme vient du fameux "private sub"...
Je voudrais donc convertir cette macro en "sub" afin que je puisse mettre ces 2 macros dans n'importe quel fichier excel sans me battre a chaque fois avec les "module", worlsheet",etc.

Ma question est donc la suivante:
Comment faire pour que je puisse "mettre en relation ces 2 macros dans une meme "feuille1" par exemple?
Clairement, je veux juste pouvoir ouvrir mon fichier excel/cliquer sur le bouton "Macros" (en haut a gauche) et y inserer mes deux macros pour que je puisse à l'aide du double-clic (macro "before_double_clic") activer la macro "Test_vide"...

J'espere avoir été assez claire.
n.b:je me doute qu'il y a un truc avec les private sub et autres, malheuresement je suis plus que novice en VBA donc je ne comprends pas ça...:cry:

Merci d'avance pour votre aide :ccool:

Cordialement

20/08/2010, 16h46
Chipss
Je comprend pas trop ton problème et je trouve très bizare ces 3 lignes de code:
Code:

1 2 3 4 With Range("A1") .Range("A1")="" End With
M'enfin...si tu remplace 'Private' par 'Public' ca ne marche pas?
20/08/2010, 17h05
nunnu27

Bonjour Chipss,

En fait je commence a peine le VBA (a vrai dire depuis ce matin...) et je me base par rapport a des exemples que j'ai dans un livre et les adaptent.

Je peux comprendre du coup que ces 3 lignes de code ne soient pas très "jolie" disons... mais bon cela fonctionne comme ça donc pour l'instant je laisse tel quel.;)

Sinon remplacer 'Private' par 'public' ne fonctionne pas...:cry:

En fait, ce que je ne comprends pas:
1)Je clic sur le bouton "macro" (en haut a gauche)
2)je mets le nom de ma macro "test_vide" et la crée et valide
3)quand je reviens dans mon onglet "macro" la macro "test_vide" est présente et je peux l'activer (d'ailleurs pourquoi se met-elle dans "module4" et non-pas dans "feuille1"?)
4)Je reclic sur le bouton "macro" (toujours en haut à gauche)
5)je mets le nom de la macro, la crée, et valide (avec juste sub ça ne fonctionne pas, ni avec private, ni avec public...)
6)quand je reviens dans mon onglet "macro", elle n'apparait pas(il faut que je visualise le code de la feuille1 pour la voir).
Ce que je voudrait, c'est qu'elle apparaisse dans l'onglet "macro" (car je pense que du coup elle pourrait appeler ma macro "Test_vide"...).

J'espere avoir été assez clair...

Et merci d'avance pour tes commentaires.

Cordialement
20/08/2010, 17h32
nunnu27

1 pièce(s) jointe(s)

Re Bonjour Chipss !

Bon je suis vraiment désolé mais je n'avais pas modifié la plage de cellule dans la macro "appelante"....:oops: j'ai honte dsl....

Par contre, du coup que je mettes private sub, public sub ou juste sub cela fonctionne...bizarre je comprends pa.
De plus, meme si cela fonctionne , pourquoi est-ce qu'elle n'apparait jamais dans mes macros?
Enfin, pourquoi ma macro "testvaleurzero" est dans "general" et ma macro "befauredoubleclic" est dans "worksheet"?

encore une fois desolé pour le premier coup et pour mes questions probablement "idiote" mais ça me pose veritablement probleme...

Merci encore pour ton temps passé a m'expliquer...:ccool:

Cordialement

n.b;je joints une piece jointe afin d'etre plus clair.
20/08/2010, 17h51
Chipss

Hmm beforedblclick est une gestion d'evenement, je suis pas un expert la dedans mais je crois c'est normal que ce soit dans 'Worksheet' mais bon toute facon c'est pas très important.

Ce que je jne comprend pas ce quel est ton réel probleme? Dans ta macro Beforedblclick le Call ne march pas c'est ca?

Si si maintenant ça marche! !!:ccool:

C'est jute que je ne comprend pas pourquoi c'est pas dans mes macro..mais comme tu dis c'est pas grave tant que ça marche!

Par contre, une dernière question après promis je te laisse tranquille ;)
Lorsque je change la valeur de la cellule (je passe de A1 à A10 par exemple!)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Test_valeur_zero() If Range("A10") = 0 Then With Range("A10") .Range("A10") = 1 End With Else Range("A10") = 1 With Range("A10") .Range("A10") = 0 End With End If End Sub Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'condition : si l'intersection de la cible et de la plage A10 n'est pas vide 'autrement dit, si le double clic se fait dans la plage A10 If Not Application.Intersect(Target, Range("A10")) Is Nothing Then Call Test_valeur_zero 'appelle la macro Créer_choix Cancel = True 'évite le mode édition lié au double clic End If 'fin de la condition End Sub
Donc la cellule cellule qui n'est pas en mode edition au double clic est la cellule A10 (ce qui parait logique tu me diras....).
Ce qui l'est moins, c'est que cette cellule ne change pas de valeur (ni 1 ni 0) elle reste vide..., et c'est la cellule A19 qui prend la valeur de 1 (et qui d'ailleurs ne reviens pas à 0 au second double-clic...).

Je suis preneur si tu a une explication a ça (car en plus je dois appliquer ces 2 macro à des plage de données donc je te laisse imaginer ce que ça fais !)
D'ailleurs ça ne fonctionne pas non plus lorsque que je l'applique sur un tableau déja fais (aucune réaction de la cellule hormis le fait que le mode edition au double clic ne fonctionne plus.....).

Merci encore une fois pour ton aide, (meme si ça commence à etre un peu tiré par les cheveux.....).

Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
Sub Test_valeur_zero(rng As Range)
rng.Value = IIf(rng.Value = 0, 1, 0)
End Sub
 
Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A10:A100")) Is Nothing Then
    Call Test_valeur_zero(Target)
    Cancel = True
End If
End Sub

Bonjour Mercatog,

Merci pour ton aide une fois de plus...:D
En effet, ce code fonctionne . (donc parfait)
Sinon pour infos ce qui faisait planter était les lignes.
Code:

1 2 3 With Range("A1") .Range("A1")="" End With
remplacer par quelque-chose de moins "bizarre"... (je te passe les soucis dû à plusieurs "call" dans la fonction appelante ;) (un peu tordu tout ça d'ailleurs...!

Je garde ton code précieusement, et merci encore bien évidement!!!

Pour infos, voici le code que j'ai générer (et galérer pour le faire marcher d'ailleurs !!:aie: )pour mon application (le tiens est plus "direct" donc je pense que je vais lourder le mien et garder le tien même si je le comprends pas pour l'instant...).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Sub Test_vide() If Not IsEmpty(Range("E11")) Then Range("E11") = "" Else: IsEmpty (Range("E11")) Range("E11") = "CD" End If End Sub --------------- Sub Test_valeur_zero() If Range("F11") = 0 Then Range("F11") = 1 Else: Range("F11") = 1 Range("F11") = 0 End If End Sub --------------- Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'condition : si l'intersection de la cible et de la plage A12:A30 n'est pas vide 'autrement dit, si le double clic se fait dans la plage A12:A30 If Not Application.Intersect(Target, Range("E11")) Is Nothing Then Call Test_vide 'appelle la macro Créer_choix Cancel = True 'évite le mode édition lié au double clic ElseIf Not Application.Intersect(Target, Range("F11")) Is Nothing Then 'obligé de mettre else if not then, au lieu de elsenot car plantage, le dernier else n'est pas obligatoire Call Test_valeur_zero 'appelle la macro Créer_choix Cancel = True 'évite le mode édition lié au double clic End If 'fin de la condition End Sub '1) ajouter un call de la fonction fenetre pour pouvoir l'activer 'avec le doubleclic comme par exempla sur la cellule CD '2)peut etre choisir inputbox pour la fonction fenetre ou objet graphique cf:page2 du livre '3)comment choisir l'emplacent (cet emplacement devra etre 'interactif car la fenetre devra s'afficher a cote de la cellule 'et la taille de la fenetre? '4)la fonction fenetre (appelée par le double clic sur la cellule)affichera '5 icone ou bouton qui chacun appeleront une fonction specifique (cette 'fonction sera du meme type que la fonction test vide ou test valeur) 'ces bouton seront:fix,se,"rien"(si appel de la fonction test_vide),re,hs,etc... '6)autre idées: ou alors la macro fenetre au ruban ou autres (1ere ligne du tableau par exemple 'cela sous-entend qu'il faut "bloquer" la 1ere ligne de tubleau comme sur le pda cf:page 30 du livre
Donc voila la bête...
Je suis ouvert à toute réflexion bien entendu !:D

Merci encore pour votre aide.

Bon week-end.

Cordialement

A bientot pour de nouvelles aventures !!! (generation d'une fenetre avec plusieurs boutons !).

A bientot

Manu