Transfert de données de feuille à feuille
#1
Aspirant XLPages

Inscription: 24/09/2015
De Alger

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 30-08-2017 17h08

Bonjour le Forum,

 

Je voudrais apporter quelques modifications à la macro contenue dans le fichier ci joint :

Il y a 2 objectifs à atteindre après avoir cliqué sur le bouton de transfert :
- 1 : copier l'ensemble des lignes saisies dans la feuille "Saisie" et les transférer automatiquement dans la feuille "Report" intégralement, et chaque saisie à la suite de la précédente. (le nombre de lignes par saisie est variable et peut aller de 2 à 99)
- 2 : effacer automatiquement le contenu saisi (feuille "Saisie") après transfert à l'exception de la Ligne 5 et des colonnes A et O, ce qui nous permettra de procéder à une nouvelle saisie comprenant le numéro de fiche suivant celui déjà transféré (n+1).
Le bouton de transfert est placé dans la feuille "Saisie"
 

Merci de m'aider à résoudre ce problème et Bonne journée

Cordialement
Fath

Pièce jointe:
xlsm Saisie-Report.xlsm   [ Taille: 71.27 Ko - Téléchargements: 489 ]
Hors Ligne
Rapport   Haut 

Re: Transfert de données de feuille à feuille
#2
Aspirant XLPages

Inscription: 15/07/2016
De Allier

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2007, 2010
Posté le : 31-08-2017 13h38

Bonjour Fath,

 

Voici ton code modifié qui effacera les données de la feuille "Saisie" a partir de la ligne 6 sauf les colonnes "A & O" en concevant les formules de la feuille "saisie".

 

Private Sub CommandButton1_Click()
Dim LigneS As Long, ligneR As Long

Application.ScreenUpdating = False

' boucle sur lignes 6 à 99 de Saisie pour déterminer la denière ligne remplie (pas possible par méthode Find car formules dans cellule)
For n = 6 To 99
If Range("J" & n) = "" Then LigneS = n - 1: Exit For
Next
' première ligne vide de Report
ligneR = Sheets("Report").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
' copie les lignes de Saisie
ActiveSheet.Range("A5:U" & LigneS).Select
    Application.CutCopyMode = False
    Selection.Copy
    'Collage dans Report
    Sheets("Report").Select
    Sheets("Report").Range("A" & ligneR).Select
    ActiveSheet.Paste
    ' Retour à Saisie
    Sheets("Saisie").Select
    
    On Error Resume Next
    ActiveSheet.Range("B6:N" & LigneS).SpecialCells(xlCellTypeConstants, 23).ClearContents
    ActiveSheet.Range("P6:U" & LigneS).SpecialCells(xlCellTypeConstants, 23).ClearContents
    On Error GoTo 0
    
End Sub

Cordialement.

 

 

Hors Ligne
Rapport   Haut 

Re: Transfert de données de feuille à feuille
#3
Aspirant XLPages

Inscription: 24/09/2015
De Alger

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 01-09-2017 13h28

Bonjour et merci pour la solution. C'est parfait !

Finalement, une macro peut faire tout ce qu'on lui demande, il suffit de savoir lui parler.

Bonne journée et à une autre occasion peut être !

Cordialemenr

Fath

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes