Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Connaitre le nombre de colonnes

Connaitre le nombre de colonnes

5 réponses
Avatar
José
Comment peux t'on avec VBA connaitre le nombre de colonnes qui contiennent
des valeurs ou comment connaitre le N° de la première colonne vide?

Comment faire pour sélectionner une plage dont le nombre de colonne n'est
pas toujours le même. Pour un nombre de lignes j'utilise
Range("A1:D" & [A:A].Find("*",,,,,xlPrevious).Row).Select
Comment l'adapter pour les colonnes

Merci
Signaler un problème avec ce contenu

5 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
John Fuss
Pour ma part j'utilise Range("A65536").end(xlup).row pour connaitre la
dernière ligne et Range("IV1").end(xltoleft).column à adapter suivant si la
colonne et la ligne possédant le plus grd nombre de valeur sont "A:A" &
"1:1".

Voili voilou.

Je sais qu'il existe un 'truc' + bô en rafraichissant le UsedRange et en
demandant direct la dernière column mais j'ai eu des soucis avec donc je ne
l'utilise plus.

John

"José" a écrit dans le message de
news:bq4ajf$lfb$
Comment peux t'on avec VBA connaitre le nombre de colonnes qui contiennent
des valeurs ou comment connaitre le N° de la première colonne vide?

Comment faire pour sélectionner une plage dont le nombre de colonne n'est
pas toujours le même. Pour un nombre de lignes j'utilise
Range("A1:D" & [A:A].Find("*",,,,,xlPrevious).Row).Select
Comment l'adapter pour les colonnes

Merci






Avatar
José
Ca ne me donne pas le N° de la première colonne vide !

"John Fuss" a écrit dans le message news:
bq4cpu$mnb$
Pour ma part j'utilise Range("A65536").end(xlup).row pour connaitre la
dernière ligne et Range("IV1").end(xltoleft).column à adapter suivant si
la

colonne et la ligne possédant le plus grd nombre de valeur sont "A:A" &
"1:1".

Voili voilou.

Je sais qu'il existe un 'truc' + bô en rafraichissant le UsedRange et en
demandant direct la dernière column mais j'ai eu des soucis avec donc je
ne

l'utilise plus.

John

"José" a écrit dans le message de
news:bq4ajf$lfb$
Comment peux t'on avec VBA connaitre le nombre de colonnes qui
contiennent


des valeurs ou comment connaitre le N° de la première colonne vide?

Comment faire pour sélectionner une plage dont le nombre de colonne
n'est


pas toujours le même. Pour un nombre de lignes j'utilise
Range("A1:D" & [A:A].Find("*",,,,,xlPrevious).Row).Select
Comment l'adapter pour les colonnes

Merci










Avatar
John Fuss
Si ! Si tu utilise Range("A1").end(xltoright) il s'arrête sur la 1ere
colonne vide

cette syntaxe correspond à te mettre sur A1 et à appuyer sur Ctrl+'Flèche
droite'

John


"José" a écrit dans le message de
news:bq4e71$nom$
Ca ne me donne pas le N° de la première colonne vide !

"John Fuss" a écrit dans le message news:
bq4cpu$mnb$
Pour ma part j'utilise Range("A65536").end(xlup).row pour connaitre la
dernière ligne et Range("IV1").end(xltoleft).column à adapter suivant si
la

colonne et la ligne possédant le plus grd nombre de valeur sont "A:A" &
"1:1".

Voili voilou.

Je sais qu'il existe un 'truc' + bô en rafraichissant le UsedRange et en
demandant direct la dernière column mais j'ai eu des soucis avec donc je
ne

l'utilise plus.

John

"José" a écrit dans le message de
news:bq4ajf$lfb$
Comment peux t'on avec VBA connaitre le nombre de colonnes qui
contiennent


des valeurs ou comment connaitre le N° de la première colonne vide?

Comment faire pour sélectionner une plage dont le nombre de colonne
n'est


pas toujours le même. Pour un nombre de lignes j'utilise
Range("A1:D" & [A:A].Find("*",,,,,xlPrevious).Row).Select
Comment l'adapter pour les colonnes

Merci














Avatar
Daniel.M
Salut,

Si ! Si tu utilise Range("A1").end(xltoright) il s'arrête sur la 1ere
colonne vide


Il s'arrête plutôt sur la dernière colonne pleine.

Pour la 1ère colonne vide, on doit aller 1 cellule encore à droite:

Range("A1").End(xlToRight)(1, 2).Select


Aussi, lorsqu'on a affaire à une région (commençant en A1):
Dim P As Range
Set P = Range("A1").CurrentRegion
P(1, P.Columns.Count + 1).Select

Salutations,

Daniel M.

Avatar
AV
L'objet de ton message ("connaitre le nbre de colonnes") ne me semblant pas
cohérent avec une partie du contenu ("...connaitre le N° de la première colonne
vide...")
En interprétant (?) : Partant de A1, tu ne connais ni le nbre de colonnes ni le
nbre de lignes renseignées

Sub zz_A1_DerCel()
y = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
x = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Range("A1", Cells(x, y).Address).Select
End Sub

??
AV