E ennida XLDnaute Junior 18 Novembre 2010 #1 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
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
K kjin XLDnaute Barbatruc 18 Novembre 2010 #2 Re : Arrêter une boucle à la fin de la plage Bonjour, Peut-être comme ceci Code: 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 Vote positif 0 Vote négatif
Re : Arrêter une boucle à la fin de la plage Bonjour, Peut-être comme ceci Code: 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
E ennida XLDnaute Junior 18 Novembre 2010 #3 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 ; Vote positif 0 Vote négatif
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 ;
K kjin XLDnaute Barbatruc 18 Novembre 2010 #4 Re : Arrêter une boucle à la fin de la plage Re, le nb de lignes de ton tableau Code: nblignes = [tableau1].Rows.Count A+ kjin Vote positif 0 Vote négatif
Re : Arrêter une boucle à la fin de la plage Re, le nb de lignes de ton tableau Code: nblignes = [tableau1].Rows.Count A+ kjin
E ennida XLDnaute Junior 18 Novembre 2010 #5 Re : Arrêter une boucle à la fin de la plage Merci c'est exactement ce dont j'avais besoin. Bonne journée Vote positif 0 Vote négatif
Re : Arrêter une boucle à la fin de la plage Merci c'est exactement ce dont j'avais besoin. Bonne journée