Copier/coller d'une plage de cellule variable en vba
Fermé
flavinou
-
Modifié par Chris 94 le 9/02/2016 à 22:03
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 9 févr. 2016 à 23:41
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 9 févr. 2016 à 23:41
A voir également:
- Vba copier une plage de cellule variable
- Comment copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 712
9 févr. 2016 à 22:47
9 févr. 2016 à 22:47
Bonjour,
Évites les select mis par l'enregistreur mais inutiles.
Voilà comment je corrigerais :
Évites les select mis par l'enregistreur mais inutiles.
Voilà comment je corrigerais :
Sub Nom() Dim a As Range Dim b As Range Dim i As Integer Dim j As Integer With Sheets("Paramètres") Set a = .Range("S3") Set b = .Range("T3") End With With Sheets("Name") For i = 2 To 500 If Range("E" & i) >= a Then Exit For End If Next i For j = i To 500 If Range("E" & j).Value >= Range("E" & i).Value Then If Range("E" & j).Value <= b Then If Range("E" & j + 1).Value <= Range("E" & j).Value Then Exit For End If End If End If Next j End With Range("C" & i & ":C" & j).Copy Range("I2").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub
9 févr. 2016 à 23:10
Le programme ne s'arrête pas aux bonnes valeurs
9 févr. 2016 à 23:41