Effacerr une ligne pour la copier dans un autre onglet

DoubleZero

XLDnaute Barbatruc

• 21 Mars 2013

• #2

Re : Effacerr une ligne pour la copier dans un autre onglet

Bonjour, etorria, le Forum,

Peut-être comme suit :

Code:

Sub Ligne_transférer()
Dim i As Long
For i = Range("f65536").End(xlUp).Row To 4 Step -1
If Range("f" & i).Value <> "" Then Range("f" & i).Offset(, -3).Resize(, 4).Cut Destination:=Sheets("réalisé").Range("c65536").End(xlUp).Offset(1, 0)
Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

G

goldenboy

XLDnaute Occasionnel

• 21 Mars 2013

• #3

Re : Effacerr une ligne pour la copier dans un autre onglet

Bonjour le fil,

DoubleZero à encore frappé !!!

Voici ce que j'avais à proposer :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("à réaliser").Range("f6").Value <> "" Then
Sheets("réalisé").Range("f6").Value = Sheets("à réaliser").Range("f6").Value
Sheets("à réaliser").Range("f6").EntireRow.Delete
End If
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #4

Re : Effacerr une ligne pour la copier dans un autre onglet

Merci à vous deux !
Je vais tester.
Sinon le code est à copier dans quel onglet ?

etorria

 

Vote positif 0 Vote négatif

G

goldenboy

XLDnaute Occasionnel

• 21 Mars 2013

• #5

Re : Effacerr une ligne pour la copier dans un autre onglet

Personnellement, je ferais un mix des deux code et je le placerais sur la feuille "a réaliser" comme sur l'image ci après.

 

Pièces jointes

• Capture.jpg

  27 KB · Affichages: 41
• Capture.jpg

  27 KB · Affichages: 42

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Mars 2013

• #6

Re : Effacerr une ligne pour la copier dans un autre onglet

Re-bonjour, bonjour goldenboy,

@ goldenboy :

DoubleZero à encore frappé !!!

Cliquez pour agrandir...

Qu'ouïe-je 🙂 ?

@ etorria :

Sinon le code est à copier dans quel onglet ?

Cliquez pour agrandir...

Le code de goldenboy a l'avantage d'agir immédiatement et doit être inséré dans le module de l'onglet.

Mon code doit être copié dans un module, à créer, et son action se produit par l'intermédiaire d'un bouton.

Ne pas hésiter à demander de l'aide si besoin.

Bon courage et à bientôt 🙂

 

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #7

Re : Effacerr une ligne pour la copier dans un autre onglet

Merci Double Zéro !
Seulement, moi, je voudrai que l'action se fasse instantanément et non à l'aide d'un bouton
Est-il possible d'obtenir un message d'avertissement lorsque l'on saisi la date réelle du type "Etes vous certain d'avoir saisi la bonne date ?" ?

Merci encore
A+

 

Dernière édition: 21 Mars 2013

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #8

Re : Effacerr une ligne pour la copier dans un autre onglet

Est-il possible d'obtenir une message de validation ("êtes vous certain de la date réelle saisie ?") par exemple ?
Merci !

 

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #9

Re : Effacerr une ligne pour la copier dans un autre onglet

Une autre question :
Est-il possible d'obtenir un message d'avertissement après avoir saisie la date réelle ?
Du genre "Etes vous certain d'avoir saisi la bonne date ?"

Encore merci
Etorria

 

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #10

Re : Effacerr une ligne pour la copier dans un autre onglet

Question pour Double Zéro !
Que veut dire cette partie de code : ".OffSet(, -3).Resize(, 4).Cut" ?
J'avoue que mes compétences en VBA sont très limitées !

Merci à Toi !
Etorria

 

Vote positif 0 Vote négatif

G

goldenboy

XLDnaute Occasionnel

• 21 Mars 2013

• #11

Re : Effacerr une ligne pour la copier dans un autre onglet

Pour avoir un message avant validation, voici le code complet :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
For i = Range("f65536").End(xlUp).Row To 4 Step -1
If Range("f" & i).Value <> "" Then
    Select Case MsgBox("Etes vous certain d'avoir saisi la bonne date ?", vbYesNo, "Question !")
    Case vbYes
    Range("f" & i).Offset(, -3).Resize(, 4).Cut Destination:=Sheets("réalisé").Range("c65536").End(xlUp).Offset(1, 0)
    Case vbNo
    Exit Sub
    End Select
End If
Next
End Sub

 

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #12

Re : Effacerr une ligne pour la copier dans un autre onglet

Je viens de transposer le code dans le "bon" classeur !
Mais cela ne fonctionne pas...je déprime !
Pourriez vous me venir en aide une dernière fois ?

Grand merci à vous !

Etorria

 

Pièces jointes

• Plan d'action.xlsm

  25.1 KB · Affichages: 47
• Plan d'action.xlsm

  25.1 KB · Affichages: 48
• Plan d'action.xlsm

  25.1 KB · Affichages: 42

Vote positif 0 Vote négatif

G

goldenboy

XLDnaute Occasionnel

• 21 Mars 2013

• #13

Re : Effacerr une ligne pour la copier dans un autre onglet

Voici votre fichier modifié.

Est ce que cela vous convient ?

Il faut peut être effacer les données au bas de la feuille 2, sinon le haut du tableau restera vide.

 

Pièces jointes

• Plan d'action (1).xlsm

  24.1 KB · Affichages: 42
• Plan d'action (1).xlsm

  24.1 KB · Affichages: 41
• Plan d'action (1).xlsm

  24.1 KB · Affichages: 42

Vote positif 0 Vote négatif

etorria

XLDnaute Nouveau

• 21 Mars 2013

• #14

Re : Effacerr une ligne pour la copier dans un autre onglet

Ok, super !
Seulement, la copie s'effectue sur la 2ème ligne et non la 1ère !

😉

 

Vote positif 0 Vote négatif

G

goldenboy

XLDnaute Occasionnel

• 21 Mars 2013

• #15

Re : Effacerr une ligne pour la copier dans un autre onglet

Est ce que comme cela ça vous convient ?

J'ai effacé vos tableaux, qui perturbaient la macro.

 

Pièces jointes

• Plan d'action (1).xlsm

  18.1 KB · Affichages: 41
• Plan d'action (1).xlsm

  18.1 KB · Affichages: 41
• Plan d'action (1).xlsm

  18.1 KB · Affichages: 43

Vote positif 0 Vote négatif