A voir également:
- Augmenter la mémoire excel
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Augmenter la luminosité pc - Guide
7 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
15 janv. 2014 à 22:05
15 janv. 2014 à 22:05
Bonjour benjamin,
Tu remplaces ta ligne par ceci :
Tu peux aussi supprimer les 2 lignes qui précédent (col1...col2) qui sont inutiles.
Tu remplaces ta ligne par ceci :
Dim derlig As Long
derlig = Cells(Rows.Count, trouve1.Column).End(xlUp).Row
Cells(trouve1.Row, trouve1.Column).Resize(derlig, 1).Copy trouve2
Tu peux aussi supprimer les 2 lignes qui précédent (col1...col2) qui sont inutiles.