Re : modifier une cellule en modifiant la bonne ligne
re bonsoir,
là c'est la fin c'est une macro qui fonctionne sans problème par contre je voulais savoir si tu as une astuce ou une méthode pour la réduire.
Je l'ai enregistrée via l'enregistreur de macro, je pense pas que cela soit la meilleure des solutions pour avoir quelque chose de très concis et tout aussi efficace
Sub ImportFTP()
'
' Macro7 Macro
'
'Workbooks.Open Filename:= _
'"U:\PUBLIC\CTC\COMMUN\Ressources Humaines\mouvements\BASE DONNEES FTP.XLS"
'
Application.Goto Reference:="R2C1:R500C10"
Selection.ClearContents
'Workbooks.Open Filename:="F:\Plan de formation\BASE DONNEES FTP.XLS"
Workbooks.Open Filename:= _
"U:\PUBLIC\CTC\COMMUN\Ressources Humaines\mouvements\BASE DONNEES FTP.XLS"
Columns("J:M").Select
Selection.EntireColumn.Hidden = False
Range("C3
3").Select
Application.Goto Reference:="R3C3:R230C4"
Selection.Copy
Windows("1-Suivi du plan de formation 2012.xls").Activate
ActiveWindow.SmallScroll Down:=-258
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Windows("BASE DONNEES FTP.XLS").Activate
Range("E3").Select
Application.Goto Reference:="R3C5:R230C5"
Application.CutCopyMode = False
Selection.Copy
Windows("1-Suivi du plan de formation 2012.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Windows("BASE DONNEES FTP.XLS").Activate
ActiveWindow.SmallScroll Down:=-21
Range("F3:K3").Select
Application.Goto Reference:="R3C6:R230C11"
Application.CutCopyMode = False
Selection.Copy
Windows("1-Suivi du plan de formation 2012.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J2").Select
Windows("BASE DONNEES FTP.XLS").Activate
Columns("K:L").Select
Selection.EntireColumn.Hidden = True
Range("P3").Select
Application.Goto Reference:="R3C16:R230C16"
Application.CutCopyMode = False
Selection.Copy
Windows("1-Suivi du plan de formation 2012.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("BASE DONNEES FTP.XLS").Activate
ActiveWindow.Close
End Sub
Sub fixeFormules()
'
' FixeFormules Macro
'
'
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-1],Agents,2,FALSE)),"""",VLOOKUP(RC[-1],Agents,2,FALSE))"
Range("C3").Select
ActiveCell.FormulaR1C1 = ""
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:H3"), Type:=xlFillDefault
Range("B3:H3").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,2,FALSE)),"""",VLOOKUP(RC[-1],Agents,2,FALSE))"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:H3"), Type:=xlFillDefault
Range("B3:H3").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,2,FALSE)),"""",VLOOKUP(RC1,Agents,2,FALSE))"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:H3"), Type:=xlFillDefault
Range("B3:H3").Select
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,3,FALSE)),"""",VLOOKUP(RC1,Agents,3,FALSE))"
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,4,FALSE)),"""",VLOOKUP(RC1,Agents,4,FALSE))"
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,8,FALSE)),"""",VLOOKUP(RC1,Agents,8,FALSE))"
Range("F3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,9,FALSE)),"""",VLOOKUP(RC1,Agents,9,FALSE))"
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,7,FALSE)),"""",VLOOKUP(RC1,Agents,7,FALSE))"
Range("H3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Agents,10,FALSE)),"""",VLOOKUP(RC1,Agents,10,FALSE))"
Range("H4").Select
End Sub
merci beaucoup