Discussion :

[Tomme]

Bonjour,

j'ai un petit problème à vous soumettre :

* Je souhaite réaliser une macro pour effectuer une opération toute simple sur une colonne entière. Mais si j’écris

Code :

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

Range("O:O").FormulaR1C1 = "=RC[-11]-RC[-9]"

La soustraction s'éffectue sur les 60.000 lignes que compte une page excel !
ce qui n'est pas mon souhait !

* Je voudrais pouvoir effectuer ma soustraction seulement sur les lignes que j'utilise (entre 800 et 2000 suivant le fichier sur lequel est appliqué la macro)

Merci pour toute aide !

[Swiper]

Peut être en utilisant l'outil ".End"

Code :

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

Range("O:O").End(xlDown).FormulaR1C1 = "=RC[-11]-RC[-9]"

Code non testé, mais qui doit marcher.

[mordrhim]

au lieu de le faire pour la colonne tu le fait pour toutes les lignes du tableau que tu veux remplir.

pour trouver la derniere ligne du tableau d'autre sujet sont la pour expliquer comment faire.

après tu fais :

Code :

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

1
2
3
For i = PremiereLigne to DerniereLigne
    Range("O" & i).FormulaR1C1 = "=RC[-11]-RC[-9]"
Next

PremiereLigne : a changer par la premiere ligne du tableau
Derniereligne : à changer par la derniere ligne du tableau

personnellement, si le tableau a une colonne forcément pleine (un clé), je fait une boucle avec

Code :

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

1
2
3
4
5
i = 1
Do while cells(i,ColonneTest) <> Empty
    Range("O" & i).FormulaR1C1 = "=RC[-11]-RC[-9]"
    i = i + 1
Loop

Attention, il faut être sur que le tableau est rempli pour TOUTES les lignes de la colonne ColonneTest

[Swiper]

Je me corrige :

Code :

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

1
2
range("O1").select
Range(selection,columns(15).End(xlDown)).FormulaR1C1 = "=RC[-11]-RC[-9]"

[Tomme]

Merci pour vos réponses,

mordrhim, j'ai tester votre boucle Do Loop et ça marche très bien !

Mais j'ai un autre problème qui se profile !

la colonne ainsi crée (colonne "N" remplie d'un millier de valeurs), je voudrais la tracer dans un graphe en fonction de la colonne "B" (Cette colonne "B" contient une série de nombre croissant incrémenté de 60 en 60, et cette colonne contient autant de points que "N", soit un millier)

je pensais écrire :

Code :

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

1
2
3
4
5
Charts.Add
        ActiveChart.ChartType = xlLine
        ActiveChart.SetSourceData Source:=Sheets("Resultats").Range("N:N"), PlotBy:=xlColumns
        ActiveChart.SeriesCollection(1).XValues = Sheets("Resultats").Range("B:B")
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"

Mais de nouveau le tracé s'effectue sur les 65.000 points que compte Excel !!
Je ne comprend pas pourquoi (alors que les colonnes de 1000 à 65.000 sont vide), Excel continu de penser qu'i y a 65.000 lignes dans mon tableau.

Comment faire comprendre une fois pour toute à Excel que je n'ai pas 65.000 lignes ?

ou si ce n'est pas possible, comment tracer convenablement mon graph ?

Merci d'avance