VBA Sélection d'un intervalle dans un For Each

Bonjour,

Je ne comprend pas pourquoi ma macro ne sélectionne pas l'intervalle de la ligne de code suivante;

Code:

---

For Each X In Sheets("Base").Range("E3:" & Sheets("Base").Range("E12").End(xlUp).Address)

---

VBA va plutôt me retourner les trois premières valeurs de la colonne E. Il ne tiens pas compte de mon intervalle de E3 à E12.

quelqu'un sait pourquoi?

Merci à vous!!

Bonjour,

C'est parce que les cellules de E6 à E11 sont vides.

Si vous souhaitez l'intervalle E3:E12, il ne faut pas demander la dernière cellule non vide de cette aire par rapport à E12.

Changez votre formule For Each :

Code:

---

For Each X In Sheets("Base").Range("E3:" & Sheets("Base").Range("E12").Address)

---

Le programme pour tester :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Essai()   Dim X As Range   'For Each X In Sheets("Base").Range("E3:" & Sheets("Base").Range("E12").End(xlUp).Address) For Each X In Sheets("Base").Range("E3:" & Sheets("Base").Range("E12").Address) MsgBox X & Chr(10) & X.Address   Next X   MsgBox Sheets("Base").Range("E12").End(xlUp).Address   End Sub

---

Cordialement.

Bonjour, bonjour !

Franchement pour afficher le contenu d'une plage de cellules, il y a plus simple !

Code:

---

1 2 3 4 5 6 7

Sub Demo() Dim Rg As Range For Each Rg In Worksheets("Base").Range("E3:E12") If Rg.Text > "" Then T$ = T$ & vbLf & Rg.Address(0, 0) & " : " & Rg.Text & vbLf Next If T > "" Then MsgBox T End Sub

---

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci,

ça marche super bien. merci de votre temps précieux. :-)