Copie d'une facture dans une autre feuille

Bonjour à tous,

Voilà j'aimerais pouvoir recopier ma facture dans une autre feuille qui sera nommée compta à l'aide d'une macro.

J'ai donc réalisé les manipulations nécessaires, mais cela m'affiche Erreur d'exécution '9' L'indice n'appartien pas à la sélection.

Quelqu'un pour m'aider à rectifier mon erreur ?

Merci d'avance.

Sub Copie()

'

' Copie Macro

' Copie de la facture

'

' Touche de raccourci du clavier: Ctrl+Maj+C

'

Sheets.Add

Sheets("Feuil2").Select

Sheets("Feuil2").Name = "compta"

Sheets("facture ").Select

Range("A3:E51").Select

Selection.Copy

Sheets("compta").Select

Range("A3").Select

ActiveSheet.Paste

Columns("A:A").EntireColumn.AutoFit

Columns("B:B").EntireColumn.AutoFit

Columns("C:C").EntireColumn.AutoFit

Columns("D:D").EntireColumn.AutoFit

Columns("E:E").EntireColumn.AutoFit

End Sub

Sub COPIE2()

'

' COPIE2 Macro

' Copie de la facture 2

'

' Touche de raccourci du clavier: Ctrl+Maj+P

'

Range("A3:E51").Select

Selection.Copy

Sheets.Add

Sheets("Feuil7").Select

Sheets("Feuil7").Name = "Compta"

Range("A3").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Columns("A:A").EntireColumn.AutoFit

Columns("B:B").EntireColumn.AutoFit

Columns("C:C").EntireColumn.AutoFit

Columns("D:D").EntireColumn.AutoFit

Columns("E:E").EntireColumn.AutoFit

Range("D9").Select

End Sub

Bonjour

Pas facile de trouver une erreur juste avec le code

C'est bien d'indiquer le message d'erreur mais le mieux c'est aussi de dire sur quelle ligne

Ce que je vois c'est ta feuille "facture " Sheets("facture ").Select Y a t-il une espace à la fin de facture ?

Sinon

En effet, ce serait sûrement plus simple avec le fichier joint

Bonjour

Pour la duplication de ta feuille "Facture " essayes ces 2 macros

Ainsi tu auras des feuilles "facture1", "facture2", "facture3", etc.......

Sub Copie()
' Copie Macro
' Copie de la facture
'
' Touche de raccourci du clavier: Ctrl+Maj+C
Dim Indice As String

  Do
    If FeuilleExiste("Compta" & Indice) = False Then
      Sheets.Add.Name = "Compta" & Indice
      Sheets("facture ").Range("A3:E51").Copy Range("A3")
      Columns("A:E").AutoFit
      Exit Do
    End If
    Indice = CStr(Val(Indice) + 1)
  Loop
End Sub

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Merci beaucoup. Etant donné que je débute, je ne sais pas vraiment comment m'y prendre...

Il faut bien aller dans "Outil", puis "Macros" puis Nouvelle Macro ? Et ensuite ? J'ai essayé de recopier puis de fermer mais cela m'a affiché : "Les macros de ce classeur sont désactivées car le niveau de sécurité est élevé."

Merci beaucoup. Etant donné que je débute, je ne sais pas vraiment comment m'y prendre...

Il faut bien aller dans "Outil", puis "Macros" puis Nouvelle Macro ? Et ensuite ? J'ai essayé de recopier puis de fermer mais cela m'a affiché : "Les macros de ce classeur sont désactivées car le niveau de sécurité est élevé."

Bonjour le fil

Pour ton problème d'exécution de macro

Menu -> Fichier -> Options

• > Centre de gestion de la confidentialité
• > bouton : Paramètres du centre..
• > Paramètres des macros : Désactiver toutes les macros avec notification

A+

Merci beaucoup, je vais essayer ça !!

Re,

Nota : il faut quitter Excel et le réouvrir

Juste un petit souci, je ne pense pas avoir la bonne version d'excel ^^ il n'y a pas de menu "option" dans "fichier"

Autant pour moi ! Tout marche à merveille !

Merci beaucoup à vous deux !!!!!!

Et pour une remise à zéro de la facture, il faudrait faire comment s'il vous plait ?

Re,

RAZ de la facture avec ce code

Sub RaZFacture()
  With Worksheets("facture")
    .Range("B14").ClearContents
    .Range("A28:A46").ClearContents
    .Range("C28:C46").ClearContents
    ' Etc ...
  End With
End Sub

Tu l'appelles d'où tu veux

Call RaZFacture

A+

Merci beaucoup !!!! J'aurais encore une toute dernière question si cela ne vous dérange pas.

Je voudrais pouvoir ne pas mettre de référence dans toutes les cellules.

J'ai donc modifié certaines cellules avec des SI. Le petit problème que j'ai est que pour le montant, cela m'affiche #Valeur! ce qui n'est pas très joli ^^ Merci encore de votre aide !