Copy / Paste

Bonjour tout le monde.

J'ai un code qui doit me permettre d'insérer une ligne, de mettre une formule dans la première cellule et de la coller dans les cellules de bas.

Le problème est que je n'arrive pas à coller les cellules.

Pourriez vous me dire ce qui cloche:

   .Rows("40,40").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("B3").FormulaR1C1 = "=IF(noms!R[3]C[-1]=0,"""",noms!R[3]C[-1])"
            .Range("B3").Copy
            .Paste.Range ("B4:B40")

Merci

Range("C1").Select

Selection.AutoFill Destination:=Range("C1:C17"), Type:=xlFillDefault

Range("C1:C17").Select

ça copie C1 et colle dans C1 à C17

étant nul en macro, j'ai enregistré une macro dont je te colle une partie du code ci-dessus : rapide et assez fiable

Bonsoir,

pas besoin de copier/coller

écrit directement la formule sur toute la plage

with feuille à vérifier

Sub ess()
With ActiveSheet
    .Rows(40).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Range("B3:b40").FormulaR1C1 = "=IF(noms!R[3]C[-1]=0,"""",noms!R[3]C[-1])"
End With
End Sub

Amicalement

Claude

oui. Pas bête du tout comme idée. Je regarde ça après le match.

-- 18 Juin 2010, 15:16 --

C'était en effet ce dont j'avais besoin. Je pense que je ne vais pas tarder à reposer des questions.

JMD: Ta réponse était correcte et c'est par là que j'avais commencé, mais ça ne marchait pas quand j'attribuais le code à la fonction "with". Il y avait sans doute un problème de syntaxe.

Merci en tout cas à vous deux.