fusion de données

arvin · 4 Décembre 2004

bonsoir à tous et bon week end

j'ai besoin de vous pour une aide : je souhaite récupérer les données du fichier (sachant que la ligne jaune est toujours la même) sur une feuille nommée 1, par une macro . Ensuite, je souhaite récupérer d'autres données et les fusionner avec cette feuille 1 (les tableaux sont toujours du même style mais avec des lignes différentes). Enfin, un tri alphabétique (colonne 1) serait intéressant

j'espère avoir été claire

merci à tous

cordialement

Sébastien · 5 Décembre 2004

voila un essaye, remplace ton nom de fichier" par .. ton nom de fichier ou se trouve 1

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 5/12/2004 par x
'

'
Dim ligne As Single
Dim numblanc As Single
Dim laplage As String
ligne = 14
numblanc = 0
While (numblanc <> 1)
Cells(ligne, 1).Select
If (Cells(ligne, 1).Value = "") Then
numblanc = 1
Else
ligne = ligne + 1
End If
Wend
laplage = "A14:H" & (ligne - 1)

Range(laplage).Select
Selection.Copy
ChDir "C:\Documents and Settings\x\Bureau\etat"
Workbooks.Open Filename:= _
"C:\Documents and Settings\x\Bureau\etat\ton nom de fichier.xls"
Sheets("1").Select
ligne = 14
numblanc = 0
While (numblanc <> 1)
Cells(ligne, 1).Select
If (Cells(ligne, 1).Value = "") Then
numblanc = 1
Else
ligne = ligne + 1
End If
Wend

ActiveSheet.Paste

ligne = 14
numblanc = 0
While (numblanc <> 1)
Cells(ligne, 1).Select
If (Cells(ligne, 1).Value = "") Then
numblanc = 1
Else
ligne = ligne + 1
End If
Wend
laplage = "A14:H" & (ligne - 1)

Application.CutCopyMode = False
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A14").Select
Windows("état.xls").Activate
End Sub

fusion de données

arvin

Guest

Pièces jointes

Sébastien

Guest

Discussions similaires