Arrêter une boucle à la fin de la plage

[ennida]

Bonjour,

je souhaite arrêter ma boucle à la fin de ma zone nommée Tableau1.

Un grand merci par avance




Dim i As Long
Range("k2").Select

For i = 1 To 65000

If ActiveCell = "" Then
ActiveCell.FormulaR1C1 = "=Tableau1[[#This Row],[LIBELLE_FOURNISSEUR]]"

ActiveCell.Offset(1, 0).Range("a1").Select
Else

ActiveCell.Offset(1, 0).Range("a1").Select
End If
Next i

 

[kjin]

Re : Arrêter une boucle à la fin de la plage

Bonjour,
Peut-être comme ceci

Dim i As Long
For i = 2 To Range("K65000").End(xlUp).Row
If Range("k" & i) = "" Then Range("k" & i).FormulaR1C1 = "=Tableau1[i,[LIBELLE_FOURNISSEUR]]"
Next

Note que je ne comprends pas la formule...
A+
kjin

 

[ennida]

Re : Arrêter une boucle à la fin de la plage

Mon compteur doit s'arrêter selon la taille de ma plage qui varie. Donc k65000 ne marche pas.

Ma plage se nomme Tableau1 ;

 

[kjin]

Re : Arrêter une boucle à la fin de la plage

Re,
le nb de lignes de ton tableau

nblignes = [tableau1].Rows.Count

A+
kjin

 

[ennida]

Re : Arrêter une boucle à la fin de la plage

Merci c'est exactement ce dont j'avais besoin.

Bonne journée