Transfert de données de feuille à feuille | ||
---|---|---|
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 : Merci de m'aider à résoudre ce problème et Bonne journée Cordialement |
|
|
Re: Transfert de données de feuille à feuille | ||
---|---|---|
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.
|
|
|
Re: Transfert de données de feuille à feuille | ||
---|---|---|
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 |
|
|