Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Calcul de moyenne

Calcul de moyenne

1 réponse
Avatar
JPP
Bonjour,


Dans un tableau, avec un nombre de ligne qui peut varier, je voudrais, sur
une même ligne diviser la valeur contenu dans la colonne "H" par la valeur
de la colonne "F" et inscrire le résultat dans la colonne "I".


Les deux codes suivant fonctionne mais bloque après une cinquantaine de
calcul et me retourne le message suivant :


dépassement de capacité


Mais où est donc mon erreur ?

Merci pour le coup de main

A+

Jean-Pierre


sub mamacro1 ()

Num_lignevide = (Range("b65536").End(xlUp).Row + 1)
der_lignenonvide = Num_lignevide - 1


For i = 18 To der_lignenonvide

Range("i" & i) = Range("h" & i) / Range("f" & i)

Next i
End sub

sub mamacro2()

Num_lignevide = (Range("b65536").End(xlUp).Row + 1)
der_lignenonvide = Num_lignevide - 1

For i = 18 To der_lignenonvide

Sheets("ent").Cells(i, 9) = CLng(Sheets("ent").Cells(i, 8)) /
Sheets("ent").Cells(i, 6)

Next i
End sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JPP
extra

Merci

A+

Jean-Pierre

"Ellimac" a écrit dans le
message news: 09e801c35671$c87fae90$
Bonjour,

Le code suivant devrait te convenir :

Sub Toto()
Num_lignevide = Range("h65536").End(xlUp).Row
Range("i18:i" & Num_lignevide).Select
Selection.FormulaR1C1 = "=+RC[-1]/RC[-3]"
End Sub

Camille
-----Message d'origine-----
Bonjour,


Dans un tableau, avec un nombre de ligne qui peut varier,
je voudrais, sur

une même ligne diviser la valeur contenu dans la
colonne "H" par la valeur

de la colonne "F" et inscrire le résultat dans la
colonne "I".



Les deux codes suivant fonctionne mais bloque après une
cinquantaine de

calcul et me retourne le message suivant :


dépassement de capacité


Mais où est donc mon erreur ?

Merci pour le coup de main

A+

Jean-Pierre


sub mamacro1 ()

Num_lignevide = (Range("b65536").End(xlUp).Row + 1)
der_lignenonvide = Num_lignevide - 1


For i = 18 To der_lignenonvide

Range("i" & i) = Range("h" & i) / Range("f" & i)

Next i
End sub

sub mamacro2()

Num_lignevide = (Range("b65536").End(xlUp).Row + 1)
der_lignenonvide = Num_lignevide - 1

For i = 18 To der_lignenonvide

Sheets("ent").Cells(i, 9) = CLng(Sheets("ent").Cells(i,
8)) /

Sheets("ent").Cells(i, 6)

Next i
End sub



.