Copier coller sous conditions (Macro)
Résolu
kcrom
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
kcrom Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
kcrom Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Copier coller sous conditions (Macro)
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Style d'écriture a copier coller - Guide
3 réponses
Bonjour,
Un exemple :
La macro suppose que tu as une ligne de titre et tu n'as pas de filtre automatique dessus. Sinon enlever les 2 lignes de code le mettant et l'enlevant.
https://www.cjoint.com/?DFtw4m9dLFo
eric
Un exemple :
Sub dupliquer()
Dim derlig As Long, dercol As Long
Sheets("Feuil3").Cells.ClearContents
With Sheets("Feuil2")
derlig = .Cells(Rows.Count, "A").End(xlUp).Row
dercol = .Cells(1, Columns.Count).End(xlToLeft).Column
.Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=29, Criteria1:="=*" & [B3] & "*", Operator:=xlAnd
.Range("A1").Resize(derlig, dercol).Rows.Copy Sheets("Feuil3").[A1]
.Range("A1").AutoFilter
End With
End Sub
La macro suppose que tu as une ligne de titre et tu n'as pas de filtre automatique dessus. Sinon enlever les 2 lignes de code le mettant et l'enlevant.
https://www.cjoint.com/?DFtw4m9dLFo
eric