Perdu une macro activée par la valeur d'une cellul

Bonjour

a mettre au niveau de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Rows.Count = 1 Or Not Target.Columns.Count = 1 Then Exit Sub
If Not Target.Address = '$A$1' Then Exit Sub
If Not UCase(Target.Value) = 'SUITE' Then Exit Sub
MsgBox 'ton code'
End Sub

A+

OK ça marche! C'est fou!

Merci!!!! :silly:

En fait me revoila! pas pu revenir jier, causes réunions.
L'utilisateur ne veut rien avoir à faire, comme d'ab!, il me semblait qu'en testant dans un e colonne voisine, =si(A1=' ';' ';call(macro1...)

call ou run, est ce possible?

Merci :woohoo:

Bonjour

je ne comprends pas trop ce que tu veux faire avec ta macro

si tu fais par fonction dans cellule (je n'ai pas regardé la faisabilité), à chaque calcul elle va s'exécuter

si tu le fais par la méthode worksheet_change elle le fait à chaque changement de valeur de la cellule A1

tu peux essayer worksheet_calculate au lieu de worksheet_change

A+

En fait je veux que selon lavaleur tapée, 3 ou 4, la ligne correspodante de la feuille saisie soit coupée et collée dans l'onglet correspondant. Ceci afin de faire des claculs par trimestre, et libérer la feuille SAISIE.

Merci
A+

En fait je veux que selon lavaleur tapée, 3 ou 4, la ligne correspodante de la feuille saisie soit coupée et collée dans l'onglet correspondant. Ceci afin de faire des claculs par trimestre, et libérer la feuille SAISIE.

Merci
A+

re

et pourquoi la solution proposée ne convient'elle pas ?

A+

re suite

dans un module

Function copiecolle()
MsgBox 'essai'
End Function

sur ta feuille en B1

=SI(A1=3;copiecolle();'')

A+

pour appel de macro je ne sais pas

Message édité par: ERIC S, à: 18/05/2006 13:53

Voila ce qu'est devenu le code, après adaptation pour mon cas !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Derligne%, Sh%, vrRg%, vrRgr%

Sheets('SAISIE').Select
vrRg = ActiveCell.Row - 1

If Sheets('SAISIE').Range('AN' & vrRg) = '' Then GoTo Fin
If Sheets('SAISIE').Range('AN' & vrRg) = 1 Then GoTo Fin

Sh = Sheets('SAISIE').Range('AN' & vrRg).Value
If Sheets('Trim_' & Sh).Range('B' & vrRg) = '' Then Derligne = 10

Sheets('SAISIE').Range('B' & vrRg & ':AM' & vrRg).Copy
Sheets('Trim_' & Sh).Activate
vrRgr = ActiveCell.Row

With Sheets('Trim_' & Sh)
.Range('B' & vrRgr + 1).Select
.Paste
.Range('B' & vrRgr + 1).Select
End With


Sheets('SAISIE').Activate
Rows(vrRg).Select
Selection.Delete Shift:=xlUp

Range('B' & vrRg).Select

Fin:
Application.ScreenUpdating = True
End Sub

En tout cas merci beaucoup de m'avoir remis sur la voie! Cela faisait longtemps que je n'avais pas pratiqué ce genre de chose, par manque de besoin!!!!

A+ 😱

Et comme on dit : c'est la focntion qui créé l'organe!