XL 2016 macro copier coller avec differents critères

  • Initiateur de la discussion Initiateur de la discussion moupa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

moupa

XLDnaute Junior
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
 

Pièces jointes

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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Power Query powerquery
Réponses
4
Affichages
363
Réponses
14
Affichages
501
Réponses
6
Affichages
842
Réponses
11
Affichages
934
Retour