Insérer sans modifier le format

Bonjour,

Je souhaite insérer une cellule dans un document excel, mais il me recopie le format de la cellule du dessus, que dois-je faire pour qu'il laisse la cellule tel qu'elle était.

Cordialement.

Bonjour

Peut-être, avec un peu plus de précision?

pour qu'il laisse la cellule tel qu'elle était.

Elle était comment? En couleur? Vide? Avec une formule?

Cordialement

D'avance merci.

la case courante est sons fond avec une couleur d'écriture noire, la case du dessus est coloré écriture noire avec un cadre, et pas de formule dans la cellule.

Alors,

selectionner par exemple ces 5 cellules adjacentes

insérer puis j'obtiens cela :

Bonjour

Dans ton cas, tu peux copier une ligne du dessous, puis l'effacer pour avoir une ligne vierge comme dans cet exemple

Cordialement

En gros utiliser 1 bouton ajouter sur ligne sélectionner, et 1 bouton sur ligne supprimer en se plaçant une macro relative.

Genial merci je vais bosser dessus, j'avais penser à une macro événementielle mais je ne voyais pas comment cela pouvait-être applicable à 1 utilisateur lambda qui ne connait pas le code.

Merci bcp

Pour aider à ma compréhension si tu le veux bien pourrais tu me détailler ligne par ligne ce que fait ton code stp.

Je n'apprend VB et excel que depuis 3 semaines.

Tout seul donc je bidouille.

Bonjour

Sub insere_ligne_vierge()
'sélectionne et copie la ligne 4 (à adapter à ton fichier)
    Rows("4:4").Select
    Selection.Copy
' et colle là avant la ligne 3 (à adapter à ton fichier)
    Rows("3:3").Insert Shift:=xlDown
'remet le mode copier-coller à faux
    Application.CutCopyMode = False
'sélectionne la ligne au-dessus de celle sélectionnée et efface son contenu
    Selection.Offset(-1, 0).ClearContents
    Range("C3").Select
End Sub

Cordialement

En cherchant j'ai trouver mais merci quand même pour tes réponses cela pourras en aider d'autre peut-être, je poste ce que cela donne pour le moment, je continuerais plus tard, mais pour le moment cela fonctionne si l'on se place sur la colonne 1 a partir de ligne et c'est parfaitement ce que je cherchais, encore merci :

Sub INSERE()

'initialiser variable'

Dim ActiveLigne As Integer

ActiveLigne = ActiveCell.Row

Dim ActiveColonne As Integer

ActiveColonne = ActiveCell.Column

Dim FeuilleActive As String

FeuilleActive = ActiveSheet.Name

'test + insérer'

If FeuilleActive = ("LISTE DE CHARGE TEST") Then

If ActiveLigne > 4 Then

If ActiveColonne = 1 Then

Range(Cells(ActiveLigne, ActiveColonne), Cells(ActiveLigne, ActiveColonne + 1)).Select

Selection.Copy

Range(Cells(ActiveLigne, ActiveColonne), Cells(ActiveLigne, ActiveColonne + 1)).Insert Shift:=xlDown

Application.CutCopyMode = False

Selection.Offset(0, 0).ClearContents

ElseIf ActiveColonne = 2 Then

ElseIf ActiveColonne = 4 Then

ElseIf ActiveColonne = 5 Then

ElseIf ActiveColonne = 6 Then

ElseIf ActiveColonne = 7 Then

ElseIf ActiveColonne = 8 Then

Else

End If

End If

End If

End Sub