Discussion :

[Quentinou]

Bonjour,
Je suis complètement novice en VBA, et j'ai besoin de rajouter des infos dans la colonne se situant juste après la dernière colonne occupée d'un document (dont je ne connais pas le nombre de colonnes à l'avance). J'ai pas mal cherché sur internet et rien que pour donner une entête à la colonne concernée j'y arrive paaaaaas... voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim NbColonnes As Long
NbColonnes = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range(NbColonnes + 1 & "1") = "note du dossier"

Excel me dit "La méthode 'Range' de l'objet '_Global' a échoué". Apparemment le code pour compter le nombre de colonnes est bon, je l'ai testé en mettant juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim NbColonnes As Long
NbColonnes = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range("A1") = NbColonnes

Merci d'avance !

[Docmarti]

Bonjour Quentinou;

Voici ce que propose Jacques B. sur son excellent site;

http://boisgontierjacques.free.fr/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub dernièreligneFeuille()
   Cells.Find("*", , , , xlByRows, xlPrevious).Select
End Sub
 
Sub dernièreColonneFeuille()
   Cells.Find("*", , , , xlByColumns, xlPrevious).Select
End Sub
 
Sub IntersectionDerLigneColonneFeuille()
   Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, Cells.Find("*", , , , xlByColumns,       xlPrevious).Column).Select
End Sub

C'est la meilleure technique selon moi.

[defluc]

En gardant ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim NbColonnes As Long
  NbColonnes = ActiveSheet.Range("A1").CurrentRegion.Columns.Count
  Cells(1, NbColonnes).Value = "note du dossier"

[Quentinou]

Super, merci beaucoup à tous les deux !