Macro avec fonction si

Version imprimable

bonjour à tous .
je vous explique en quelques lignes mon probleme.
j'ai enregistré une macro qui copie et insere des cellules contenant du texte dans une cellule d'une autre feuille. jusque là tout va bien .
ensuite dans ma feuille j'ai cree une fonction "si" qui lorsque la cellule selectionné affiche le texte voulu alors elle appelle la macro enregistré.
une fois que dans le menu deroulant de la cellule selectionné je choisis le terme qui enclenche la macro celle ci se repete à l'infini et je suis obbligé d'appuyer sur echap pour arreter la casse !!!!

pourriez vous m'aider pour que celle ci ne se repete qu'une fois.
je vous remercie d'avance

ci-joint la macro enregistré et en dessus la fonction de la feuille
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub orga1() ' ' orga1 Macro ' Macro enregistrée le 18/02/2009 par Installateur ' ' Sheets("Feuil2").Select Range("D3:F8").Select Selection.Copy Sheets("Feuil3").Select Range("C45").Select Selection.Insert Shift:=xlDown Range("F53").Select End Sub If Cells(43, 4) = "ORGANISATION DES TRAVAUX:" Then Call orga1 Else End If
ci joint l'adresse du fichier

http://dl.free.fr/gyrqeHLAx

merci d'avance

18/02/2009, 13h30
Godzestla
Bonjour,

si tu regarde ta macros, tu comprends très vite que si le contenu de ta cellule D43 vaut "ORGANISATION DES TRAVAUX:", alors à la fin, la procédure se rappelle elle-meme qui se rappelle elle-meme qui......... :aie::arf:

Je ne comprends pas pourquoi tu as ce code dans ta procédure ORGA1
Code:

1 2 3 4 5 6 If Cells(43, 4) = "ORGANISATION DES TRAVAUX:" Then Call orga1 Else End If
Tu viens de réinventer la boucle infinie.....:yaisse2:
18/02/2009, 14h13
alainpinpin
salut Charlyfanny

vu qu'il n'y a pas de EndSub, je suppose que
Code:

1 2 3 4 5 If Cells(43, 4) = "ORGANISATION DES TRAVAUX:" Then Call orga1 Else End If
n'est pas dans ta macro, mais plutot dans ta cellule? je me trompe?
Sinon, il faudrait peut-etre essayer de mettre une condition supplémentaire, genre une variable qui se met à 1 la 1ère fois que la macro est exécutée, et qui ensuite se remet à 0 dès qu'on change le contenu de la cellule.
18/02/2009, 14h21
charlyfanny

merci de vos reponses mais est ce que vous pourriez me faire un exemple pour que je comprenne mieux
merci d'avance

en fait la fonction est dans une feuille et non dans le module, j'appelle orga depuis la fonction if de ma feuille. de plus je ne sais pas comment definir une variable , voilà j'aurais besoin d'un petit peu d'aide.

encore merci
18/02/2009, 14h35
Pierre Fauconnier
Citation:
Envoyé par alainpinpin

salut Charlyfanny

vu qu'il n'y a pas de EndSub, je suppose que

Code:

1 2 3 4 5 If Cells(43, 4) = "ORGANISATION DES TRAVAUX:" Then Call orga1 Else End If

n'est pas dans ta macro, mais plutot dans ta cellule? je me trompe?
8O8O Tu as déjà essayé de mettre cela dans une cellule???
18/02/2009, 14h40
charlyfanny

elle est dans la feuille 3 de vba et ma fonction dans un module. est ce que c'est la reponse que tu attendais?.??
cordialement
18/02/2009, 14h48
Pierre Fauconnier

CharlyFanny,

Et si tu nous expliquais *en français* ce que tu souhaites réaliser, car je pense, au vu de ton classeur, qu'il y a pas mal de choses à améliorer
18/02/2009, 14h52
alainpinpin
re-salut Charlyfanny

j'ai regardé ton fichier afin de mieux comprendre ton problème. En fait j'ai pas tout compris ce que tu dois faire exactement :cry:

ceci étant dit, pour se limiter au problème auquel tu es confronté, personnellement je remplacerais
Code:

1 2 3 4 If Cells(43, 4) = "ORGANISATION DES TRAVAUX:" Then Call orga1 End If
par
Code:

1 2 3 4 5 6 If Cells(43, 4) = "ORGANISATION DES TRAVAUX:" Then If Cells(45, 4) = "" Then Call orga1 End If End If
en fait, il regarde la 2ème cellule en dessous de celle pour laquelle tu fais ton test. Si elle est vide, on écrit, sinon on fait rien.

Voila, dis moi si c'est la réponse que tu attendais?
18/02/2009, 14h59
charlyfanny

