Contenu récent par OMMTA

Désolé, je n'avais pas lu la fin du message... Et pendant le confinement, c'est sacrément important la soupe ! encore plus qu'avant (et ça l'était déjà avant). Alors, un genou à terre, le regard baissé, je te présente mes excuses ! Du coup, je prends l'apéritif ! Ma fille prépare le dîner...

Je crois avoir trouvé : Dim shp As Shape, R As Range Set shp = ActiveSheet.Shapes(Application.Caller) Set R= shp.TopLeftCell.Offset(-1) If R.Column <> 1 Then Exit Sub Rows(R.Row).Insert lgn = Range("Date1").End(xlDown).Row + 1 Range("A" & Range("Date1").Row).EntireRow.Copy Range("A" &...

@Staple1600 Merci beaucoup Cette macro insère bien des lignes entières (et non simplement des cellules). Et comment lier cette macro à mon ancienne, qui insère des lignes mais recopie également le format des cellules A et B et continue le tableau en ajoutant, sous : Date 10 Date 11 Date 12...

Merci En remplaçant uniquement : lgn = Range("Date1").End(xlDown).Row + 1 par lgn = Range("Date1").End(xlUP).Row + 1 la macro insère une 1ère ligne sur L5 et la première cellule du tableau est Date 2 (qui existe déjà plus bas, en A18) Et le bas du tableau descend. Après 4 lignes insérées, le...

Bonjour, Dans un tableau Excel, j’ai une macro qui me permet d’insérer des lignes à la suite d’un tableau. Problème : comme, sous ce tableau, il y a des lignes masquées (L32 à L36) et que la macro insère des cellules (et non des lignes), quand j’insère plus de 4 lignes, la macro ne fonctionne...