Boucles & Selection variables

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:

---

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

Bonjour

essaies cette modification

Code:

---

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

---

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:

---

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

---

Code:

---

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.