Range avec indice de colonne variable

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:

---

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:

---

1 2 3

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

---

Merci d'avance !

Bonjour Quentinou;

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

http://boisgontierjacques.free.fr/

Code:

---

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.

En gardant ton code

Code:

---

1 2 3

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

---

Super, merci beaucoup à tous les deux ! :D