visual basic éditor archivage et initialisation

Question

Bonjour a tous,

je suis étudiante. je débute sur vbe et j'aimerai savoir ce qui va pas dans mon début de programmation. Je cherche a archiver et a initialiser une facture.

Voila le début de ma formule :

Sub archivage1()


Dim c As Object
Dim p As Object


Set c = Worksheets("facture").Range("D5")
Set p = Worksheets("facture").Range("B15:B40")


While (p.Value <> " ")
    c.Select
    Selection.Copy
    Sheets("historique achats client").Select
    ActiveSheet.Paste
    
For Each p In Worksheets("facture").Range("B15:B40").Cells
    p.Select
    Selection.Copy
    Sheets("HistoriqueAchatsClients").Select
    ActiveSheet.Paste
    Set p = p.Offset(0, 1)


Next
Wend


End Sub

Pouvez vous me dire où est l'erreur svp!! en vous remerciant.

mortalino · Answer

Salut, je t'ai corrigé 2 - 3 choses, mais ton code est assez bizarre. J'ai séparé les While et For Each, en cas, dis avec plus de précisions ce que tu veux faire et vérifie bien le code que je t'ai encadré : Sub archivage1() Dim c As Range ' *** correction ici Dim p As Range ' *** correction ici Dim MyRange As Range Set c = Worksheets("facture").Range("D5") Set p = Worksheets("facture").Range("B15:B40") '************************************************************ While p.Value <> "" ' ici ça marchera jamais * ' pis ça veut dire quoi ??? * ' Tant que Range("B15:B40") est différent de rien ? * ' tu copies tout le temps Range("D5") à la même cellule.. * ' * c.Select ' * Selection.Copy ' * Sheets("historique achats client").Select ' * ' *** dans quelle cellule ? ' * ' Range("A1").Select 'change ici la destination * ActiveSheet.Paste ' * Wend ' * '************************************************************ Sheets("HistoriqueAchatsClients").Select Range("A1").Select For Each MyRange In p ' *** correction ici MyRange.Copy ' *** dans quelle cellule ? ' Range("A1").Select 'change ici la destination ActiveSheet.Paste ActiveCell.Offset(0, 1).Select Next End Sub ~ [code.aspx?ID=39466 Mortalino] ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_EBArtSoft · Answer

Pour savoir OU EST L'ERREUR il faudrait deja savoir QUELLE EST L'ERREUR ?

Apres cela je penses que le mysterieux chevalier pourra d'autant mieu t'aider ;-)

@+

E.B.

Visual basic éditor archivage et initialisation

2 réponses

Votre réponse

Discussions similaires