Re : Pour Pros ! : Figer le contenu de cellules en fonction d'une autre cellule sous
J'ai trouvé un début de solution mais étant novice en macro, je ne sais aller plus loin !
Sub collage()
'
' collage Macro
' Macro enregistrée le 01/03/2012 par Administrator
'
If Range("D7") = "" Then
'Je veux que les formules en cours s'appliquent normalement et éviter de les recopier une par une car c'est trop long ^^ éviter cela :
Range("D11").FormulaLocal = "=RECHERCHEV($E$4;Facteurs;2;FAUX)"
If Range("D7") = "*" Then
Range("D11:N19").Select
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=15
Range("C27:N36").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C24:N24").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-42
End If
End Sub