Discussion :

[Momo.ga]

Bonjour à tous,

je vous joins un fichier, ou j'aimerai enregistrer la valeur contenu dans une cellule, dans une autre cellule d'une autre feuille.

Le problème c'est que cela copie la formule contenu dans la cellule et non la valeur que je souhaite enregistré.

Deuxième problème, comme vous le verrez il s'agit d'enregistrer des commandes, je souhaiterai quand j'enregistre une nouvelle commande, que cela enregistre sur une nouvelle ligne.

Merci d'avance à tous.

[nibledispo]

bonjour,

Quelle est la (les) cellule à copier et ou doit-elle être copiée ?

cordialement,

[Momo.ga]

Bonjour nibledispo

Les cellules à copié sont :

valeur ("F5") de la feuille ("Bon de commande") à copier dans la feuille ("Commandes") en ("E5")

valeur ("F6") de la feuille ("Bon de commande") à copier dans la feuille ("Commandes") en ("F5")

valeur ("F20") de la feuille ("Bon de commande") à copier dans la feuille ("Commandes") en ("G5")

Ce que j'ai fait pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 .Range("F5").Copy Worksheets("Commandes").Range("E5")
    .Range("F6").Copy Worksheets("Commandes").Range("F5")
    .Range("F20").Copy Worksheets("Commandes").Range("G5")

Ce qui ne permet ni de copier la valeur, ni de changer de ligne pour un nouvel enregistrement.

Je te remercie d'avance de ton aide.

[Theze]

Bonjour,

Si j'ai bien compris, tu veux reporter les valeurs de la feuille "Bon de commande" sur la feuille "Commandes" et ceci sur la 1ère ligne vide du tableau ?
Teste ce qui suit.
L'instruction "Application.EnableEvents = False" ne sert à rien si une procédure évènementielle "Change" n'est pas utilisée dans la feuille cible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub enregistrercommande()
 
    Dim Lgn As Long
 
    With Worksheets("Commandes")
 
        Lgn = .Cells(.Rows.Count, 5).End(xlUp).Row + 1 'sur colonne E
 
        .Range("E" & Lgn) = Worksheets("Bon de commande").Range("F5")
        .Range("F" & Lgn) = Worksheets("Bon de commande").Range("F6")
        .Range("G" & Lgn) = Worksheets("Bon de commande").Range("F20")
 
 
    End With
 
End Sub

Hervé.

[Momo.ga]

Merci beaucoup Hervé !

à très bientôt ^^