Macro simple qui ne fonctionne pas

Bonjour a tous,

j ai compilé ce code avec l enregistreur, mais je ne comprends pas pourquoi la 2eme tache ne s effectue pas. Si j inverse l ordre des taches c est la meme chose, systematiquement la 1ere tache s execute mais pas la 2eme....

je debute en VBA ( vous l aurez de toute facon compris a la vue du code )

Option Explicit

Sub diamafo()

' tache 1
    Range("CI46:CI86,CF46:CF86").Select
    Range("CF46").Activate
    Selection.ClearContents

' tache 2
    Range("CJ46").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(IF(RC[-3]=""P fils"",""."",VLOOKUP(RC[-72],_afo01,2,FALSE)),20)"
    Range("CJ46").Select
    Selection.AutoFill Destination:=Range("CJ46:CJ86"), Type:=xlFillDefault
    Range("CJ46:CJ86").Select
End Sub

merci a vous les experts !

flo

Bonjour,

il y a peut-être quelque chose dans le classeur qui bloque ?

Parce ce chez moi les deux parties de code s'exécutent.

A+

moi aussi, apres avoir redemarré mon pc......désolé

Bonjour,

Essaie ainsi.

A priori, cela doit fonctionner.

Cdlt.

Public Sub Diamafo()
' tache 1
    Range("CI46:CI86,CF46:CF86").ClearContents
    ' tache 2
    With Range("CJ46")
        .FormulaR1C1 = _
        "=IFERROR(IF(RC[-3]=""P fils"",""."",VLOOKUP(RC[-72],_afo01,2,FALSE)),20)"
        .AutoFill Destination:=Range("CJ46:CJ86"), Type:=xlFillDefault
    End With
End Sub

Merci Jean-Eric, ca marche !

j ai une autre question du coup qui decoule...

j essaie depuis ce matin d ecrire un code qui me change la couleur de fond de la cellule en fonction du resultat donné par une fonction maison (trouvée sur ce forum je crois bien)

la fonction test_formule me dit si la cellule comporte une formule ou pas. Je voudrais que les cellules de la plage E3:E10 qui ne contiennent pas de formule aient le fond qui passe en rouge.

je mets un fichier avec mes differents essais...rien ne marche ...

flo

Bonjour,

Si je comprends bien la question !?

Cdlt.

Public Sub ColorOfConstants()
Dim rng As Range
    On Error Resume Next
    Set rng = Range("E3:E10").SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rng Is Nothing Then rng.Cells.Interior.Color = 255
End Sub

Nota : Une fonction ESTFORMULE() est apparue avec Excel 2013.

Merci Jean Eric, c est ca dont j avais besoin, MERCI.

je connais la fonction estformule() mais tous les collegues sont sur office 2010...

Merci encore, je clos le sujet !