XL 2016 macro copier coller avec differents critères

moupa · 13 Mars 2020

Bonjour le forum,

J'ai une demande d'un collègue pour son fichier de suivi, ou sa demande est:
de copier les champs avec la mise en forme des cellules A14 à S21
de coller avec la mise en forme celles ci en dessous de se tableau cad à partir de la ligne A23
et de supprimer les renseignement qu'ils y auraient dans la deuxième colonne, cad (toto,1,2 etc. mais aussi zut de zut)

mais aussi de pouvoir refaire la cette procédure plusieurs fois en cliquant sur les bouton + ou de pouvoir supprimer le dernier tableau insérer
par avance merci
moupa

Calvus · 14 Mars 2020

Bonsoir moupa, le forum,

Voici une solution, si j'ai bien tout saisi.

VB:

Sub Ajout()
Dim t, i%

t = Range("A14:S21")
For i = 1 To 6
    t(i, 6) = ""
    t(7, 4) = ""
Next i

Range("A14:S21").Copy
Range("A" & Rows.Count).End(xlUp)(4).PasteSpecial Paste:=xlPasteFormats
 
  With Range("A" & Rows.Count).End(xlUp)(4).Resize(i, 19)
    .Value = t
    .Rows("1:3").RowHeight = 28
    .Rows("4:7").RowHeight = 42
  End With
End Sub

A+

moupa · 16 Mars 2020

Bonjour Calvus,

Génial cela correspond a ce que je cherchais a faire ;-)
merci

Effectuez une recherche sur Excel Downloads...

XL 2016 macro copier coller avec differents critères

moupa

XLDnaute Junior

Pièces jointes

Calvus

XLDnaute Barbatruc

Pièces jointes

moupa

XLDnaute Junior

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums