Macro

[mythotem]

Bonjour tout le monde,

J'ai créeé avec ma petite connaissance Excel, la macro suivante :

=SI(ESTNA(RECHERCHEV(B13;'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0));0;RECHERCHEV(B13;'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0))

Elle va marcher au début et ensuite , message d'erreur : #NOM? dans toute la colonne.

Je m'aperçois que la formule a légèrement changé :

=SI(ESTNA(RECHERCHEV('B13';'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0));0;RECHERCHEV('B13';'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0)) :
B13 est devenu 'B13'

Que faut-il faire pour remédier à ce petit pb ?

Merci d'avance.

Mythotem.

 

[JCGL]

Re : Macro

Bonjour à tous,

Ta macro est une formule, telle qu'elle est présentée ici.
Peux tu joindre ton fichier pour nous aider à t'aider ?

A+

 

[mythotem]

Re : Macro

la voici :

Sub ka_PPI()
'
' ka_PPI Macro
' Macro enregistrée le 18/05/2008 par Whirlpool Europe srl
'

'
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(B13,'c:\localApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0)),0,VLOOKUP(B13,'c:\localApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0))"
Range("S13:S1000").Select
Application.WindowState = xlMinimized
Selection.FillDown
Application.WindowState = xlNormal
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
ActiveWindow.ScrollRow = 932
ActiveWindow.ScrollRow = 850
ActiveWindow.ScrollRow = 748
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 502
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 10
Columns("O:O").Select
Range("S9:AB9").Select
Selection.UnMerge
Columns("O:O").Select
Selection.Copy
Columns("S:S").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("S9").Select
ActiveCell.FormulaR1C1 = "PPI (*)"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("S13:S1000").Select
Selection.FillDown
ActiveWindow.LargeScroll Down:=-39
Columns("O:O").Select
Selection.Copy
Columns("S:S").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Merci encore.

mythotem

 

[JCGL]

Re : Macro

Re,

     ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(B13,'c:\localApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0)),0,VLOOKUP(B13,'c:\loca lApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0))"

est impossible en Formula...

Soit tu es en FormulaLocal ou en Formula, mais pas les deux

FormulaLocal : B13
Formula : R1C1:R1000C4

A+

 

[mythotem]

Re : Macro

Pourquoi la macro marche au début ?

Mythotem