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é 9 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 feever » 24 août 2015, 19:15 » dans Excel - VBA
    2 Réponses
    120 Vues
    Dernier message par feever
    25 août 2015, 08:15
  • Transfert de données
    par bigari » 17 juin 2016, 19:35 » dans Excel - VBA
    2 Réponses
    103 Vues
    Dernier message par bigari
    17 juin 2016, 22:59
  • transfert données
    par roms30 » 30 septembre 2017, 18:02 » dans Excel - VBA
    26 Réponses
    473 Vues
    Dernier message par James007
    1 octobre 2017, 20:31
  • TRANSFERT DE DONNEES
    par MISTERJUNGLE330 » 30 janvier 2014, 17:52 » dans Excel - VBA
    2 Réponses
    317 Vues
    Dernier message par Jean-Eric
    31 janvier 2014, 13:41
  • TRANSFERT DE DONNEES
    par USMALGER » 1 décembre 2016, 19:41 » dans Excel - VBA
    2 Réponses
    82 Vues
    Dernier message par USMALGER
    2 décembre 2016, 07:19
  • Transfert de données
    par morlong » 3 septembre 2017, 12:43 » dans Excel - VBA
    2 Réponses
    164 Vues
    Dernier message par morlong
    3 septembre 2017, 15:45