Discussion :

[Mairequimby]

Bonjour,

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

Code :

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

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!!

[Invité]

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 :

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

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

Le programme pour tester :

Code :

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

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.

[Marc-L]

Bonjour, bonjour !

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

Code :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[Mairequimby]

Merci,

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