Discussion :

[Wyz_Ken]

Bonjours à tous.

Mon besoin est d' activer la première cellule de la première ligne vide d' un tableau. ( celui-ci contient du texte importé )

Voici le code:

Code :

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

1
2
3
4
5
6
Sub Bouton1_Clic()
Dim LVide As Long
    For LVide = Début To 10000
        If IsEmpty(Cells(Ligne, Col)) Then Exit For .Select       
    Next LVide
End Sub

Lors de l' exécution, la boite de dialogue d' erreur apparait, et me dit qu' il y a une erreur de syntaxe et le curseur surligne le point qui précède Select.
Je tiens tous d' abord à signaler que je suis débutant, donc merci de ne pas m' insulter parce que ma procédure peut ne rien vouloir dire.

Merci.

[Invité]

Bonjour,

Vous pouvez regarder ici :

http://www.developpez.net/forums/d33...uille-calculs/

à adapter en cas de besoin si vous avez plus de 65536 lignes ce qui était le maximum avant la version 2007.

Sinon cette modification devrait faire que cela fonctionne (mais c'est à titre informatif) car ce n'est pas la meilleur solution, surtout pour la rapidité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Bouton1_Clic()
Début = 1
col = 1
Dim LVide As Long
For LVide = Début To 10000
If IsEmpty(Cells(LVide, col)) Then
Rows(LVide).Select
Exit For
End If
Next LVide
End Sub

[Wyz_Ken]

Bonjour Jacques Jean,

Je viens de faire un test, plutôt intéressant, sauf que cela ne fonctionne que sur la première colonne. Mais ce qui est intéressant, c' est l' approche.

Je vais travailler là dessus, je vous tiens au courant.

[Wyz_Ken]

Héhé!

J' ai remplacé:

col=1

Par

col=2

et ça fonctionne dans le sens où j' obtient ma première ligne vide, mais cela est dû à la mise en forme du tableau, je cherche une solution plus général... AD'tal