formule Excel

TOUTOU03 · 21 Janvier 2013

Bonjour,

je me trouve en difficulté pour adapter une macro sur un fichier

mon classeur comporte 2 feuilles:

La première feuille comporte des informations (colonne A à F et ligne et ligne 3 à 27) et trois boutons (Enregister, Imprimer et Archiver)

le soucis est avec le troisième bouton (Archiver)

je veux qu'il exporte les informations contenues dans les lignes 3 à 27, de la colonne A à F, vers la deuxième feuille (Archives) si et seulement si la colonne A est renseignée.

de la façon ou j'ai crée ma macro, mon bouton exporte les lignes y compris les differents boutons, et remonte les lignes 28 et plus qui elles ne doivent pas bouger

je crois savoir d'ou vient l'erreur, mais je n'arrive pas à la corriger.

Quelqu'un peut-il me conseiller?

Avec tous mes remerciements

VDAVID · 21 Janvier 2013

Re : formule Excel

Bonjour TOUTOU03,

Si j'ai bien compris,
Peut-être dans le code de ton bouton:

Code:

'Déclaration des variables
Dim maPlagedépart As Range, maPLagefin As Range
Dim tabl()
    
    'Récupération des données à couper/coller
    Set maPlagedépart = Sheets("Remises").Range("A3:F" & Range("A27").End(xlUp).Row)
    
    'Remplissage du tableau
    tabl = maPlagedépart.Value
    
    'Enlever l'Apostrophe de la ligne du dessous pour supprimer les lignes après archivage
    'maplagedépart.ClearContents
    
    'Définition de la plage d'arrivée
    Set maPLagefin = Sheets("Archives").Range("A" & Sheets("Archives").Range("A65536").End(xlUp).Row + 1 & ":" & "F" & Sheets("Archives").Range("A65536").End(xlUp).Row + UBound(tabl()))
        
    'Remplissage de la plage d'arrivée
    maPLagefin.Value = tabl

PS: Les deux lignes après 'Définition de la plage d'arrivée sont à regroupé sur une seule.

Bonne journée !

hbenalia · 21 Janvier 2013

Re : formule Excel

Bonjour à tous,

Une idée en remplaçant le code du bouton "Archiver" (code de CommandButton3) par le code suivant:

Code:

Private Sub CommandButton3_Click()

' Archiver

    Range("A3:F27").Select
    Selection.Copy
    
    Sheets("Archives").Select
    DerLig = Sheets("Archives").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("Archives").Range("A" & DerLig).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Archives").Range("A" & DerLig).Select
    
    Sheets("Remises").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A3").Select

    ActiveWorkbook.Save
End Sub

Cordialement

TOUTOU03 · 21 Janvier 2013

Re : formule Excel

merci de votre retour rapide.

la formule répond à mes attentes à un détail prés...
je souhaite exporter que les lignes dont la colonne A est renseignée
si A est vide, le ligne doit rester.

hbenalia · 21 Janvier 2013

Re : formule Excel

Bonjour,

Peut-être le code :

Code:

Private Sub CommandButton3_Click()
' Archiver
    Range("$A$3:$F" & Range("A27").End(xlUp).Row).Select
    Selection.Copy
    
    Sheets("Archives").Select
    DerLig = Sheets("Archives").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("Archives").Range("A" & DerLig).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Archives").Range("A" & DerLig).Select

    Sheets("Remises").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A3").Select

    ActiveWorkbook.Save

End Sub

Cordialement

TOUTOU03 · 21 Janvier 2013

Re : formule Excel

merci beaucoup,

j'ai inséré le premier code qui fonctionne à un détail prés.
le dernier ne fonctionne pas.

ce que je veux réellement, c'est exporter uniquement les lignes dont A est renseigné.

j'ais complété le code pour séparer les lignes dont A est renseigné de celle dont A ne l'ai pas.

mais je n'arrive pas à aller plus loin

VDAVID · 21 Janvier 2013

Re : formule Excel

Bonsoir le fil,

Toutou03, as tu essayé mon code (2ème message sur ce fil) ?

Bonne soirée

hbenalia · 21 Janvier 2013

Re : formule Excel

Bonjour à tous,

Une petite amélioration du code "archiver" pour trier (par ordre décroissant) la plage A3:F27 selon la couleur des cellules de A3:A27 (la couleur "grise" des cellules renseignées est ajoutée par une MFC)... Les lignes de la plage A3:F27 dont les cellules de la colonne A sont renseignées (colorrées en gris) seront mises en bas de cette plage, selectionnées et recopiées dans la deuxième feuille, ensuite elles seront vidées...

J'espère venir à ton aide...

Cordialement

TOUTOU03 · 22 Janvier 2013

Re : formule Excel

Merci beaucoup
infiniment merci
ce fichier fonctionne comme je le souhaite

formule Excel

TOUTOU03

XLDnaute Junior

Pièces jointes

VDAVID

XLDnaute Impliqué

hbenalia

XLDnaute Occasionnel

TOUTOU03

XLDnaute Junior

hbenalia

XLDnaute Occasionnel

TOUTOU03

XLDnaute Junior

Pièces jointes

VDAVID

XLDnaute Impliqué

hbenalia

XLDnaute Occasionnel

Pièces jointes

TOUTOU03

XLDnaute Junior

Discussions similaires