merci ça marche ça ne fonctionne plus jusqu'à l'infini houra
merci merci merci
18/02/2009, 15h11
charlyfanny

pour pierre fauconnier : excusez moi mon français lol
voila ce document se fait à partir de menus deroulants dans le tableau 3 qui permettent à l'utilisateur d'etablir l'ordonnancement du document en feuille 4 en copiant et iserant des lignes faites dans le tableau 3 . j'espere que c'est plus clair.
Le probleme evident c'est que je suis bidon avec excel ( et ça se voit) donc la construction de mon document est un peu chaotique. mais en pour pourvu que ça marche.
enfin mon dernier probleme c'est que dans la feuille 3 j'ai mis des boutons qui m'allument ou non les entreprises partenaires . ces entreprises sont regroupés dans la feuille 2 avec des sauts de ligne dans une seule et meme cellule or quand je ne selectionne pas toutes les entreprises les lignes restent et j'aimerai qu'elles se regroupent

voilà en tout cas un grand merci à vous
18/02/2009, 15h14
alainpinpin

you're welcome... par contre, a ta place je ferai une tite macro pour effacer la copie que tu as faites si tu changes le choix de ton menu déroulant... Mais je sais pas trop ton but... Si ca marche comme ca, tant mieux :yaisse2:

beaucoup de plaisir pour la suite
18/02/2009, 15h25
charlyfanny

merci est ce que tu peux donner un exemple pour que ça s'efface

un autre probleme sur cette fonction si pourrquoi je ne peux donner le nom de ma cellule apres cells??

merci d'avance

le probleme lorsque j'insere c'est que le nom d mes cellules change! ( forcement!!)

est ce que vous pouvez m'aidez??
merci d'avance
18/02/2009, 15h39
alainpinpin

bon, allons-y un problème après l'autre :mouarf:

pour ce qui est de la liste des entreprises, change la formule dans la case F43 de ta feuille 2, c'est à dire

Code:

=SI(L7="";"";Feuil3!L7)&SI(L8="";"";CAR(10)&Feuil3!L8)&CAR(10)&Feuil3!L9&CAR(10)&Feuil3!L10&CAR(10)&Feuil3!L11&CAR(10)&Feuil3!L12&CAR(10)&Feuil3!L13&CAR(10)&Feuil3!L14&CAR(10)&Feuil3!L15&CAR(10)&Feuil3!L16&CAR(10)&Feuil3!L17&CAR(10)&Feuil3!L18&CAR(10)&Feuil3!L19&CAR(10)&Feuil3!L20 &CAR(10)&Feuil3!L21

par

Code:

=SI(Feuil3!L7="";"";Feuil3!L7)&SI(Feuil3!L8="";"";CAR(10)&Feuil3!L8)&SI(Feuil3!L9="";"";CAR(10)&Feuil3!L9)&SI(Feuil3!L10="";"";CAR(10)&Feuil3!L10)&SI(Feuil3!L11="";"";CAR(10)&Feuil3!L11)&SI(Feuil3!L12="";"";CAR(10)&Feuil3!L12)&SI(Feuil3!L13="";"";CAR(10)&Feuil3!L13)&SI(Feuil3!L14="";"";CAR(10)&Feuil3!L14)&SI(Feuil3!L15="";"";CAR(10)&Feuil3!L15)&SI(Feuil3!L16="";"";CAR(10)&Feuil3!L16)&SI(Feuil3!L17="";"";CAR(10)&Feuil3!L17)&SI(Feuil3!L18="";"";CAR(10)&Feuil3!L18)&SI(Feuil3!L19="";"";CAR(10)&Feuil3!L19)&SI(Feuil3!L20="";"";CAR(10)&Feuil3!L20)&SI(Feuil3!L21="";"";CAR(10)&Feuil3!L21)

dis moi si c'est ce que tu voulais, je vais me pencher sur le reste lol

pour effacer, rajoute dans la macro de la feuille3

Code:

1
2
3
4
5
6
        If Cells(43, 4) <> "ORGANISATION DES TRAVAUX:" Then
            If Cells(45, 4) <> "" Then
                Rows("45:50").Select
                Selection.Delete Shift:=xlUp
            End If
        End If

après le bout de code que je t'ai donné plus haut (à 14h52)

Citation:

Rows("45:50").Select

:oops::oops: pas bon l'instruction select, à proscrire totalement.
Un code plus propre est :

Code:

1
2
3
4
5
6
 
        If Cells(43, 4) <> "ORGANISATION DES TRAVAUX:" Then
            If Cells(45, 4) <> "" Then
                Rows("45:50").Delete Shift:=xlUp
            End If
        End If

18/02/2009, 16h41
alainpinpin

bien vu Godzestla, je ne me souvenais plus comment faire alors je l'ai fait avec l'éditeur de macro :oops:

merci bien pour la correction :king: