Discussion :

[kirsie]

Bonjour,
Je réalise un projet de gestion des stocks sous Excel. J'ai réalisé un formulaire qui me permet de rentrer ou sortir des produits de mon stock. A partir de ce formulaire, je souhaite transférer toutes les données saisies de ce formulaire vers une feuille de données qui me permettrait par la suite de faire une analyse de la consommation. Je ne connait pas très bien le VBA et je suis bloqué, pour l'instant, mes données sont recopiés dans la feuille de données, mais elles s'inscrive les unes sur les autres et ce sont les formules qui s'affiche et non les valeurs.

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
If op = "Sortie" Then
        Application.EnableEvents = False
        With Worksheets("Saisie en stock")
        .Range("b5:b8").Copy Worksheets("Recap centre").Range("a2:a5")
        End With
        Application.EnableEvents = True

Avez vous une solution ?

Merci

[gFZT82]

Bonjour,

La méthode Copy effectue la copie de la plage vers la plage spécifiée.
Si tu souhaites ne coller que les valeurs (et non pas les formules), il faut utiliser PasteSpecial pour le collage.
De plus, si tu ne veux pas qu’elles s'inscrivent les unes sur les autres, il faut déterminer le numéro de ligne (ou de colonne) où ce collage sera effectué.
Exemple :

Code :

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

1
2
3
4
5
6
'On effectue la copie des données
Worksheets("Saisie en stock").Range("B5:B8").Copy
'On cherche le numéro de la ligne où sera effectué l'ajout
DerLig = Worksheets("Recap centre").Range("A2").End(xlDown).Row + 1
'On effectue le collage des valeurs
Worksheets("Recap centre").Range("A" & DerLig).PasteSpecial Paste:=xlPasteValues

Cordialement.

[kirsie]

Bonjour,

Tout d'abord merci, cela fonctionne très bien, cependant les données s'affichent les unes en dessous des autres, y aurait-il un moyen de placer chaque type de données les unes en face des autres ?

J'espère avoir été clair dans mes explications.

Merci

[gFZT82]

En face les unes des autres, c’est une notion très abstraite .
Je vais donc supposer que tu veux placer tes données les unes à coté des autres, c'est-à-dire en colonnes.
Tu peux tester comme cela

Code :

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

1
2
3
4
5
6
    'On effectue la copie des données
    Worksheets("Saisie en stock").Range("B5:B8").Copy
    'On cherche le numéro de la colonne où sera effectué l'ajout
    ColAjout = Worksheets("Recap centre").Range("A2").End(xlToRight).Column + 1
    'On effectue le collage des valeurs
    Worksheets("Recap centre").Cells(2, ColAjout).PasteSpecial Paste:=xlPasteValues

Cordialement.

[kirsie]

J'ai du faire une bêtise, j'ai un message d'erreur quand j'active la macro

Code :

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

1
2
3
4
5
6
7
        If op = "Sortie" Then
        Application.EnableEvents = False
        With Worksheets("Saisie en stock").Range("B5:B8").Copy
        ColAjout = Worksheets("Recap centre").Range("A2").End(xlToRight).Column + 1
        Worksheets("Recap centre").Cells(2, ColAjout).PasteSpecial Paste:=xlPasteValues 'cette ligne se surligne et affiche un message qui me met erreur définie par l'application ou par l'objet
        End With
        Application.EnableEvents = True

J'ai remarqué tout a l'heure que quand j'ai testé la première macro, je n'avait pas effacé le résultat de la première, du coup, j'ai effacé tout mon tableau, et quand j'ai voulu recommencer, la macro ne fonctionnait plus.
Du coup, faut-il vraiment laisser les anciens résultats pour que cela fonctionne Je trouve cela assez bizarre

[gFZT82]

Normal, s'il n'y a pas de données, la recherche de la dernière colonne renseignée aboutit au taquet de la feuille.
Tu peux remplacer par ce code

Code :

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

1
2
3
4
5
6
        Worksheets("Saisie en stock").Range("B5:B8").Copy
        With Worksheets("Recap centre")
            ColAjout = .Cells(2, Columns.Count).End(xlToLeft).Column
            If Not (ColAjout = 1 And .Cells(2, ColAjout) = "") Then ColAjout = ColAjout + 1
            .Cells(2, ColAjout).PasteSpecial Paste:=xlPasteValues 'cette ligne se surligne et affiche un message qui me met erreur définie par l'application ou par l'objet
        End With

Cordialement.