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
papou
Bonjour En attendant une solution plus souple qui ne saurait tarder ;-) Une façon donc de transformer les nombres de tes colonnes en lettres afin d'autoriser la sélection... ...qui d'ailleurs est-elle vraiment nécessaire ?? (Attention ici la dernière colonne est incrémentée de 2 juste pour le test, donc à adapter bien sûr) Dim Numcolonne As Long Dim FnctLetCol1$, FnctLetCol2$ Dim LettreCol1$, LettreCol2$ Dim Aselect$ Numcolonne = 2 FnctLetCol1 = "SUBSTITUTE(LEFT(ADDRESS(ROW()," & Numcolonne & ",2),2),""$"","""")" FnctLetCol2 = "SUBSTITUTE(LEFT(ADDRESS(ROW()," & Numcolonne + 2 & ",2),2),""$"","""")" LettreCol1 = Evaluate(FnctLetCol1) LettreCol2 = Evaluate(FnctLetCol2) Aselect = LettreCol1 & ":" & LettreCol2 ActiveSheet.Columns(Aselect).Select
voila, je voudrais paramétrer ma sélection de colonnes. Mais m'sieur VBA n'accepte pas qu'on paramètre les références de colonnes avec des Integer.
Comment puis-je faire ?
merci
Bonjour
En attendant une solution plus souple qui ne saurait tarder ;-)
Une façon donc de transformer les nombres de tes colonnes en lettres afin
d'autoriser la sélection...
...qui d'ailleurs est-elle vraiment nécessaire ??
(Attention ici la dernière colonne est incrémentée de 2 juste pour le test,
donc à adapter bien sûr)
Dim Numcolonne As Long
Dim FnctLetCol1$, FnctLetCol2$
Dim LettreCol1$, LettreCol2$
Dim Aselect$
Numcolonne = 2
FnctLetCol1 = "SUBSTITUTE(LEFT(ADDRESS(ROW()," & Numcolonne &
",2),2),""$"","""")"
FnctLetCol2 = "SUBSTITUTE(LEFT(ADDRESS(ROW()," & Numcolonne + 2 &
",2),2),""$"","""")"
LettreCol1 = Evaluate(FnctLetCol1)
LettreCol2 = Evaluate(FnctLetCol2)
Aselect = LettreCol1 & ":" & LettreCol2
ActiveSheet.Columns(Aselect).Select
Cordialement
Pascal
"Gilgamesh" <hsemaglig@uruk.com> a écrit dans le message de
news:OAhbTpGgEHA.2908@TK2MSFTNGP10.phx.gbl...
Bonjour En attendant une solution plus souple qui ne saurait tarder ;-) Une façon donc de transformer les nombres de tes colonnes en lettres afin d'autoriser la sélection... ...qui d'ailleurs est-elle vraiment nécessaire ?? (Attention ici la dernière colonne est incrémentée de 2 juste pour le test, donc à adapter bien sûr) Dim Numcolonne As Long Dim FnctLetCol1$, FnctLetCol2$ Dim LettreCol1$, LettreCol2$ Dim Aselect$ Numcolonne = 2 FnctLetCol1 = "SUBSTITUTE(LEFT(ADDRESS(ROW()," & Numcolonne & ",2),2),""$"","""")" FnctLetCol2 = "SUBSTITUTE(LEFT(ADDRESS(ROW()," & Numcolonne + 2 & ",2),2),""$"","""")" LettreCol1 = Evaluate(FnctLetCol1) LettreCol2 = Evaluate(FnctLetCol2) Aselect = LettreCol1 & ":" & LettreCol2 ActiveSheet.Columns(Aselect).Select
