Discussion :

[nattybb]

Bonjour,

j'ai un problème dans ma macro mais j'avoue que je ne le comprends.

J'ai créé une macro qui permet de copier une ligne d'information et qui la colle dans une autre feuille à la suite des autres informations copiées.
c'est une sorte de création de base de données. Une fois les info saisies dans la page "Saisie", on clique sur un bouton qui copie/colle ces infos dans la pages "Bdd" et supprime les infos de la pages "Saisie". Et ainsi de suite à chaque nouveau clique sur le bouton "Valider".

Voici ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Saisie()
 
Copier la zone à coller, toujours la même dans la feuille "Saisie"
Worksheets("Saisie").range("A2:AE2").Copy

'Coller la plage selectionner dans la feuille "Saisie" dans la feuille "Bdd" à la suite des autres collages
Worksheets("Bdd").Activate
range("B2").Select
'Selection.End(xlDown).Select 'Erreur à ce niveau: Erreur définie par l'application ou par l'objet.
ActiveCell.Offset(1, 0).Activate
ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

'Effacer le contenu saisie de la feuille "Saisie"
Worksheets("Saisie").cells("A1:AF31").Delete
Worksheets("Saisie").Select
End Sub

Merci de votre aide

[Yoyo57]

Bonjour nattybb,

L'utilisation de "Select" en cascade est fastidieuse et ne sert à rien sauf à ralentir ton code. Je pense que ce code fait la même chose sans problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Saisie()
 
Copier la zone à coller, toujours la même dans la feuille "Saisie"
Worksheets("Saisie").range("A2:AE2").Copy
 
'Coller la plage selectionner dans la feuille "Saisie" dans la feuille "Bdd" à la suite des autres collages
Worksheets("Bdd").Range("B3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
'Effacer le contenu saisie de la feuille "Saisie"
Worksheets("Saisie").Cells("A1:AF31").ClearContents
Worksheets("Saisie").Select
End Sub

Je te laisse tester et me remonter tout problème éventuel.

[nattybb]

Merci pour la réponse,

le problème est qu'avec cette ligne je ne copie qu'en B3 or il faudrait que les informations se copient, à chaque nouvelle saisie, les unes en dessous des autres:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Coller la plage selectionner dans la feuille "Saisie" dans la feuille "Bdd" à la suite des autres collages
Worksheets("Bdd").Range("B3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Les informations sont: 1 ligne=1 individu, les colonnes=les informations relatives à l'individu.
J'avais fait une boucle For avec un If mais ça n'a pas marché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim I as Integer 'Ligne
Worksheets("Bdd").Activate
For I = 2 to 200
 If Cells (I,2) ="" then
Worksheets("Bdd").Range(I,2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End if
Next

Je viens de tester ton programme est j'ai toujours cette erreur:
Erreur d'exécution 1004, Erreur définie par l'application ou par l'objet.

Encore merci

[Yoyo57]

C'est quelle ligne qui te lève l'erreur ?

En attendant ta réponse, voici une modification du code pour remplir les lignes les unes en dessous des autres, d'après ce que je comprends de ton besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Saisie()
Dim lig as Long 'Voir le type selon le nombre potentiel de lignes à traiter
 
'Copier la zone à coller, toujours la même dans la feuille "Saisie"
Worksheets("Saisie").range("A2:AE2").Copy
 
'Coller la plage selectionner dans la feuille "Saisie" dans la feuille "Bdd" à la suite des autres collages
 
lig = 1
Do While Worksheets("Bdd").Range("B3").Cells(lig, 1) <> ""
    lig = lig + 1
Loop
 
Worksheets("Bdd").Range("B" & lig + 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
'Effacer le contenu saisie de la feuille "Saisie"
Worksheets("Saisie").Rows(2).Delete
Worksheets("Saisie").Select
End Sub

Je te conseille vivement de faire des sauvegardes de ton fichier avant de tester le code, des fois que des lignes contenant des données soient supprimées, étant donné que le test de ligne vide est fait uniquement sur la 1ère cellule.

[nattybb]

Super
merci ça marche,

Bonne soirée et encore merci.