Copie automatique

[tracor]

Salut le phorum

j'explique mon problème
j'importe par l'intermédiaire d'un tableau des données provenant d'un Tcd.
jusque là pas de problème je 'maitrise'
cependant dans le Tcd et par soucis de lisibilité je pense
celui ci ne répéte pas les valeurs identiques
et c la mon problème
car en important les valeurs du tcd il me laisse des lignes vides
je souhaiterai donc que les lignes vides soit automatiquement remplis par la valeur du dessus (valeur correspondant à la fusion des étiquettes du tcd)
je joins un petit exemple

merci de toutes réponses

tracor [file name=test_20050312211522.zip size=4883]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050312211522.zip[/file]

 

[Pierre]

Bonsoir Tracor et Forum,

J'ai mis un bouton qui fait ce que tu souhaites sur les colonnes A et C


Hope this will help you.


Pierre [file name=pourtracor.zip size=9693]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pourtracor.zip[/file]

 

[tracor]

salut et merci Pierre

cependant la macro fige le nombre de lignes
et le tcd sera mis à jour chaque matin
donc des lignes seront automatiquement ajoutées
comment dans ce cas modifier la macro
sans utilisation de bouton

merci encore de toutes réponses

 

[Pierre]

Tracor,

J'ai placé le code à l'ouverture du classeur, pour n'avoir plus besoin d'un bouton.
De plus il scanne toute la colonne A tant que la cellule à droite (contenant la date) n'est pas vide (pour éviter de perdre du temps)

Cela correspond -t'il plus à ton attente?


Pierre [file name=pourtracor_20050312214444.zip size=7736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pourtracor_20050312214444.zip[/file]

 

[tracor]

merci encore

j'avais avec mes connaissances actuelles pondus cette solution
Global ligne

Sub Macro1()

Dim cell, zone As Range
ligne = 2
While Cells(ligne, 2).Value <> '': ligne = ligne + 1: Wend: ligne = ligne - 1
Set zone = Worksheets('Heures').Range('A2:A' + Format(ligne))
Dim I As Integer
Dim texte As String
For Each cell In zone
If cell.Value = '' Then cell.Value = cell.Offset(-1, 0).Value
Next
End Sub

en indiquant un format de ligne
cela revient à la même chose
merci encore

tracor