Je trace un ligne en VBA :
ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select
puis j'en place une plus petite :
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select
je souhaite selectionner la cellule la plus proche de cette 2em ligne
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
Youky
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select For k = 1 To 256 If Cells(1, k).Left > 980 Then col = k - 1: Exit For Next For k = 1 To 65000 If Cells(k, col).Top > 147.1 Then Cells(k - 2, col).Select: Exit For Next
Youky
"FAFA603" a écrit dans le message de news:
Bonjour
Je trace un ligne en VBA : ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select puis j'en place une plus petite : ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select je souhaite selectionner la cellule la plus proche de cette 2em ligne
Comment faire ?
Merci
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select
For k = 1 To 256
If Cells(1, k).Left > 980 Then col = k - 1: Exit For
Next
For k = 1 To 65000
If Cells(k, col).Top > 147.1 Then Cells(k - 2, col).Select: Exit For
Next
Youky
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de news:
42e8dd1b@news.sncf.fr...
Bonjour
Je trace un ligne en VBA :
ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select
puis j'en place une plus petite :
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select
je souhaite selectionner la cellule la plus proche de cette 2em ligne
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select For k = 1 To 256 If Cells(1, k).Left > 980 Then col = k - 1: Exit For Next For k = 1 To 65000 If Cells(k, col).Top > 147.1 Then Cells(k - 2, col).Select: Exit For Next
Youky
"FAFA603" a écrit dans le message de news:
Bonjour
Je trace un ligne en VBA : ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select puis j'en place une plus petite : ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select je souhaite selectionner la cellule la plus proche de cette 2em ligne
Comment faire ?
Merci
Michel NOLF
Bonjour Regarde du coté des proptetes TopLeftCell et BottomRightCell de ta ligne(Shape) Amicalement michel
"FAFA603" a écrit dans le message de news:
Bonjour
Je trace un ligne en VBA : ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select puis j'en place une plus petite : ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select je souhaite selectionner la cellule la plus proche de cette 2em ligne
Comment faire ?
Merci
Bonjour
Regarde du coté des proptetes TopLeftCell et BottomRightCell de ta
ligne(Shape)
Amicalement michel
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de news:
42e8dd1b@news.sncf.fr...
Bonjour
Je trace un ligne en VBA :
ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select
puis j'en place une plus petite :
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select
je souhaite selectionner la cellule la plus proche de cette 2em ligne
Bonjour Regarde du coté des proptetes TopLeftCell et BottomRightCell de ta ligne(Shape) Amicalement michel
"FAFA603" a écrit dans le message de news:
Bonjour
Je trace un ligne en VBA : ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select puis j'en place une plus petite : ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select je souhaite selectionner la cellule la plus proche de cette 2em ligne
Comment faire ?
Merci
FAFA603
Merci à vous. Cela fonctionne parfaitement... Encore merci "FAFA603" a écrit dans le message de news:
Bonjour
Je trace un ligne en VBA : ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select puis j'en place une plus petite : ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select je souhaite selectionner la cellule la plus proche de cette 2em ligne
Comment faire ?
Merci
Merci à vous.
Cela fonctionne parfaitement...
Encore merci
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de
news:42e8dd1b@news.sncf.fr...
Bonjour
Je trace un ligne en VBA :
ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select
puis j'en place une plus petite :
ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select
je souhaite selectionner la cellule la plus proche de cette 2em ligne
Merci à vous. Cela fonctionne parfaitement... Encore merci "FAFA603" a écrit dans le message de news:
Bonjour
Je trace un ligne en VBA : ActiveSheet.Shapes.AddLine(0#, 146.25, 5560, 146.25).Select puis j'en place une plus petite : ActiveSheet.Shapes.AddLine(980, 147.1, 1020, 147.1).Select je souhaite selectionner la cellule la plus proche de cette 2em ligne
