Tableau exel + macro galère

Fermé
balakbalak - 29 mars 2012 à 13:48
 balakbalak - 23 avril 2012 à 13:57
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...
A voir également:

8 réponses

eljojo_e Messages postés 1151 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 144
29 mars 2012 à 16:00
Peut-tu me montrer ton code de copie ???
0
Up ?
0
eljojo_e Messages postés 1151 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 144
6 avril 2012 à 14:31
Peut-tu me montrer ton code de copie ???
0
ccm81 Messages postés 10562 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2023 2 339
Modifié par ccm81 le 7/04/2012 à 10:35
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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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
eljojo_e Messages postés 1151 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 144
12 avril 2012 à 11:58
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
ccm81 Messages postés 10562 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2023 2 339
Modifié par ccm81 le 13/04/2012 à 09:39
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
Merci beaucoup, je progresse bien :)

je fais quelques tests et je vous dis quoi.
0