Problème archivage vba Fermé

Question

Bonjour,
je suis en train d'écrire mes lignes de code pour faire un archivage de données de la feuil1 à la feuil3, mais quand je met exécuter il me dit erreur d'éxécution '13', je ne sais pas à quoi cela correspond et comme je débute en vba, j'ai du mal à voir ou j'aurai pu faire une erreur? Pouvez vous m'aider, merci...

gony30 · Answer

Bonjour,

Si, je met les codes c'est peut etre mieux ...

Sub archivage()
Sheets(Feuil3).Select
Range("b4:b14").Select

Do
If ActiveCell = "" Then
GoTo Archive
End If

If ActiveCell <> "" Then
AciveCell.Offset(1, 0).Select
End If

Loop Until ActiveCell.Value = ""

Archive:
ActiveCell.Value = Sheets(Feuil1).Range("D8")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets(Feuil1).Range("D9")
ActiveCell.Offset(O, 1).Select
ActiveCell.Value = Sheets(Feuil1).Range("D10")
ActviveCell.Value = Sheets(Feuil1).Range("D11")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets(Feuil1).Range("D12")
ActiveCell.Offset(0, 1).Select

Sheets("Feuil1").Select

Problème archivage vba

1 réponse

Discussions similaires