XL 2013 [MERCI] VBA qui bloque ; Erreur exécution 13 incompatiblité de type

[Scheerami]

Bonjour le forum et merci d'avance
Mon fichier, sert d'entrée de données et de vérifications de ces données. Pour ce faire, je me sers des cellules D1 pour l'année et F1 pour les mois.
Des données sont stockées dans l'onglet "DATA"
Mais dès un changement avec D1 ou F1, la macro se bloque avec l'inscription citée en apostille.
Je vous joins un fichier avec des explications plus détaillées

Merci pour le temps donné

 

[Paf]

Re bonjour,

Effacer en colonne G les #NA
tirer la formule en H3 vers le bas (bis)

et dans Sub change_date()
au lieu de
.Range("C3:G33") = Sheets("Data").Range("C" & lig & ":F" & lig + 30).Value
mettre
.Range("C3:F33") = Sheets("Data").Range("C" & lig & ":F" & lig + 30).Value

A+

 

[Paf]

re,

l'événement s'éternise uniquement si on recopie la prochaine visite (colonne G).

avec la toute dernière modif (post 2) et les autres modifs que vous avez prises en compte dans l'autre discussion et dans le classeur joint) la colonne G n'est ni copiée en feuille Data ni rapatriée de la feuille Data en feuille planning.

Comment puis-je faire pour que seules les cellules des colonne A et C et D soient recopiées dans le tableau futur.

en comprenant et modifiant ce que fait votre macro:

Sheets("Data").Range("C" & lig & ":F" & lig + 30) = .Range("C3:F33").Value

lig étant le N° de ligne calculé plus haut dans votre macro
copie de la plage Clig:Flig+30 de la feuille DATA vers la plage C3:F33 de la feuille Planning

.Range("C3:F33") = Sheets("Data").Range("C" & lig & ":F" & lig + 30).Value

c'est l'inverse.

Bonne suite