OVH Cloud OVH Cloud

macro suppression suivant plage

2 réponses
Avatar
tourtouleter
Bonjour
Dans une macro je veux effacer les lignes d'1 tableau excel comprises entre
2 cellules de la colonne A contenant respectivement N° de tâche et Matériel.
Ensuite toujours avec la macro j'insert des lignes entre les 2 cellules, et
comme la derniere cellule est fusionnée la copie est dupliqué sur la ligne.

Qui a une solution.
Merci

2 réponses

Avatar
gérard
salut
as tu essaye avec la barre d'outils macro/ nouvelle macro
ensuite tu peux voir ce que ta macro a fait dans le module et l'adapter
A+
gerard
"tourtouleter" a écrit dans le
message de news:
Bonjour
Dans une macro je veux effacer les lignes d'1 tableau excel comprises
entre
2 cellules de la colonne A contenant respectivement N° de tâche et
Matériel.
Ensuite toujours avec la macro j'insert des lignes entre les 2 cellules,
et
comme la derniere cellule est fusionnée la copie est dupliqué sur la
ligne.

Qui a une solution.
Merci


Avatar
tourtouleter
Salut Gérard
Malheureusement cela ne suffit pas...
Cells.Find(What:="Prestations", After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
ActiveCell().Select
ActiveCell.Offset(1, 0).Select
ActiveWorkbook.Names.Add Name:="Bilan_facturation_prestation_debut",
RefersToR1C1:=Selection
Cells.Find(What:="Matériel", After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
ActiveCell().Select
ActiveWorkbook.Names.Add Name:="Matériel", RefersToR1C1:=Selection
Range("Matériel").Select
ActiveCell.Offset(-1, 0).Select
Selection.ClearContents

Range("Bilan_facturation_prestation_debut").Select
Do While Not IsEmpty(ActiveCell)
Selection.EntireRow.Delete
Loop
Range("Matériel").Select
Range("Bilan_facturation_prestation_debut").Select

Sheets("Demande facturation prestations").Select
Range("A4").Select
Range("A4:c4").Select
Selection.Copy
Dim Tache As String
Tache = Range("A4")

Sheets("Bilan facturation").Select
Range("Matériel").Select
ActiveCell.Offset(-1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'ActiveCell.Offset(1, 0).Select
'Range("Bilan_facturation_prestation_debut").Select
Application.CutCopyMode = False
ActiveCell.Offset(0, 3).Select
ActiveCell.FormulaR1C1 = _
"=SUMIF(Tâche_T,RC[-3]&""/""&R2C,Montant_demandé_MPE)"

Merci quand même.

Bonjour
Dans une macro je veux effacer les lignes d'1 tableau excel comprises entre
2 cellules de la colonne A contenant respectivement N° de tâche et Matériel.
Ensuite toujours avec la macro j'insert des lignes entre les 2 cellules, et
comme la derniere cellule est fusionnée la copie est dupliqué sur la ligne.

Qui a une solution.
Merci