Discussion :

[Conico113]

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

[Michel_M]

Bonjour

essaies cette modification

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Drawdowns2()
Dim ligne As Long
ligne = ActiveCell.Row
For i = 2 To 17 Step 3
 Range("A" & ligne + i & ":G" & ligne + i).WrapText = True
Next i
end sub

[Conico113]

Oui merci, ca me semble etre la bonne soution!

Si il s'agit en faite d'ajouter des bordures, as tu une idée pour simplifier le code suivant et eviter de réécrire plusieur fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & ligne + i & ":G" & ligne + i)

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
Sub Drawdowns2()
 
Dim ligne As Long
 
ligne = ActiveCell.Row
 
For i = 2 To 17
 
Range("A" & ligne + i & ":G" & ligne + i).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("A" & ligne + i & ":G" & ligne + i).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("A" & ligne + i & ":G" & ligne + i).Borders(xlEdgeRight).LineStyle = xlContinuous
Range("A" & ligne + i & ":G" & ligne + i).Borders(xlEdgeTop).LineStyle = xlContinuous
 
Next i
 
End Sub

En tout cas merci pour ta précédente réponse.