afficher 1ere et dernière cellule d'une selection de plage manue ll
3 réponses
KidonK
Bonjour,
question :
je fais une selection sur ma feuille:
ex : la plage("a1:d1") manuellement.
quel code peut me dire que dans cette selection la première cellule est A1
et la dernière cellule de la selection est D1 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie : MsgBox Selection.Cells(1).Address MsgBox Selection.Cells(Selection.Count).Address Cordialement. Daniel "KidonK" a écrit dans le message de news:
Bonjour, question : je fais une selection sur ma feuille: ex : la plage("a1:d1") manuellement. quel code peut me dire que dans cette selection la première cellule est A1 et la dernière cellule de la selection est D1 ?
j'espère etre clair... merci d'avance
Bonjour.
Essaie :
MsgBox Selection.Cells(1).Address
MsgBox Selection.Cells(Selection.Count).Address
Cordialement.
Daniel
"KidonK" <KidonK@discussions.microsoft.com> a écrit dans le message de news:
98957DE1-4264-462F-95F8-A309D3F83564@microsoft.com...
Bonjour,
question :
je fais une selection sur ma feuille:
ex : la plage("a1:d1") manuellement.
quel code peut me dire que dans cette selection la première cellule est A1
et la dernière cellule de la selection est D1 ?
Bonjour. Essaie : MsgBox Selection.Cells(1).Address MsgBox Selection.Cells(Selection.Count).Address Cordialement. Daniel "KidonK" a écrit dans le message de news:
Bonjour, question : je fais une selection sur ma feuille: ex : la plage("a1:d1") manuellement. quel code peut me dire que dans cette selection la première cellule est A1 et la dernière cellule de la selection est D1 ?
j'espère etre clair... merci d'avance
anonymousA
bonjour,
sans être vraiment très certain d'avoir bien interprété ta demande, voici une solution possible
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target MsgBox "Adresse 1ere cellule :" & .Cells(1).Address If .Cells.Count > 1 Then MsgBox "Adresse dernière cellule :" & .Cells(.Cells.Count).Address End With
End Sub
Attention, ne fonctionne correctement que dans le cas de sélection de cellules contigues avec une selection allant de la gauche vers la droite et du haut vers le bas.
A+
Bonjour, question : je fais une selection sur ma feuille: ex : la plage("a1:d1") manuellement. quel code peut me dire que dans cette selection la première cellule est A1 et la dernière cellule de la selection est D1 ?
j'espère etre clair... merci d'avance
bonjour,
sans être vraiment très certain d'avoir bien interprété ta demande, voici
une solution possible
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
MsgBox "Adresse 1ere cellule :" & .Cells(1).Address
If .Cells.Count > 1 Then MsgBox "Adresse dernière cellule :" &
.Cells(.Cells.Count).Address
End With
End Sub
Attention, ne fonctionne correctement que dans le cas de sélection de
cellules contigues avec une selection allant de la gauche vers la droite et
du haut vers le bas.
A+
Bonjour,
question :
je fais une selection sur ma feuille:
ex : la plage("a1:d1") manuellement.
quel code peut me dire que dans cette selection la première cellule est A1
et la dernière cellule de la selection est D1 ?
sans être vraiment très certain d'avoir bien interprété ta demande, voici une solution possible
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target MsgBox "Adresse 1ere cellule :" & .Cells(1).Address If .Cells.Count > 1 Then MsgBox "Adresse dernière cellule :" & .Cells(.Cells.Count).Address End With
End Sub
Attention, ne fonctionne correctement que dans le cas de sélection de cellules contigues avec une selection allant de la gauche vers la droite et du haut vers le bas.
A+
Bonjour, question : je fais une selection sur ma feuille: ex : la plage("a1:d1") manuellement. quel code peut me dire que dans cette selection la première cellule est A1 et la dernière cellule de la selection est D1 ?
j'espère etre clair... merci d'avance
ChrisV
Bonjour
Avec sélections sur plage contiguë ou discontinues...
Sub zaza() Set nbZn = Selection For Each Zn In nbZn.Areas With Zn.Range("A1") MsgBox Zn.Address(0, 0) MsgBox "ligDeb: " & Zn.Row MsgBox "ligFin: " & Zn.Row + Zn.Rows.Count - 1 MsgBox "colDeb: " & Zn.Column MsgBox "colFin: " & Zn.Column + Zn.Columns.Count - 1 End With Next Zn Set nbZn = Nothing End Sub
ChrisV
"KidonK" a écrit dans le message de news:
Bonjour, question : je fais une selection sur ma feuille: ex : la plage("a1:d1") manuellement. quel code peut me dire que dans cette selection la première cellule est A1 et la dernière cellule de la selection est D1 ?
j'espère etre clair... merci d'avance
Bonjour
Avec sélections sur plage contiguë ou discontinues...
Sub zaza()
Set nbZn = Selection
For Each Zn In nbZn.Areas
With Zn.Range("A1")
MsgBox Zn.Address(0, 0)
MsgBox "ligDeb: " & Zn.Row
MsgBox "ligFin: " & Zn.Row + Zn.Rows.Count - 1
MsgBox "colDeb: " & Zn.Column
MsgBox "colFin: " & Zn.Column + Zn.Columns.Count - 1
End With
Next Zn
Set nbZn = Nothing
End Sub
ChrisV
"KidonK" <KidonK@discussions.microsoft.com> a écrit dans le message de news:
98957DE1-4264-462F-95F8-A309D3F83564@microsoft.com...
Bonjour,
question :
je fais une selection sur ma feuille:
ex : la plage("a1:d1") manuellement.
quel code peut me dire que dans cette selection la première cellule est A1
et la dernière cellule de la selection est D1 ?
Avec sélections sur plage contiguë ou discontinues...
Sub zaza() Set nbZn = Selection For Each Zn In nbZn.Areas With Zn.Range("A1") MsgBox Zn.Address(0, 0) MsgBox "ligDeb: " & Zn.Row MsgBox "ligFin: " & Zn.Row + Zn.Rows.Count - 1 MsgBox "colDeb: " & Zn.Column MsgBox "colFin: " & Zn.Column + Zn.Columns.Count - 1 End With Next Zn Set nbZn = Nothing End Sub
ChrisV
"KidonK" a écrit dans le message de news:
Bonjour, question : je fais une selection sur ma feuille: ex : la plage("a1:d1") manuellement. quel code peut me dire que dans cette selection la première cellule est A1 et la dernière cellule de la selection est D1 ?