A voir également:
- Tableau exel + macro galère
- Tableau croisé dynamique - Guide
- Formule exel - Guide
- Macro logiciel - Télécharger - Organisation
- Tableau ascii - Guide
- Macro recorder - Télécharger - Confidentialité
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
29 mars 2012 à 16:00
Peut-tu me montrer ton code de copie ???
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
6 avril 2012 à 14:31
Peut-tu me montrer ton code de copie ???
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
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
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.
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
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)
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)
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
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
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