Copier Coller des colonnes d'une feuille a l'autre sans les formules

Bonjour je travail sur un projet pour le travail et il me reste qu'une seule étape qui ne fonctionne pas. C'est de mettre a jour une colonne. J'essaie la procédure avec l'enregistreur de macro, elle marche mais dès que je l'ajoute au code de mon bouton activeX j'ai un erreur. Pour info lorsque je lance le bouton je ne suis pas sur une des 2 feuilles qui contiennent les données. Voici le code de mon bouton j'espere que quelqu,un pourras m'aider. La feuille Ajustement contient les informations a copier qui ont des formules mais je souhaite copier seulement les valeur dans Booking. PS je ne suis pas programmeur j'Ai trouvé les code sur le net ou avec l'enregistreur d'Excel.

Private Sub CommandButton1_Click()
' envoie par mail
ActiveSheet.Range("A1:E28").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = ""
    .Item.To = "dlebel@tirelink.ca"
    .Item.Subject = "Commande Booking"
    .Item.Send
End With
'
' Ajustinv  [u]CETTE SECTION QUI ME POSE PROBLEME[/u]
'
 Sheets("Ajustement").Select
    Cells.Select
    Range("A41").Activate
    Selection.Copy
    Sheets("Booking").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Commande").Select 
'
' Efface la feuille
'
    Sheets("Commande").Select
    Range("A10:A26,E10:E26").Select
    Range("E10").Activate
    Selection.ClearContents
 'fermer et sauvegarder   
If MsgBox("Votre commande a été envoyé", vbOKCancel) = vbCancel Then Exit Sub

ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub 

Salut,

Avec un fichier modèle, ce serait bien plus simple à tenter de t'aider.

Voici comment t'y prendre :

Cordialement

Merci voici donc le fichier. Pour votre info si c'est utile c'est une fichier de commande de produit par courriel il y a la page commande ou le client inscrit les numéro de produit et les quantité. Il y a la feuille booking qui est l'inventaire réservé a ce client. La feuille liste inventaire si le client veut visualiser les quantité restante. et la feuille ajustement qui il a la quantité après commande restante que je souhaite copier remplacer la table booking sans les formule de B. Cette dernière étape est la seul a ma porté pour faire le calcule de déduction d'inventaire.

Vous pouvez entrer des numéro de produit dans la commande pour voir le fonctionnement (les prendre dans A de booking). Le bouton en question est envoyer la commande

Merci de votre aide

Re,

Si j'ai bien compris ton problème, tu remplaces tes instructions mises en commentaire ci-dessous par mon nouveau passage.

' Ajustinv  [u]CETTE SECTION QUI ME POSE PROBLEME[/u]
'
''' Sheets("Ajustement").Select
'''    Cells.Select
'''    Range("A41").Activate
'''    Selection.Copy
'''    Sheets("Booking").Select
'''    Cells.Select
'''    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'''        :=False, Transpose:=False
'''    Sheets("Commande").Select

Sheets("Ajustement").Range("B2:B" & Rows.Count).Copy
Sheets("Booking").Select
ActiveSheet.Range("B2").PasteSpecial Paste:=xlPasteValues

NB : Tu peux supprimer l'instruction Sheets("Commande").Select ci-dessous, puisque tu l'as une deuxième fois dans ta macro

Variante :

Sheets("Ajustement").Cells.Copy
Sheets("Booking").Select
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues

Il y aurait bien d'autres choses à simplifier dans ton code.

Cordialement.

Merci Beaucoup le fichier fonctionne très bien maintenant!!!