[RÉSOLU] transfert d'une donnée de feuille à feuille ; impossible

[Webperegrino]

Bonsoir le Forum,
J'ai essayé de créer une macro pour transférer à une date donnée une donnée de la feuille 1 dans la feuille 2.
La moitié de la macro semble bien se dérouler.
J'ai mis les explications de ce que je désire dans celle-ci (Alt + F11).
Problème :
Le transfert d'une donnée de la 1ère feuille ne va pas se placer dans la ligne disponible n° 26.
Pouvez-vous m'expliquer ce qui ne fonctionne pas et me donner une solution de correction ?
Merci
Webperegrino

 

[mth]

Re : Ma macro : transfert d'une donnée de feuille à feuille ; impossible

Bonjour,

Problème de mon coté avec l'accent dans le nom de l'onglet, du coup j'ai viré l'accent mais ce n'est peut-être que de mon coté. Si non, peut-être placer en début de code:

Sheets("Feuil_ENTREES").Protect , UserInterfaceOnly:=True

ensuite replacer

      If Rep = 6 Then

par

      If Rep = 1 Then

Bonne soirée,

mth

 

[Webperegrino]

[RÉSOLU] Ma macro : transfert d'une donnée de feuille à feuille ; impossible

Bonsoir Le Forum,
Bonsoir mth,
Mth, ça fonctionne parfaitement avec votre proposition (même en gardant É dans ENTRÉES) ; voici mes corrections :

If Date > Sheets("Paramètres").Range("B2").Value + 10 And Sheets("Feuil_SORTIES").Range("U7").Value <> 1 Then
Application.ScreenUpdating = False
Sheets("Feuil_SORTIES").Unprotect 'Déprotection des feuilles
Sheets("Feuil_ENTRÉES").Unprotect
Sheets("Feuil_SORTIES").Select

…/…

If Rep = 1 Then
With Sheets("Feuil_SORTIES")
…/…
Sheets("Feuil_ENTRÉES").Protect , UserInterfaceOnly:=True
Sheets("Feuil_SORTIES").Protect , UserInterfaceOnly:=True


Merci pour cette aide rapide et efficace,
Cordialement,
Webperegrino