Mise à jour

[saadia]

Bonjour,
s'il vous plait j'ai un petit soucis c'est que quand je fais une mise a jour d'un fichier excel qui exporte vers un autre ,cet mise a jour et realiser avec succes elle ecrase les anciennes données, mais elle ecrase juste le nombres de ligne quel a dans le nouveau fichier , et par la suite on a les nouvelles données plus les anciennes non ecraser , au lieu quel soit ecraser par vide ou "".
Quel fonctions puis je utiliser pour ecraser tout et avoir juste les nouvelles donnés.

Sub Traitement()

Windows("Projet1.xls").Activate
ActiveWorkbook.Save

i = 2

While (Cells(i, 109) <> "")

tache_princ = Cells(i, 1)
tache = Cells(i, 109)
ressource = Cells(i, 110)

Cells(i, 111) = Replace(Cells(i, 111), "j", " ")
Cells(i, 111) = Replace(Cells(i, 111), "o", " ")
Cells(i, 111) = Replace(Cells(i, 111), "u", " ")
Cells(i, 111) = Replace(Cells(i, 111), "r", " ")
Cells(i, 111) = Replace(Cells(i, 111), "s", " ")
charge_ini = Cells(i, 111)

activite = Cells(i, 112)

Cells(i, 113) = Replace(Cells(i, 113), "j", " ")
Cells(i, 113) = Replace(Cells(i, 113), "o", " ")
Cells(i, 113) = Replace(Cells(i, 113), "u", " ")
Cells(i, 113) = Replace(Cells(i, 113), "r", " ")
Cells(i, 113) = Replace(Cells(i, 113), "s", " ")
reel = Cells(i, 113)

Cells(i, 114) = Replace(Cells(i, 114), "j", " ")
Cells(i, 114) = Replace(Cells(i, 114), "o", " ")
Cells(i, 114) = Replace(Cells(i, 114), "u", " ")
Cells(i, 114) = Replace(Cells(i, 114), "r", " ")
Cells(i, 114) = Replace(Cells(i, 114), "s", " ")
restant = Cells(i, 114)

Windows("CEXP.xls").Activate

Cells(i + 4, 1) = tache_princ
Cells(i + 4, 2) = tache
Cells(i + 4, 3) = ressource
Cells(i + 4, 4) = activite
Cells(i + 4, 5) = charge_ini
Cells(i + 4, 10) = reel
Cells(i + 4, 11) = restant

Windows("Projet1.xls").Activate

i = i + 1


Wend

End Sub

Merci pour votre aide

 

[ERIC S]

Re : Mise à jour

Bonjour

si tu veux effacer au préalable toutes les cellules

cells.clearcontents

efface toute la feuille
ou
row("3:10").clearcontents
pour lignes 3 à 10
....

 

[saadia]

Re : Mise à jour

Merci pour la commande mais quand je l'ai utiliser a la fin je me suis retrouver avec un tableau tout blanc.
c la commande qu'il me faut plus au moins mais je doit la specifier a mes colonnes.

 

[ERIC S]

Re : Mise à jour

Bonjour
de retour après les fêtes
pour moi, tu dois commencer par effacer, c'est l'ordre logique : j'efface et je reremplis.

sinon pour les codes, utilise l'enregistreur de macro, cela te donnera des infos, pas youjours optimales, mais cela aide
exemple :
tu ouvres XL
en C1 et D1 tu tapes 1
tu tires vers le bas sur quelques cellules
outils macro nouvelle macro
tu sélectionnes les colonnes C et D
tu fais sup pour effecer le contenu
tu arrêtes l'enregistreur
tu fis outils, macros,macro, tu sélectionnes et tu fais modifier

Columns("C😀").Select
Selection.ClearContents
ce code efface les colonnes C et D
il peut éventuellement être optimisé comme suit

Columns("C😀").ClearContents

PS les smileys remplacent "deux points D", c'est le site qui veut cela