Soucis de recopie de données

Bonjour,

comprend pas trop ta manip mais...

Dim Col  As Byte, Bloc()
Col = Month(Date) + 3
With Range(Cells(18, Col), Cells(26, Col))
     Bloc = Application.Transpose(.Value)
     .SpecialCells(xlCellTypeConstants).ClearContents
 End With
 Cells(18, Col + 1).Resize(9, 1) = Application.Transpose(Bloc)
 

Salut michel-m

Mes meilleurs voeux pour 2014 avec de l'argent et surtout beaucoup de santé

Merci pour ta réponse
ca ne fonctionne pas comme souhaiter en fait
ça ne recopie rien mais efface tout sans rien recopier

le but comme tu peux le voir sur la photo ci-jointe étant de recopier quelques lignes le premier de chaque mois

Décembre 2013 viens de se terminer et il me faut copier P28:P26 vers E18:E26
ensuite début février copier E18:E26 vers F18:F26 etc etc

recopier les valeurs sans effacer les formules car certaines contiennent des formules sauf les lignes 21 22 23 et 26 qui n'en n'ont pas

comme tu peux le voir certaines ont étées copier sauf les lignes sans formules, je ne comprends pas pourquoi

http://cjoint.com/?3Acr2KxyKzP
lien pour la photo

Merci beaucoup pour ton aide et pour ton temps

bonne soirée a toi

Cdlt Ray

Salut michel-m,

J'ai revu un peu mon programme et du coup maintenat ton code fonctionne, merci.

Seul petit soucis, les lignes 21 22 23 et 26 qui n'ont pas de formule, Mais qui comporte des valeurs en euros uniquement, elles par contre, ne sont pas recopiés.

j'ai beau chercher mais je n'ai pas trouver

Si svp une petite idée sur le problème, je suis preneur.

Merci pour ton aide je te souhaite un agréable W-end

Cdlt Raymond

Bonjour,

tout est bien recopier SAUF les lignes 21-22-23 et 26

j'avais compris qu'il ne fallait pas recopier les lignes sans formules d'où ma réaction : "comprend pas trop ta manip"

si j'ai compris cette fois :-D
enlève la ligne
.SpecialCells(xlCellTypeConstants).ClearContents

bonjour michel_m

Merci pour ta réponse, je t'explique petite compta simple.
et le but est:
Recopier au premier de chaque mois la plage du mois Ex: janvier vers février ensuite février vers mars etc etc
et cela automatiquement car j'ouvre mon programme tout les jours.

refait essai en suivant tes conseils, voir photo ci-jointe svp

et ca fonctionne toujours pas

tout est bien recopier SAUF les lignes 21-22-23 et 26

pas de formule dans ces lignes format classique de l'euro

Merci pour ton aide bonne journée a toi

Cdlt Ray

lien pour la photo http://www.cjoint.com/?3AeljJPeEKN

With Ws
   Dim Col  As Byte, Bloc()
   Col = Month(Date) + 3
 
       With Range(Cells(18, Col), Cells(26, Col))
            'Bloc = Application.Transpose(.Value).SpecialCells
                       (xlCellTypeConstants).ClearContents
       End With
 
 Cells(18, Col + 1).Resize(9, 1) = Application.Transpose(Bloc)
End With