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
michdenis
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Pour connaître l'étendue de chacune des shapes dans
l'onglet de la feuil1
'-------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address
Next
End With
End Sub
'-------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
uINO0lvWJHA.1336@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une
certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître
la dernière ligne et la dernière colonne occupées par ces shapes.
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Infogroup
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de
l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eMLF3%23vWJHA.1336@TK2MSFTNGP02.phx.gbl...
Pour connaître l'étendue de chacune des shapes dans
l'onglet de la feuil1
'-------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address
Next
End With
End Sub
'-------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
uINO0lvWJHA.1336@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une
certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille,
connaître
la dernière ligne et la dernière colonne occupées par ces shapes.
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Infogroup
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" a écrit dans le message de news:%
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à
ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la
dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de
news:%2318A70wWJHA.5108@TK2MSFTNGP04.phx.gbl...
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de
l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eMLF3%23vWJHA.1336@TK2MSFTNGP02.phx.gbl...
Pour connaître l'étendue de chacune des shapes dans
l'onglet de la feuil1
'-------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address
Next
End With
End Sub
'-------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
uINO0lvWJHA.1336@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une
certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille,
connaître
la dernière ligne et la dernière colonne occupées par ces shapes.
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" a écrit dans le message de news:%
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
michdenis
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes With .Range(Sh.TopLeftCell, Sh.BottomRightCell) Message = "" Message = Message & "Nom de la shape : " _ & vbTab & UCase(Sh.Name) & vbCrLf & _ "Dernière ligne : " & _ vbTab & .Rows(.Rows.Count).Row & vbCrLf & _ "Dernière colonne : " _ & vbTab & .Columns(.Columns.Count).Column MsgBox Message End With Next End With End Sub '----------------------------------
"Infogroup" a écrit dans le message de news:
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" a écrit dans le message de news:%
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
'----------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
With .Range(Sh.TopLeftCell, Sh.BottomRightCell)
Message = ""
Message = Message & "Nom de la shape : " _
& vbTab & UCase(Sh.Name) & vbCrLf & _
"Dernière ligne : " & _
vbTab & .Rows(.Rows.Count).Row & vbCrLf & _
"Dernière colonne : " _
& vbTab & .Columns(.Columns.Count).Column
MsgBox Message
End With
Next
End With
End Sub
'----------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
Ors3KAxWJHA.3920@TK2MSFTNGP05.phx.gbl...
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à
ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la
dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de
news:%2318A70wWJHA.5108@TK2MSFTNGP04.phx.gbl...
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de
l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eMLF3%23vWJHA.1336@TK2MSFTNGP02.phx.gbl...
Pour connaître l'étendue de chacune des shapes dans
l'onglet de la feuil1
'-------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address
Next
End With
End Sub
'-------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
uINO0lvWJHA.1336@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une
certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille,
connaître
la dernière ligne et la dernière colonne occupées par ces shapes.
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes With .Range(Sh.TopLeftCell, Sh.BottomRightCell) Message = "" Message = Message & "Nom de la shape : " _ & vbTab & UCase(Sh.Name) & vbCrLf & _ "Dernière ligne : " & _ vbTab & .Rows(.Rows.Count).Row & vbCrLf & _ "Dernière colonne : " _ & vbTab & .Columns(.Columns.Count).Column MsgBox Message End With Next End With End Sub '----------------------------------
"Infogroup" a écrit dans le message de news:
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" a écrit dans le message de news:%
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Infogroup
Merci mille fois MichDenis,
cette fois tout est OK.
Pardonne-moi, j'avais remis ce post vers 23h30, pensant que tu ne l'avais pas vu, tu n'en tiens donc pas compte
Merci encore et très bonne soirée
Infogroup
"michdenis" a écrit dans le message de news:
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes With .Range(Sh.TopLeftCell, Sh.BottomRightCell) Message = "" Message = Message & "Nom de la shape : " _ & vbTab & UCase(Sh.Name) & vbCrLf & _ "Dernière ligne : " & _ vbTab & .Rows(.Rows.Count).Row & vbCrLf & _ "Dernière colonne : " _ & vbTab & .Columns(.Columns.Count).Column MsgBox Message End With Next End With End Sub '----------------------------------
"Infogroup" a écrit dans le message de news:
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" a écrit dans le message de news:%
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.
Le CurrentRegion des shapes en quelque sorte.
Merci par avance pour vos informations
Cordialement
Infogroup
Merci mille fois MichDenis,
cette fois tout est OK.
Pardonne-moi, j'avais remis ce post vers 23h30, pensant que tu ne l'avais
pas vu, tu n'en tiens donc pas compte
Merci encore et très bonne soirée
Infogroup
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:ucJM7dxWJHA.4384@TK2MSFTNGP03.phx.gbl...
'----------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
With .Range(Sh.TopLeftCell, Sh.BottomRightCell)
Message = ""
Message = Message & "Nom de la shape : " _
& vbTab & UCase(Sh.Name) & vbCrLf & _
"Dernière ligne : " & _
vbTab & .Rows(.Rows.Count).Row & vbCrLf & _
"Dernière colonne : " _
& vbTab & .Columns(.Columns.Count).Column
MsgBox Message
End With
Next
End With
End Sub
'----------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
Ors3KAxWJHA.3920@TK2MSFTNGP05.phx.gbl...
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement
à
ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la
dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de
news:%2318A70wWJHA.5108@TK2MSFTNGP04.phx.gbl...
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de
l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eMLF3%23vWJHA.1336@TK2MSFTNGP02.phx.gbl...
Pour connaître l'étendue de chacune des shapes dans
l'onglet de la feuil1
'-------------------------------
Sub test()
Dim Sh As Shape
With Worksheets("Feuil1")
For Each Sh In .Shapes
MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address
Next
End With
End Sub
'-------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de news:
uINO0lvWJHA.1336@TK2MSFTNGP02.phx.gbl...
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une
certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille,
connaître
la dernière ligne et la dernière colonne occupées par ces shapes.
Pardonne-moi, j'avais remis ce post vers 23h30, pensant que tu ne l'avais pas vu, tu n'en tiens donc pas compte
Merci encore et très bonne soirée
Infogroup
"michdenis" a écrit dans le message de news:
'---------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes With .Range(Sh.TopLeftCell, Sh.BottomRightCell) Message = "" Message = Message & "Nom de la shape : " _ & vbTab & UCase(Sh.Name) & vbCrLf & _ "Dernière ligne : " & _ vbTab & .Rows(.Rows.Count).Row & vbCrLf & _ "Dernière colonne : " _ & vbTab & .Columns(.Columns.Count).Column MsgBox Message End With Next End With End Sub '----------------------------------
"Infogroup" a écrit dans le message de news:
Je reviens sur mon post de 20h ainsi que ta réponse.
Je n'ai certainement pas su exprimer mon besoin, mais,
après utilisation, je me rends compte que ça ne correspond pas exactement à ce que j'aurais voulu.
En effet, il faudrais avoir une seule MsgBox dans laquelle on verrait la dernière ligne et dernière colonne
Merci par avance
Infogroup
"Infogroup" a écrit dans le message de news:%
Merci MichDenis,
Ça va me permettre de connaître la 1ère ligne et la dernière colonne de l'ensemble des shapes
Merci encore
Cdl
Infogroup
"michdenis" a écrit dans le message de news:eMLF3%
Pour connaître l'étendue de chacune des shapes dans l'onglet de la feuil1 '------------------------------- Sub test() Dim Sh As Shape With Worksheets("Feuil1") For Each Sh In .Shapes MsgBox Range(Sh.TopLeftCell, Sh.BottomRightCell).Address Next End With End Sub '-------------------------------
"Infogroup" a écrit dans le message de news:
Bonsoir à tous,
Sur une feuille ( Excel 2003 ), j'ai plusieurs shapes qui occupent une certaine plage.
Je voudrais, en fonction de la position des shapes sur ma feuille, connaître la dernière ligne et la dernière colonne occupées par ces shapes.