Macro simple mais il me manque quelque chose :-)

JBARBE

XLDnaute Barbatruc

• 25 Août 2012

• #2

Re : Macro simple mais il me manque quelque chose 🙂

Bonjour,

Comme toujours un fichier est le bienvenu compte tenu de la confusion de la demande !

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 25 Août 2012

• #3

Re : Macro simple mais il me manque quelque chose 🙂

Bonjour debutexcel111,

Voici une solution possible :

Sub compte()
Dim NbLignes As Long
Dim Tourne As Long
'Résolution derniére ligne contenant une valeur pour la colonne A
NbLignes = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

'Boucle de calcul
For Tourne = 1 To NbLignes
Worksheets("Feuil1").Range("B" & Tourne) = 100 / Worksheets("Feuil1").Range("A" & Tourne)
Next Tourne

'Calcul de la somme
Worksheets("Feuil1").Range("B" & Tourne).FormulaR1C1 = "=SUM(R[-" & Tourne - 1 & "]C:R[-1]C)"

End Sub

 

Vote positif 0 Vote négatif

D

debutexcel111

Guest

• 25 Août 2012

• #4

Re : Macro simple mais il me manque quelque chose 🙂

Merci de vos réponses,

j'ai mis le fichier en pièce jointe, je n'arrive pas à utiliser la formule, peut-être parce que la première ligne n'a pas de valeur sur mon fichier ? j'execute le code cela bloque pour incompatibilité

Donc, les valeurs de la dernière colonne et la somme sont le but recherché, mon fichier à la base n'ayant que les valeurs de l'avant dernière colonne

 

Pièces jointes

• essai14.xlsm

  10.4 KB · Affichages: 34

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 25 Août 2012

• #5

Re : Macro simple mais il me manque quelque chose 🙂

Voici donc l'adaptation de la macro à ton fichier.

Comme quoi le fichier est bien utile pour faire bon du premier coup.

Il suffit d'appuyer sur la touche calcul.

 

Pièces jointes

• Essai14_1.xlsm

  17.5 KB · Affichages: 31

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 25 Août 2012

• #6

Re : Macro simple mais il me manque quelque chose 🙂

Bonjour,

Le code corrigé :

Sub compte()
Dim i, j As Long

'Résolution derniére ligne contenant une valeur pour la colonne A
NbLignes = Range("I65536").End(xlUp).Row

j = 2
'Boucle de calcul
For i = j To NbLignes
Cells(i, 10) = 100 / Cells(i, 9)
Next i

'Calcul de la somme
Cells(i, 10) = "=SUM(R[-" & i - 1 & "]C:R[-1]C)"

End Sub

laurent

 

Vote positif 0 Vote négatif

D

debutexcel111

Guest

• 25 Août 2012

• #7

Re : Macro simple mais il me manque quelque chose 🙂

Effectivement 🙂
Je te remercie de ton aide

 

Vote positif 0 Vote négatif