Problème archivage vba
gony30
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
gony30 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
gony30 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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...
A voir également:
- Problème archivage vba
- Archivage sms - Guide
- Excel compter cellule couleur sans vba - Guide
- Annuler archivage story instagram - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
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
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
