Discussion :

[athos7776]

Bonjour, j'ai un petit soucis avec le Worksheet_Change.

Le problème est que lorsque je lui demande d'aller effectuer un changement dans une autre feuille... il ne fait que me sélectionner la feuille en question, mais il n'effectue pas la commande que je lui demande de faire.

Voici un exemple simple de ce qu'il ne fait pas. Je lui demande de sélectionner la feuille "Feuille de planning" et ensuite de sélectionner la cellule T20, mais il ne fait que me sélectionner la feuille en question... Y'a quelque chose que je n'ai pas pigé?

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal target As Range)
 
Worksheets("Feuille de planning").Select
Range("T20").Select
 
End sub

Merci d'avance.

[casefayere]

Bonsoir,

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal target As Range)
Worksheets("Feuille de planning").Range("T20").Select
End Sub

je corrige :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal target As Range)
Worksheets("Feuil3").Activate
Worksheets("Feuille de planning").Range("T20").Select
End Sub

[athos7776]

Génial! Merci casefayere! Ton truc fonctionne. Par contre... mon cutcopymode = false ne fonctionne pas à la toute fin de ma procédure... j'ignore pourquoi .

[casefayere]

je viens de voir une bétise, j'ai oublié de corriger

Code :

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

Worksheets("Feuil3").Activate

pour

Code :

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

Worksheets("Feuille de planning").Activate

j'espère que tu auras compris
par contre, ta procédure, je ne la connais pas, alors il faut que tu en dises plus et que tu la communiques

[athos7776]

Pas de problème, j'avais compris l'erreur casefayere.

Mais bon, maintenant que mon copier coller fonctionne bien d'une feuille à l'autre, lorsque je modifie une cellule, je ne suis pas capable d'annuler le cutcopymode = false. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
target.Copy
Worksheets("Feuille de Planning").Activate
Worksheets.Range("T20").Select
Selection.Paste
Sheets("Feuil1").Select
target.Select
Application.CutCopyMode = False

Voilà, on dirait que dans le code, le Application.CutCopyMode = False ne fonctionne pas. La cellule que j'ai copiée est toujours en surbrillance... étrange

[casefayere]

Bonjour,

Si tu ne veux copier que la valeur de la selection :

Code :

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

1
2
3
4
dim a_copier' as (à voir avec données à copier)
a_copier = target
'dans ce cas, plus besoin de "activate" ou select à moins que tu ne tiennes à ouvrir "Feuille de Planning"
Worksheets("Feuille de Planning").Range("T20").value = a_copier

avec cet exemple, tu ne copies que la valeur

mais si je reprends ton code modifié :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
   Target.Copy
   Sheets("Feuille de Planning").Activate
   Sheets("Feuille de Planning").Range("T20").Select
   ActiveSheet.Paste
   Sheets("Feuil1").Select
   Application.CutCopyMode = False
End Sub

attention, dans ce cas, le code agit sur toutes les cellules de "feuil1"
je pense que tu devras mettre une condition "If target.address = ..." ou "If target.columns = ...", etc

Bonne journée