Bonjour,

j'essaye d'appliquer certaine propriétées a plusieurs plages de celules similaire mais séparé.

J'utilise le code suivant, qui me renvoit l'erreur "type mismatch":

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Drawdowns2()
 
Dim ligne As Double
Dim Table() As Range
 
ligne = ActiveCell.Row
 
For i = 2 To 17 Step 3
 
Table = Range("A" & ligne + i & ":G" & ligne + i).Select
        With Selection
            .WrapText = True
        End With
 
Next i
 
End Sub
Je sais qu'il existe d'autre moyen de resoudre le probleme mais savai vous comment faire pour que ca fonctionne avec un boulcle?

Merci d'avance