Re bonjour à tous,
Dans le cas ou la zone peut être entièrement remplie :
Sub test_2()
Dim Rng As Range
On Error Resume Next
Set Rng = Range("Wtr_C").Cells.SpecialCells(xlCellTypeBlanks)
If...
Type: Messages; Utilisateur: Efgé2
Re bonjour à tous,
Dans le cas ou la zone peut être entièrement remplie :
Sub test_2()
Dim Rng As Range
On Error Resume Next
Set Rng = Range("Wtr_C").Cells.SpecialCells(xlCellTypeBlanks)
If...
Bonjour
Une proposition
Sub test()
Dim Rng As Range
Set Rng = Range("Wtr_C").Cells.SpecialCells(xlCellTypeBlanks)
Select Case Rng.Areas.Count
Case 1
Rng(1, 1).Select
Case...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.