Recherche:

Merci Daniel ça a l'air de bien fonctionner en tout cas j'incrémente mes deux feuilles.
C'est résolu pour ce code erreur.:mouarf::mouarf:

Cependant j'ai essayé aussi la case à cocher "Dossier...

Daniel,

Ci joint (enfin j'espère) le fichier sans données sensibles.
Le mot de passe pour toutes les feuilles est "TEST"

Bonjour Daniel,

Meilleurs voeux.
J'utilise mon fichier qui avait l'air de bien fonctionner et hop erreur 1004.
Je vais de ce pas essayer la modification et je reviens vers toi.
:P:P:P
...

Merci qwazerty,

Le fichier d'origine est XSLM 2010, qui fonctionnait correctement (sans modification d'une ligne de l'onglet "PGD").
Le fait de travailler sous excel 2007, puis ré-ouvert sur...

Bonjour Joe,

Merci pour ton intervention malheureusement, idem si je modifie le code toujours "erreur 1004" :aie::aie::aie:

Bonjour à toutes et à tous,

J'ai un fichier excel qui fonctionnait bien sur office 2010, mais dès que je l'enrichie "Erreur 1004" sous Excel 2007 & 2010.

Pouvez vous me donner un coup de main...

Casefayere,

Tout d'abord merci à toi et félicitations, ma demande est résolue.
Merci à Daniel.C qui m'a fait avancer à grands pas.:lol::lol::lol::lol::lol::lol::lol:

Casefayere, voici le code complet


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)
...

Casefayere,

Ma feuille ne contient que ce code

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 31 And Target.Cells.Count = 1 Then '(Target.Count = 1 le fait aussi)...

casefayere,
je garde ton placemement, et Lastrow est décallé par le surlignage en gras.

Bonjour Marc,

Malheureusement je n'en suis qu'à l'élémentaire....:roll:

Mais ce n'est que la première partie du code, le code complet est celui-ci: il doit y maquer une subtilité que je ne...

Bonjour Daniel,

J'ai mis à jour mon code et j'ai l'Erreur de compilation:"Else sans If" taggé sur Else
du code.
On y est :)presque...

Private Sub Worksheet_Change(ByVal Target As Range)
...

Bonjour Daniel,

Désolé pour hier soir j'ai du partir précipitamment.
Alors je vais essayer d'être un peur plus clair aujourd'hui.
Dans le code suivant j'aimerai ajouter à "Set sheetToPaste =...

Non en fait je voudrais simplement coller le code suivant en même temps sur les feuilles : ("2N traité") et ("feuille3")

Application.Union(Range("A" & Target.Row & ":E" & Target.Row), Range("J" &...

Re bonjour Daniel,

Génial ça fonctionne enfin très bien avec ce nouveau code merci.
Je vois le bout du tunel...:)
Il ne reste plus qu'à savoir comment coller sur une seconde feuille, le code...

Re Bonjour Daniel,

j'ai le code erreu suivant : Erreur de compilation: attendu: paramètre nommé

Sheets("2N Traité").Protect Password:="TEST", Userinterfaceonly=True


décidément je vais pas...

Bonjour Daniel, :)

J'ai bien essayé de placer à différents endroits:

ActiveSheet.Unprotect Password:="TEST"
et

Sheets("1").Protect Password:="TEST"
Sheets("2").Protect Password:="TEST"...

Vraiment merci beaucoup pour votre patience et votre dévouement.

Alléluia!!!
Finalement en mettant un titre à chaque colonne de ma feuille 2 cela fonctionne, il ne me reste plus qu'à finaliser...

La première partie du script fonctionne parfaitement , mais la seconde j'ai enlevé DIM répétés et lorsque je sélectionne ma liste déroulante colonne"32" message erreur d'exécution '91': Variable...

Donc je supprime DIM de la seconde partie du code après :

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then

Pas façile d'avoir affaire à un débutant désolé :oops:

J'ai corrigé et maintenant j'ai Erreur de compilation:

Déclaration existante dans la portée en cours:

ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
ActiveSheet.Unprotect...

Bien malheureusement erreur de compilation "Else sans IF", sur la seconde partie du code :


ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then
:calim2::weird::calim2:

Re bonjour Daniel,

j'ai malheureusement erreur de compilation "Else sans IF"


ElseIf Target.Column = 32 And Target.Cells.Count = 1 Then.

J'espère avoir bien compris , ci joint le code mis à...

Bonjour à toutes et à tous,

Je suis débutant, je travaille avec une macro qui toune à merveille, j'aimerai simplement ajouter en copie la feuille2 de cette macro puis une "Target"en "AF"et copier...

Bonjour Éric,

Merci pour cette base de travail idéale.
Après quelques modification elle sera très utile et appréciable.
Je retourne "à ma planche" pour finaliser.

Cordialement.