Tableau exel + macro galère

balakbalak -  
 balakbalak -
Bonjour,

Je suis débutant sur exel mais je commence a pas trop mal me débrouiller. J'ai encore un petit souci de traitement.

Je m'explique, j'ai une feuille avec une ligne de 5 cellules dans laquelle on entre des valeurs (Secteur,Type,unité,Date et commentaire).

Ensuite on clique sur un bouton Valider et j'ai une macro qui copie la ligne et l'insère dans un tableau récapitulatif sur une autre feuille.

Tout ça fonctionne bien, mon souci arrive maintenant :

J'aimerai pouvoir écraser la ligne de mon tableau récapitulatif lorsque l'on rentre les mêmes informations mis a part la date.

en gros, remplacer une ligne

Industrie / Automobile / Traitement de surface / 20/02/2010 / commentaire blabla1

par celle ci :

Industrie / Automobile / Traitement de surface / 20/02/2012 / commentaire blabla2

j'espère m'être fais comprendre merci aux âmes charitables...

8 réponses

  1. eljojo_e Messages postés 1255 Statut Membre 155
     
    Peut-tu me montrer ton code de copie ???
    0
  2. eljojo_e Messages postés 1255 Statut Membre 155
     
    Peut-tu me montrer ton code de copie ???
    0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour

    ou encore mieux, si tu nous envoyait ton fichier, sans données confidentielles (format excel 2003) su cjoint.com et tu joins le lien obtenu à ton prochain message

    bonne suite
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. balakbalak
     
    Sub Ajout_Suivi()
    '
    ' Ajout_Suivi Macro
    '

    '
    Sheets("Suivi").Select
    Rows("25:25").Select
    Selection.EntireRow.Hidden = True
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Sheets("Modification").Select
    Rows("3:3").Select
    Selection.Copy
    Sheets("Suivi").Select
    Rows("3:3").Select
    ActiveSheet.Paste
    Range("H25").Select
    Sheets("Modification").Select
    Application.CutCopyMode = False

    Range("A3").Select
    ActiveCell.FormulaR1C1 = "**"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "**"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "**"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "**"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "**"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "**"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "**"

    Sheets("Suivi").Select
    Rows("3:3").Select
    End Sub

    La feuille "Modification" se compose d'une ligne ou l'on rentre les différentes infos
    La feuille "Suivi" est quant a elle le tableau dans lequel on insère la ligne avec les infos.

    La macro se déclenche avec un bouton.
    0
  6. eljojo_e Messages postés 1255 Statut Membre 155
     
    Un peu de tri :

    Sub Ajout_Suivi()

    Sheets("Suivi").Select
    Rows("25:25").EntireRow.Hidden = True 'cacher la ligne ?
    Rows("3:3").Insert Shift:=xlDown

    Sheets("Modification").Rows("3:3").Copy

    Sheets("Suivi").Rows("3:3").Select
    ActiveSheet.Paste

    Application.CutCopyMode = False

    Sheets("Modification").Select

    [a3] = "**"
    [b3] = "**"
    [c3] = "**"
    [d3] = "**"
    [e3] = "**"
    [f3] = "**"
    [g3] = "**"

    Sheets("Suivi").Select
    Rows("3:3").Select

    End Sub

    En suite, qu'est ce que tu voudrais faire exactement ??? ("j'ai pas compris ce code)
    0
  7. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour

    ou en plus bref

    Sheets("Suivi").Rows(25).EntireRow.Hidden = True
    Sheets("Suivi").Rows(3).Insert shift:=xlDown
    Sheets("Modification").Cells(3, 1).EntireRow.Copy Sheets("suivi").Cells(3, 1)
    Sheets("Modification").Range("A3:G3").Value = "**"
    Sheets("Suivi").Select
    ActiveSheet.Rows(3).Select

    bonne suite
    0
  8. balakbalak
     
    Merci beaucoup, je progresse bien :)

    je fais quelques tests et je vous dis quoi.
    0