XL 2019 ligne et colonne 0

Mrdreamer39

XLDnaute Nouveau
Bonjour,
Existe-il un moyen de rajouter la ligne et la colonne 0 ? en gros en avoir une de plus en premier en changeant la numérotation par exemple.
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

En ayant compris autrement la question
VB:
Sub test_1()
MsgBox Columns(1).Address
MsgBox Columns(1).Column
'genérera une erreur
MsgBox Columns(0).Address
End Sub
Sub test_2()
'et ce qui vaut pour les colonnes, vaut pour les lignes
MsgBox Rows(1).Address
MsgBox Rows(1).Column
'genérera une erreur
MsgBox Rows(0).Address
End Sub
Maintenant si tu numéroter à partir de zéro, les colonnes sur la ligne 1
tu peux mettre en A1 (puis recopie vers la droite)
=COLONNE()-1
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour,
Existe-il un moyen de rajouter la ligne et la colonne 0 ? en gros en avoir une de plus en premier en changeant la numérotation par exemple.
En gros réviser les mathématiques ...
1 vaut 0
2 vaut 1
3 vaut 2
etc...
16384 vaut 16383
1048576 vaut 1048575
mais
le nombre total de lignes est fixe !!! 1048576
le nombre de colonnes également !!! 16384

dans quel but ????o_Oo_Oo_O
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour chacun,

Dans l'esprit StapelMilSixCentien:) :
VB:
Sub test()
 Dim c As Range: Set c = Range("B2")
 Debug.Print c(0, 0).Address ' A1
 Debug.Print c(1, 0).Address 'A2
 Debug.Print c(0, 1).Address 'B1
 Debug.Print c(1, 1).Address 'B2
 Debug.Print c(100, 100).Address 'CW101
End Sub

J'aime bien les questions précises et bien formulées, qui ne laissent rien à l'interprétation, comme celle-ci même!!!

A+ à tous
 

job75

XLDnaute Barbatruc
Bonjour à tous,

Les lignes et colonnes zéro existent, je les ai rencontrées :
VB:
Sub Test()
With ActiveSheet.UsedRange
    .Rows(1).Insert xlDown
    MsgBox .Rows(0).Address, , "Ligne 0"
    .Columns(1).Insert xlToRight
    MsgBox .Columns(0).Address, , "Colonne 0"
End With
End Sub
A+
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, laurent950, mapomme, Roblochon, Modeste geedee, job75

job75
Pour info, erreur 1004 sur cette ligne
MsgBox .Columns(0).Address, , "Colonne 0"
testé sur 2003 et 2010

Plante toujours, mais j'y vois plus clair ;)
VB:
Sub Test2()
With ActiveSheet.UsedRange
    .Rows(1).Insert
    MsgBox .Rows(0).Address(4, 4, xlR1C1), , "Ligne 0"
    .Columns(1).Insert
    MsgBox .Columns(0).Address, , "Colonne 0"
End With
End Sub
Maintenant pourquoi ca "passe" avec Rows mais pas avec Columns?

EDITION: Ca plantait sur une feuille vide.
Ce n'est plus le cas, si on s'absous du vide
Désolé pour le dérangement.
 

Staple1600

XLDnaute Barbatruc
Re

On est bien d'accord que c'est pour du faux, non ? ;)
On écrit 0 mais on constate 1
VB:
Sub Test3()
With ActiveSheet.UsedRange
    .Rows(1).Insert xlDown
    MsgBox .Rows(0).Address(4, 4, xlR1C1) & Chr(13) & .Rows(0).Row, , "Ligne 0"
    .Columns(1).Insert xlToRight
    MsgBox .Columns(0).Address(4, 4, xlR1C1) & Chr(13) & .Columns(0).Column, , "Colonne 0"
End With
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088