Divisions - Ensemble de cellules en vba [RESOLU]

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Septembre 2017

• #2

Bonjour Dudesson,

avec ce code

Code:

For i = 4 To Range("G65535").End(xlUp).Row
Cells(i, 14) = Cells(i, 13) / Cells(i, 7)
Next i

à+
Philippe

 

Vote positif 0 Vote négatif

D

Dudesson

Guest

• 13 Septembre 2017

• #3

Parfait parfait.
Une chose s'il vous plaît, j'aimerais comprendre ce que signifie le 'i' après "for" et à quoi (cellule, colonne, ou autre ) renvoie le chiffre 4 juste après.
Merci sincèrement.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Septembre 2017

• #4

Re,

For i = 4 To Range("G65535").End(xlUp).Row

Dans ce cas, I est une variable qui prendra les valeurs successives de 4 ( valeur de la ligne de départ)
jusqu'à
la ligne de la dernière cellule non-vide en colonne G (valeur de la ligne d'arrivée)

Cells(i,14) ---> cellule en ligne I et 14ème colonne
Cells(i,13) ---> cellule en ligne I et 13ème colonne
Cells(i,7) ---> cellule en ligne I et 7ème colonne

à+
Philippe

 

Vote positif 0 Vote négatif

D

Dudesson

Guest

• 13 Septembre 2017

• #5

Merci et bonne soirée.

 

Vote positif 0 Vote négatif

D

Dudesson

Guest

• 16 Septembre 2017

• #6

phlaurent55 à dit:

Re,

For i = 4 To Range("G65535").End(xlUp).Row

Dans ce cas, I est une variable qui prendra les valeurs successives de 4 ( valeur de la ligne de départ)
jusqu'à
la ligne de la dernière cellule non-vide en colonne G (valeur de la ligne d'arrivée)

Cells(i,14) ---> cellule en ligne I et 14ème colonne
Cells(i,13) ---> cellule en ligne I et 13ème colonne
Cells(i,7) ---> cellule en ligne I et 7ème colonne

à+
Philippe

Cliquez pour agrandir...

Bonjour le forum,
Bonjour Philippe,
Je viens de remarquer un petit souci avec le code. Le première fois , le calcul se fait bien mais ensuite pas de mise à jour quand les données sont modifiées.
Merci.
Dudesson.

 

Pièces jointes

• Classeur1.xlsm

  16 KB · Affichages: 39

Vote positif 0 Vote négatif

M

moutchec

XLDnaute Occasionnel

• 16 Septembre 2017

• #7

For i = 4 To Range("G13").End(xlUp).Row
Cells(i, 14) = Cells(i, 13) / Cells(i, 7)
Next i

remplacer G13 par G14 à tester.

 

Vote positif 0 Vote négatif

D

Dudesson

Guest

• 16 Septembre 2017

• #8

Ça marche ! Merci.

 

Vote positif 0 Vote négatif