Macro simple mais il me manque quelque chose :-)

[debutexcel111]

Bonjour,

J'essaie de créer une macro mais je voudrais l'automatiser quelque soit la position de ma cellule, en C30 ou C34 par exemple.

mon fichier est du type :

10
4
32
41
14
5

Dans les cellules à droite de chaque nombre je veux rentrer la formule (=100/le nombre), puis additionner l'ensemble de ces résultats sur la cellule du dessous ce qui donnerait le résultat suivant :

10 10
4 25
32 3,125
41 2,43902439
14 7,142857143
5 20
67,70688153

Mon problème c'est que je ne sais pas comment indiquer à excel que j'aimerai faire cela qu'il y a ait 10 20 ou 30 nombres.

Merci de votre aide

 

[JBARBE]

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 !

 

[camarchepas]

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

 

[debutexcel111]

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

 

[camarchepas]

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.

 

[laurent950]

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

 

[debutexcel111]

Re : Macro simple mais il me manque quelque chose 🙂

Effectivement 🙂
Je te remercie de ton aide