Problème archivage vba

Fermé

gony30 Messages postés 5 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 20 janvier 2008 - 17 janv. 2008 à 14:45
gony30 Messages postés 5 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 20 janvier 2008 - 17 janv. 2008 à 15:18

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...

A voir également:

Problème archivage vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

gony30 Messages postés 5 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 20 janvier 2008
17 janv. 2008 à 15:18

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters