Associé deux macros pour enregistrer les devis ou factures

Bonjour tous le monde

Est ce que c'est possible de faire comprendre à la macro que si les données de la cellule (E6) porte le nom DEVIS il faut enregistrer les donnes (E7;E8;B12.E47.E48.E49) dans (Devis Factures P1) sur les cellules (A3.B3.C3.D3.E3.F3)dans la feuille Gestion Devis factures et si les données de la cellule (E6) porte le nom FACTURE il faut enregistrer les données (A3.B3.C3.D3.E3.F3) dans la feuille (Devis Factures P1) sur les cellules (I3,J3.K3.L3.M3.N3) dans la feuille Gestion Devis factures

Merci

Cordialement

voila la macro

Sub gestiondevis1()

'

' gestiondevis Macro

'

' On est dans la page "Devis Factures P1"

With Sheets("Gestion Devis factures")

.Range("A3:F3").Insert shift:=xlShiftDown

.Range("A3:F3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"))

.Range("A3:F3").Interior.ColorIndex = xlNone

End With

End Sub

Bonjour ait haddou et le forom

Voir fichier joint

bruce68 a écrit :

Bonjour ait haddou et le forom

Voir fichier joint

Merci bruce68

c'est un truc pro ça j'aimerai bien faire comme toi mais pour le moment je suis nul dans ce domaine et j'apprend grâce à vous petit à petit on arrivera j'espère

Bonjour

ça me convient pas

Bonjour

Quand tu colles du code dans un message utilises les balises Code

Si j'ai compris

Remplaces ta macro existante par celle-ci

Sub gestionfactures1()
'
' gestiondevis Macro
'

' On est dans la page "Devis Factures P1"

  With Sheets("Gestion Devis factures")
    If UCase(Range("E6")) = "DEVIS" Then
      .Range("A3:G3").Insert shift:=xlShiftDown
      .Range("A3:F3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"))
      .Range("A3:G3").Interior.ColorIndex = xlNone
    Else
      .Range("I3:P3").Insert shift:=xlShiftDown
      .Range("I3:N3").Value = .Range("A3:F3").Value
      .Range("I3:P3").Interior.ColorIndex = xlNone
    End If
  End With
End Sub

Merci Banzai64

c'est génial