Discussion :

[YACOVMORD]

Bonjour à tous.
Je me présente.
Étudiant et ne suis ni informaticien ni programmeur en VBA, mais un assoiffé du savoir.
Voilà j'ai réalisé un Planning pour un amis propriétaire d'un Bar Tabac.
Dans une feuille de cette base de donnée j'ai crée 3 boutons nommés (ÉQUIPE1 ÉQUIPE2 ÉQUIPE3). Ces boutons font appel la même Macro pour copier les lignes (B3:Y13) du PLANNING concernant chaque équipe et l'archive dans une feuille ARCHIVES.

Le Bouton EQUIPE1 archive celui le Tableau du Planning de l'équipe3.
Le Bouton EQUIPE2 archive celui le Tableau du Planning de l' équipe1.
Le Bouton EQUIPE3 archive celui le Tableau du Planning de l' équipe2.

Il y a un seule et unique Tableau qui change toutes les semaines

Tout marche bien, mais au delà du 5ème Essai la macro se bloque à la ligne ci-dessous

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False'

Ci joint la 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
17
Sub EQUIPE1()    
'selectionner la feuille menu
 Sheets("PLANNING").Select
 'selection de la plage
Range("B3:Y13").Select
'copie des informations
Selection.Copy
'Selection de la base
Sheets("BACKUP").Select
'selection de la derniere cellule non vide
Cells(65535, 1).End(xlUp)(14).Select
'Colle la plage copiée
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False'
Call SEMAINE1
Call Effacer
End Sub

J'espère être claire et j'implore votre aide et vous remercie infiniment.
Cordialement

[Menhir]

Tout marche bien, mais au delà du 5ème Essai la macro se bloque à la ligne ci-dessous

Code :

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

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Quelle est le message d'erreur ?

En attendant la réponse, un peu de débarbouillage de ta macro (l'enregistreur automatique, c'est bien, mais il faut faire un peu de nettoyage ensuite).

Code :

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

1
2
3
4
5
6
Sub EQUIPE1()    
    Sheets("PLANNING").Range("B3:Y13").Copy
    Sheets("BACKUP").Cells(Rows.Count, 1).End(xlUp)(14).PasteSpecial Paste:=xlPasteAll
    Call SEMAINE1
    Call Effacer
End Sub

Je n'ai pas trop compris le (14) de ton code.

[YACOVMORD]

Bonsoir

Merci beaucoup pour votre réponse.

A l'origine il y avait le chiffre 1 ce qui est logique mais à chaque fois que je lance la macro elle m'écrase les dernière lignes copiées . Je ne comprend pas et je suis qu'un petit raccommodeur .

Alors j'ai ajouté le chiffre 14 pour que l'enregistrement ne vient pas écraser les 4 dernière lignes de la précédente copy et ça marche. Pourquoi .. ? Impossible de vous dire...

les lignes à copier c'est de B3:Y3

Je vais essayé les lignes que vous m'avez envoyer et vous remercie infiniment.

[YACOVMORD]

Merci Menhir

J'ai copié les codes que vous m'avez rédigés . C'est génial !!
Je voudrai vous demander une chose avant de mettre résolu,
Pourriez-vous me dire la démarche pour copier ce fichier sur une clé USB avec ses macros.

Encore une fois Merci, Merci

[Menhir]

Pourriez-vous me dire la démarche pour copier ce fichier sur une clé USB avec ses macros.

Si tu veux parler de le faire en VBA, voir la méthode SaveCopyAs : https://msdn.microsoft.com/fr-fr/vba...s-method-excel