Tableau exel + macro galère
balakbalak
-
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...
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:
- Tableau exel + macro galère
- Tableau word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Imprimer un tableau excel - Guide
8 réponses
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
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
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.
'
' 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.
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)
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)
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
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
