transférer le contenu sans supprimer la formule

[chaelie2015]

Bonjour Forum
ci dessous un code de saisie formulaire

Sub Inscriptions()
Dim lig&, i&, f As Worksheet

    Set f = Sheets("Formulaire")
    With Sheets("BdD")
        lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lig, "A") = lig - 1
        .Cells(lig, "B") = f.Range("C6")
        .Cells(lig, "C") = f.Range("C10")
        .Cells(lig, "D") = f.Range("C8")
        .Cells(lig, "E") = f.Range("C12")
        .Cells(lig, "F") = f.Range("C14")
        .Cells(lig, "G") = f.Range("C16")
        .Cells(lig, "H") = f.Range("C18")
        .Cells(lig, "I") = f.Range("C20")
       
    End With
    
    [COLOR=rgb(247, 218, 100)]For i = 6 To 32 Step 2
      f.Cells(i, 3).MergeArea.ClearContents
    Next i[/COLOR]
End Sub

Dans les cellules C8 et C20 j'ai une formule , je souhaite modifier mon code de maniéré a ne pas supprimer la formule dans les cellules C8 et C20 lorsque je l’exécute.
Merci par avance

 

[pierrejean]

Bonjour Chaelie

A tester:

For i = 6 To 32 Step 2
      If i <> 8 And i <> 20 Then
        f.Cells(i, 3).MergeArea.ClearContents
      End If
    Next i

 

[chaelie2015]

Bonjour Chaelie

A tester:

For i = 6 To 32 Step 2
      If i <> 8 And i <> 20 Then
        f.Cells(i, 3).MergeArea.ClearContents
      End If
    Next i

Bonjour pierrejean
Merci pour la réponse rapide
SOUCI RÉSOLU
A+