chaelie2015
XLDnaute Accro
Bonjour Forum
ci dessous un code de saisie formulaire
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
ci dessous un code de saisie formulaire
VB:
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
Merci par avance