Re : Sélection plage de cellules selon valeurs en VBA
Bonjour,
tu peux récupérer la plage entre les deux bornes (incluses) : cellules en gras en colonne a
Sub récup_adresse()
Dim c(5)
derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
cpt = 0
For i = 2 To derligne
If cpt = 2 Then i = derligne: GoTo fin
If Cells(i, 1).Font.Bold = True Then
cpt = cpt + 1
c(cpt) = Cells(i, 1).Address
End If
fin:
Next i
a = c(1) & ":" & c(2)
Set f = Sheets("Feuil1").Range(a)
Stop
For Each cel In f
a = cel.Offset(0, 2)
Next
End Sub