Correction code dernière colonne vide

[lutha]

Bonjour !

Alors j'aimerais trouver un code pour atteindre la dernière colonne vide en connaissant le numéro de la ligne.
Je voudrais ranger une donnée venant d'un TextBox dans cette cellule.
Actuellement voilà ce que j'ai trouvé:

Private Sub ok_Click()
If ComboBox1.Value = "Benfiquih" Then
Sheets("Benfiquih").Activate
num = Cells(2, Columns.Count).End(xlToLeft).Column + 1
Range(num & "2").Value = TextBox2.Value
Call MiseZero
End If
End Sub

Il y a un soucis sur la ligne de Range. je n'arrive pas à comprendre lequel. Sachant que si je retire le "num=..etc" et que je met une cellule fixe tout marche bien.

j’espère avoir été assez claire et précise. je vous remercie par avance de votre aide !

Bonne journée à vous

 

[Pierrot93]

Re : Correction code dernière colonne vide

Bonjour,

essaye ceci :

num = Cells(2, Columns.Count).End(xlToLeft).Column + 1
 Cells(2, num).Value = TextBox2.Value

bon après midi
@+

 

[lutha]

Re : Correction code dernière colonne vide

Super ça marche très bien ! Je te remercie !

Comment savoir si il faut utiliser Cells ou Range ? Quelle difference ?

 

[Pierrot93]

Re : Correction code dernière colonne vide

Re,

En principe "range" nécessite une lettre pour identifier la colonne, la propriété "column" renvoyant le numéro de la colonne, comme tu connais le numéro de ligne utilise "cells" dont les 2 arguments sont des nombres...