XL 2019 ligne et colonne 0

[Mrdreamer39]

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.

 

[laurent950]

Bonsoir
Avec option base 1

cdt

 

[Staple1600]

Bonsoir le fil

En ayant compris autrement la question

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

 

[mapomme]

Bonsoir à tous,

en gros en avoir une de plus

ça peut toujours servir...

Bon, je sors

 

[Modeste geedee]

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 ????

 

[Hasco]

Bonjour chacun,

Dans l'esprit StapelMilSixCentien :

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]

Bonjour à tous,

Les lignes et colonnes zéro existent, je les ai rencontrées :

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+

 

[Staple1600]

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

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.

 

[job75]

Oui JM, dans ma macro du post #7 je viens d'ajouter les xlDown et xlToRight qui vont bien pour les insertions.

 

[Staple1600]

Re

On est bien d'accord que c'est pour du faux, non ?
On écrit 0 mais on constate 1

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

 

[job75]

On est bien d'accord que c'est pour du faux, non ?
On écrit 0 mais on constate 1

Eh oui, tout dépend par rapport à quoi on compte !

 

[Staple1600]

Re

Sauf erreur, Excel nous met sur la piste, non?
Extrait de l'aide Excel

Exemple
Cet exemple montre comment afficher le style de référence en cours.

If Application.ReferenceStyle = xlR1C1Then
MsgBox ("Microsoft Excel is using R1C1 references")
Else
MsgBox ("Microsoft Excel is using A1 references")
End If

Il cause pas de R0C0 ou de A0