Couper coller trier avec une macro

JBARBE

XLDnaute Barbatruc

• 7 Juin 2019

• #2

Bonjour à tous toutes,
Peut être ceci !
A tester !

 

Pièces jointes

• test archivage-1.xlsm

  22.1 KB · Affichages: 2

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 7 Juin 2019

• #3

Bonjour...et merci pour ce retour rapide.

Alors, en executant la macro "test", j'ai un message d'erreur : Erreur de compilation : End With sans With. avec la ligne End With surlignee en jaune

En executant la macro "macro1", j ai un message d'erreur : erreur d'execution '1004' : la methode Paste Special de la classe Range a échoué.

En executant la macro "macro2", ca me copie la formule de la colonne "A" dans la cellule selectionnée

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 7 Juin 2019

• #4

neim à dit:

Bonjour...et merci pour ce retour rapide.

Alors, en executant la macro "test", j'ai un message d'erreur : Erreur de compilation : End With sans With. avec la ligne End With surlignee en jaune

En executant la macro "macro1", j ai un message d'erreur : erreur d'execution '1004' : la methode Paste Special de la classe Range a échoué.

En executant la macro "macro2", ca me copie la formule de la colonne "A" dans la cellule selectionnée

Cliquez pour agrandir...

Re,
J'ai modifié tout cela dans le post 2 !
La saisie dans la colonne O "dossier complet le" de la feuille "besoin" active les macros pour le copier coller !
Bonne journée !

 

Pièces jointes

• test archivage-1.xlsm

  22.1 KB · Affichages: 7

Dernière édition: 7 Juin 2019

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 7 Juin 2019

• #5

Super !! ca fonctionne merci.

Juste 2 "petite" points

- si je colle une date sur plusieurs lignes de la colonne" O" en meme temps, la macro ne fonctionne que sur 1 partie. Il reste quelques lignes sur la feuille "Besoins".

- Mes formules disparaissent dans la feuille "besoins"

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 7 Juin 2019

• #6

neim à dit:

Super !! ca fonctionne merci.

Juste 2 "petite" points

- si je colle une date sur plusieurs lignes de la colonne" O" en meme temps, la macro ne fonctionne que sur 1 partie. Il reste quelques lignes sur la feuille "Besoins".

- Mes formules disparaissent dans la feuille "besoins"

Cliquez pour agrandir...

Il faut saisir à chaque fois la date voulue (le copier coller ne peux se faire !)
En effet la ligne désignée disparait lorsqu'on a fait OK ( on ne peux faire autrement) pour la ligne voulue dans la colonne O
Cette macro prend en charge la manipulation OK !

VB:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Column = 15 Then
    Call test
    End If
End Sub

Bonne journée !

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 7 Juin 2019

• #7

Re,
Pour faire un copier coller dans la colonne O et avec une même date :
- mettre cette date en dehors du tableau ( par exemple colonne Q )
- copier cette date à chaque fois ( ctrl + c )
- coller dans la colonne O à chaque fois ( ctrl +v )

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 7 Juin 2019

• #8

Parfait, merci beaucoup pour votre aide

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 7 Juin 2019

• #9

J ai annule la macro événementielle et ajouté un bouton à la place pour la déclencher. ca me permet de visualiser avant d'archiver.

Par contre, toutes les dates ne change pas de feuille en meme temps, il faut cliquer dessus plusieurs fois.

Je ne vois pas ce qui peut provoque ceci.

 

Pièces jointes

• test archivage (4).xlsm

  19.6 KB · Affichages: 2

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 7 Juin 2019

• #10

Re,
Pas de problème pour moi !
En cliquant sur le bouton GO !
@+

 

Pièces jointes

• archivage (4).xlsm

  25.3 KB · Affichages: 2

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 7 Juin 2019

• #11

Re,
J'ai figé les volets de la ligne 1 pour plus de lisibilité !
@+

 

Pièces jointes

• archivage (4).xlsm

  27.1 KB · Affichages: 6

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 11 Juin 2019

• #12

Bonjour
Merci de votre retour...pour moi, le bouton n'archive pas toutes les lignes d'un coup.

Exemple,

Image 1 > je mets 8 dates dans la colonne "O"
Image 2 > apres appuis sur le bouton "GO" (ou le miens), 4 dates ont ete archivées > il e,n reste 4 sur la feuille "Besoins"
Image 3 > apres appuis sur le bouton "GO" (ou le miens), 2 dates ont ete archivées > il e,n reste 2 sur la feuille "Besoins"
Image 4 > apres appuis sur le bouton "GO" (ou le miens), 1 dates ont ete archivées > il e,n reste 1 sur la feuille "Besoins"
Image 5 > apres appuis sur le bouton "GO" (ou le miens), 1 dates ont ete archivées > il n'en reste plus sur la feuille "Besoins"

 

Pièces jointes

• Classeur1.xlsx

  135.5 KB · Affichages: 5

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 11 Juin 2019

• #13

Bonjour à tous toutes,
Envoi ton fichier avec les 8 Dates dans la colonne O !

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 11 Juin 2019

• #14

Le voici

 

Vote positif 0 Vote négatif

N

neim

XLDnaute Junior

• 11 Juin 2019

• #15

Le voici

 

Pièces jointes

• archivage (4) (2).xlsm

  22 KB · Affichages: 3

Vote positif 0 Vote négatif