Problème archivage vba
gony30
Messages postés
5
Statut
Membre
-
gony30 Messages postés 5 Statut Membre -
gony30 Messages postés 5 Statut Membre -
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...
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...
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
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
