Insérer colonne et la remplir

[musat]

Bonsoir,

Mon problème est simple.
Dans une feuille je cherche à insérer une colonne avant la colonne A et lui donner COMPTE comme titre et numéroter les cellules au-dessous de 1 jusqu'à la dernière cellule remplie de la colonne A déplacée en B

Merci d'avance

 

[@+Thierry]

Salut Musat,

Enfin un truc simple et logique, clairement demandé... Pas de problème...

Sub InsertColNumero()
Dim i As Integer
Dim DerLigne As Integer
Dim Num As Integer
Columns("A:A").Insert
Range("A1").Value = "COMPTE"
DerLigne = Range("B65536").End(xlUp).Row
Num = 1
For i = 2 To DerLigne
Cells(i, 1).Value = Num
Num = Num + 1
Next i
End Sub

Bonne Soirée
@+Thierry

 

[Cyber PAPY]

je pense que ceci devrait faire l'affaire

Sub inserer()

Columns("A:A").Insert
Range("A1") = "COMPTE"
For i = 2 To Range("B65536").End(xlUp).Row
Cells(i, 1) = i - 1
Next i
End Sub


Bonne utilisation
Cyber PAPY

 

[Cyber PAPY]

Bouh!........... :-(((

Thierry a été plus rapide que moi et avec le même code en plus....
J'ai encore des progrès à faire.

Dis Thierry
Pourquoi faut il dimensionner les variables?

 

[musat]

ReBonsoir,

Merci Thierry et Cyber PAPY

C'est parfait, ça marche très bien

A très bientôt

 

[A_Binouze_Drinker_Among_Others]

With Columns("A:A")
.Insert
Range("A1").Value = "Titre1"
Range(Cells(2, 1), Cells(Range("B65536").End(xlUp).Row, 1)).Formula = "=row()-1"
End With

l'inconvénient peut-être c'est que c'est une formule

 

[@+Thierry]

Bonsoir

Impressionnant STéph !!

bonne nuit et bonne Binouze !
@+Thierry