macro excel

[sandra69]

bonjour,


Je souhaite réaliser une macro qui tri les cellules selon la colonne A, dans la colonne A il doit y avoir que des dates or quand j'ouvre mon fichier txt, dans la colonne A sur certaine ligne il y a du texte, ce que j'aimerai faire:

Par exemple dans la cellule A8 il y du texte, j'aimerai que le montant qui figure en B8 se colle en C7 et que la ligne A8 soit supprimer. J'aimerai effectuer cette manip a chaque fois qu'il y a du texte dans la colonne A par le biais d'une macro.

voila la macro ce que j'ai enregistrer

Range("B8").Select
Selection.Copy
Range("C7").Select
ActiveSheet.Paste
Rows("8:8").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

J'espere que mon message n'est pas trop confu,
petite précision j'ai excel 97.

aidez moi SVP, je suis carrément perdu.

 

[Pyrof]

Re : macro excel

Bonjour,

voici la macro

Sub dudule()
l = 7
While Cells(l, 1) <> ""
tmp = Cells(l, 1)
If IsDate(tmp) = False Then
Cells(l - 1, 3) = Cells(l, 2)
Rows(l).Delete
Else
l = l + 1
End If
Wend
End Sub

 

[Pierrot93]

Re : macro excel

Bonjour Sandra

essaye la macro ci dessous, B8 se retrouve en C7, mais tu perds les données éxistantes en C8 :

Sub test()
Dim maplage As Range, i As Integer
Set maplage = Range("A7:C" & Range("A65536").End(xlUp).Row)
For i = maplage.Rows.Count To 1 Step -1
    If Not IsDate(maplage(i, 1).Value) Then
        maplage(i - 1, 3).Value = maplage(i, 2).Value
        maplage(i, 1).EntireRow.Delete
    End If
Next i
End Sub

bonne journée
@+

 

[Catrice]

Re : macro excel

Bonjour,

Un exemple ci-joint.

A tout hasard, Il n'y a pas moyen de voir au niveau de l'export en txt pour que les données arrivent correctement ?

 

[sandra69]

Re : macro excel

merci bcp les 2 macro focntionne

🙂 🙂