Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Partir de la colonne A

Partir de la colonne A

4 réponses
Avatar
Michel
Bonsoir,
grâce au grand lSteph, j'ai cette proc :
Comment faire afin qu'elle parte à la colonne A même si je pars de la
colonne B ou C ou...
Merci beaucoup
Michel

Sub selatK()
Dim first
Dim last
first = Selection.Cells(1).Row
last = Selection.Rows.Count
Range(Selection.Cells(1), Cells(first + last - 1, 11)).Select
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
LSteph
Bonsoir,

Sub selatK()
Dim first
Dim last
first = Selection.Cells(1).Row
last = Selection.Rows.Count
Range(Cells(first,1), Cells(first + last - 1, 11)).Select
End Sub

lsteph (pô si grand)
"Michel" a écrit dans le message de news:

Bonsoir,
grâce au grand lSteph, j'ai cette proc :
Comment faire afin qu'elle parte à la colonne A même si je pars de la
colonne B ou C ou...
Merci beaucoup
Michel

Sub selatK()
Dim first
Dim last
first = Selection.Cells(1).Row
last = Selection.Rows.Count
Range(Selection.Cells(1), Cells(first + last - 1, 11)).Select
End Sub




Avatar
Daniel.M
Bonsoir Michel,

Range(Selection.Cells(1), Cells(first + last - 1, 11)).Select


Cells(first,"A").Resize(last,11).Select

Salutations,

Daniel M.

Avatar
Michel
Merci lSteph, mais si grand par le talent !

Michel

"LSteph" a écrit dans le message de news:

Bonsoir,

Sub selatK()
Dim first
Dim last
first = Selection.Cells(1).Row
last = Selection.Rows.Count
Range(Cells(first,1), Cells(first + last - 1, 11)).Select
End Sub

lsteph (pô si grand)
"Michel" a écrit dans le message de news:

Bonsoir,
grâce au grand lSteph, j'ai cette proc :
Comment faire afin qu'elle parte à la colonne A même si je pars de la
colonne B ou C ou...
Merci beaucoup
Michel

Sub selatK()
Dim first
Dim last
first = Selection.Cells(1).Row
last = Selection.Rows.Count
Range(Selection.Cells(1), Cells(first + last - 1, 11)).Select
End Sub








Avatar
Michel
Merci beaucoup
Daniel
Michel

"Daniel.M" a écrit dans le message de
news:
Bonsoir Michel,

Range(Selection.Cells(1), Cells(first + last - 1, 11)).Select


Cells(first,"A").Resize(last,11).Select

Salutations,

Daniel M.