Excel 2003 Macro recherche et formule

[Résolu/Fermé]
Signaler
Messages postés
144
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
10 décembre 2014
-
Messages postés
144
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
10 décembre 2014
-
Bonjour,

Je voudrais faire une macro qui me rechercherais la dernière céllule de la colonne E remplis ou la 3ème vide

puis qui séléctionnerais la ligne de cette cellule

et qui mettre dans la céllule de la

colonne A =[Macro.xls]Excel!$M$1
Colonne B =[Macro.xls]Excel!A2
Colonne E =[Macro.xls]Excel!C2
Colonne P =[Macro.xls]Excel!B2

et enfin qui étire la ligne séléctionnée jusqu'a la 2500ème ligne de plus basse....

j'ai essayer de faire ca avec l'enregistrement de macro voila ce que ca me donne
Columns("E:E").Select
Range("E4").Activate
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
ActiveCell.FormulaR1C1 = "=[Macro.xls]Excel!R[-700]C[-2]"
Range("B702").Select
ActiveCell.FormulaR1C1 = "=[Macro.xls]Excel!R[-700]C[-1]"
Range("P702").Select
ActiveCell.FormulaR1C1 = "=[Macro.xls]Excel!R[-700]C[-14]"
Range("A702").Select
ActiveCell.FormulaR1C1 = "=[Macro.xls]Excel!R2C13"
Rows("702:702").Select
Selection.AutoFill Destination:=Rows("702:922"), Type:=xlFillDefault
Rows("702:922").Select
Selection.RowHeight = 81.75
ActiveWindow.SmallScroll Down:=6
Selection.AutoFill Destination:=Rows("702:957"), Type:=xlFillDefault
Rows("702:957").Select
ActiveWindow.SmallScroll Down:=9
End Sub

le problème c'est que je n'arrive pas a lui dire le raprochement entre le resultat de la recherche et la ligne ou il doit metre les formule...

1 réponse

Messages postés
144
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
10 décembre 2014
4
ho non c pas grave... je vais le faire à la main...