Transfert de données

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
bigari
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 7 juillet 2013
Version d'Excel : 2013

Message par bigari » 30 octobre 2017, 13:45

Supervision 400T 2 (Enregistré automatiquement).xlsm
Classeur Supervision 400T
(175.77 Kio) Téléchargé 4 fois
Bonjour
J'ai un classeur en construction qui utilise une macro pour transférer des données d'une feuille à une autre dans le même classeur.
Le transfert se fait correctement mais les données transférées s'affichent sur la première ligne seulement et non sur la ligne suivante comme il se devrait.
J'ai utilisé cette même macro dans un autre classeur et cela fonctionnait très bien. Je ne comprends pas ce qui se passe.
Dans ce classeur, les données transférées sont de la feuille Exécution 400T à la feuille Histo.
Voici le code de la macro
Merci de m'aider à résoudre ce problème.


rivate Const feuilleTravail As String = "Exécution 400T"
Private Const feuilleSauvegarde As String = "Histo"
Dim ln


Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Then Exit Sub

If Target.Column <> 11 Or Target.Row < 4 Or Target.Value = "" Then Exit Sub


Sheets(feuilleTravail).Unprotect
Sheets(feuilleSauvegarde).Unprotect


col = Target.Row


Select Case Target.Value
Case "Complete"
lettre = "N"
Range(lettre & col).Select
If Range(lettre & col) = "" Then Range(lettre & col) = Now
Selection.Locked = True
Selection.FormulaHidden = False
Case "En Cours"
lettre = "M"
Range(lettre & col).Select
If Range(lettre & col) = "" Then Range(lettre & col) = Now
Selection.Locked = True
Selection.FormulaHidden = False
Case "En Attente"
lettre = "M"
Range(lettre & col).Select
If Range(lettre & col) = "" Then Range(lettre & col) = Now
Selection.Locked = True
Selection.FormulaHidden = False
Case "Donne"

Dim transfert As Variant
Dim derniereLigne%
derniereLigne = Sheets(feuilleSauvegarde).Cells(Sheets(feuilleSauvegarde).Rows.Count, "A").End(xlUp).Row
transfert = Sheets(feuilleTravail).Range("B" & col & ":P" & col)
Sheets(feuilleSauvegarde).Range("A" & derniereLigne + 1).Resize(1, UBound(transfert, 2) - LBound(transfert, 1) + 2) = transfert
Sheets(feuilleTravail).Range("E" & col).ClearContents
Sheets(feuilleTravail).Range("M" & col & ":Q" & col).ClearContents

End Select
p
patrick1957
Passionné d'Excel
Passionné d'Excel
Messages : 3'159
Appréciations reçues : 31
Inscrit le : 24 août 2015
Version d'Excel : 2007-2010-2016 PC

Message par patrick1957 » 30 octobre 2017, 14:09

Bonjour,

Tu ne dis pas à quelle(s) condition(s) la ligne doit répondre pour être transférée d'un onglet à l'autre ?
Tu transfert et tu marques la ligne comme étant transférée ? Où ?
Double clic sur la ligne ou transfert de ce qui serait marqué "faux" et deviendrait "VRAI" après transfert ?

P.
Je fais du géocaching et vous ?
Indentez vos codes VBA, ---> http://www.oaltd.co.uk/Indenter/Default.htm
A lire pour les débutants: http://www.xlerateur.com/divers/2010/05 ... nnees-612/
b
bigari
Jeune membre
Jeune membre
Messages : 39
Inscrit le : 7 juillet 2013
Version d'Excel : 2013

Message par bigari » 30 octobre 2017, 15:00

Bonjour Patrick1957
La condition est que lorsque je clic "Donne" dans le menu déroulant de la colonne K de la feuille exécution 400T, ou "Feuille de Travail" transfert se fait sur la feuille Histo ou "Feuille Sauvegarde"
Ça fonctionne très bien dans un autre classeur et non dans celui-ci?
p
patrick1957
Passionné d'Excel
Passionné d'Excel
Messages : 3'159
Appréciations reçues : 31
Inscrit le : 24 août 2015
Version d'Excel : 2007-2010-2016 PC

Message par patrick1957 » 30 octobre 2017, 16:22

re,

moi je verrais ça comme ceci (fichier légèrement modifié pour prendre toutes les colonnes à archiver)

P.
bigari-xlp.xlsm
(178.44 Kio) Téléchargé 8 fois
Je fais du géocaching et vous ?
Indentez vos codes VBA, ---> http://www.oaltd.co.uk/Indenter/Default.htm
A lire pour les débutants: http://www.xlerateur.com/divers/2010/05 ... nnees-612/
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Transfert de données
    par Thomas25 » 28 mars 2017, 22:54 » dans Excel - VBA
    6 Réponses
    140 Vues
    Dernier message par Thomas25
    29 mars 2017, 22:29
  • Transfert de données
    par TheDoud » 10 avril 2016, 17:59 » dans Excel - VBA
    5 Réponses
    172 Vues
    Dernier message par TheDoud
    12 avril 2016, 13:08
  • TRANSFERT DE DONNEES
    par USMALGER » 1 décembre 2016, 19:41 » dans Excel - VBA
    2 Réponses
    80 Vues
    Dernier message par USMALGER
    2 décembre 2016, 07:19
  • Transfert de données
    par Tilkes » 26 juillet 2015, 15:47 » dans Excel - VBA
    8 Réponses
    179 Vues
    Dernier message par Force rouge
    26 juillet 2015, 20:55
  • Transfert de données
    par morlong » 3 septembre 2017, 12:43 » dans Excel - VBA
    2 Réponses
    158 Vues
    Dernier message par morlong
    3 septembre 2017, 15:45
  • Transfert de données
    par bigari » 17 juin 2016, 19:35 » dans Excel - VBA
    2 Réponses
    101 Vues
    Dernier message par bigari
    17 juin 2016, 22:59