Problème avec Worksheet_Change

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:

---

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.

Bonsoir,

Code:

---

1 2 3

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

---

je corrige :

Code:

---

1 2 3 4

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

---

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

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

Code:

---

Worksheets("Feuil3").Activate

---

pour

Code:

---

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

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:

---

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

Bonjour,

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

Code:

---

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:

---

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

Chouette! Ça fonctionne parfaitement. J'avais déjà tenté cette façon de faire pour éviter les select par-ci les select par-là, mais mon code n'avait pas fonctionné. J'avais probablement oublié de nommer mes variables.

Merci 1000 fois :D.