Exécuter un macro pour les lignes qiu suivent

Re : Exécuter un macro pour les lignes qiu suivent

bonjour,

bien gentil, mais il n'y ni macro ni fichier joint, et ma boule de cristal est en panne ...

Re : Exécuter un macro pour les lignes qiu suivent

mutzik à dit:

bonjour,

bien gentil, mais il n'y ni macro ni fichier joint, et ma boule de cristal est en panne ...

Cliquez pour agrandir...

Bonjour,

Désolé ..😱
Voici ma macro :
Sub Macro4()
'
' Macro4 Macro
'

'
Workbooks.Open Filename:= _
"N:\LE FLOCH\06 COMMANDE\BC_2012\CDE 2012 modèle.xls"
Range("B4").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C8"
Range("A18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C9"
Range("B18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C1"
Range("C18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C10"
Range("E18:F18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C4"
Range("A23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C5"
Range("E23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C3"
Range("E23").Select
Selection.ClearContents
Range("B23😀23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C3"
Range("E23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C7"
Range("E24").Select
ActiveWindow.SmallScroll Down:=6
Range("F23").Select
ActiveWindow.SmallScroll Down:=-12
End Sub

Voila j'espère que sa peu aidé ! 😀

Re : Exécuter un macro pour les lignes qiu suivent

re,

mais alors juste un peu,
est-ce qu'on peut voir un bout de ton fichier, sans données confidentielles, avec le départ et ensuite le résultat attendu

Re : Exécuter un macro pour les lignes qiu suivent

bjr,

Workbooks.Open Filename:= _
"N:\LE FLOCH\06 COMMANDE\BC_2012\CDE 2012 modèle.xls"
Range("B4").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C8"
Range("A18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C9"

peut se remplacer par :
Workbooks.Open Filename:= "N:\LE FLOCH\06 COMMANDE\BC_2012\CDE 2012 modèle.xls"
Range("B4").FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C8"
Range("A18").FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C9"

point besoin de select
je te laisse faire le reste ...