Discussion :

[kedas]

Salut a tout le forum

J'essaye depuis un bon bout de temps d'effectuer quelques opérations dans des boucles mais en vain.

1- Multiplication

je dois effectuer la multiplication d'une cellule d'une feuille de mon classeur avec le contenu d'une autre qui est contenu dans une boucle. Voilà ce que j'ai jusqu'à present :

Code :

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

Sheets("Etats").Range("E" & i).FormulaLocal = "=(Sheets("Etats").Range("D",Range("D" & i))*'" & TextBox1 & "'!D4"

2- Somme

Je dois effectuer la somme de B12 à la dernière cellule vide de la colonne B et mettre le résultat dans la ligne suivante.

Pour ces deux problèmes, je me casse la gueule depuis quelques temps deja.

Quelqu'un aurait-il une piste pour moi ?

Merci d'avance

[Gorfael]

Salut a tout le forum

J'essaye depuis un bon bout de temps d'effectuer quelques opérations dans des boucles mais en vain.

1- Multiplication

je dois effectuer la multiplication d'une cellule d'une feuille de mon classeur avec le contenu d'une autre qui est contenu dans une boucle. Voilà ce que j'ai jusqu'à present :

Code :

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

Sheets("Etats").Range("E" & i).FormulaLocal = "=(Sheets("Etats").Range("D",Range("D" & i))*'" & TextBox1 & "'!D4"

2- Somme

Je dois effectuer la somme de B12 à la dernière cellule vide de la colonne B et mettre le résultat dans la ligne suivante.

Pour ces deux problèmes, je me casse la gueule depuis quelques temps deja.

Quelqu'un aurait-il une piste pour moi ?

Merci d'avance

Salut
P'vez répéter la question ?!?
ta formule :

Code :

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

Sheets("Etats").Range("E" & i).FormulaLocal = "=(Sheets("Etats").Range("D",Range("D" & i))*'" & TextBox1 & "'!D4"

mélange tout : du code VBA et un semblant de formule

Sheets("Etats").Range("D",Range("D" & i)) : définit une plage de "D" ??? à Di => peut pas être multiplier par un facteur quelconque

Explique clairement ce que tu veux faire :
- peut-être inserer une formule ? mais laquelle et où ?
- effectuer un calcul ?

1- Multiplication

Code :

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

Sheets("Etats").Range("E" & i) = Sheets("Etats").range("D" & I)*sheets(textbox1).range("D4")

inscrit en Ei de états le résultat de la multiplication de Di de états par D4 de la feuille sélectionnée dans textbox1

Code :

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

Sheets("Etats").Range("E" & i).formulalocal = "=('Etats'!D" & I)*(' & textbox1 & "'!D4)"

la même chose, sauf qu'on met la formule de calcul au lieu du résultat

2- Somme


Je dois effectuer la somme de B12 à la dernière cellule vide de la colonne B et mettre le résultat dans la ligne suivante.

Code :

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

range("B65536").end(xlup).offset(1,0) = WorksheetFunction.Sum(Range("B12:B" & range("B65536").end(xlup).row))

A+

[kedas]

Salut
P'vez répéter la question ?!? ...........
Explique clairement ce que tu veux faire :
- peut-être inserer une formule ? mais laquelle et où ?
- effectuer un calcul ?

Salut Gorfael

Merci pour ton aide toujours aussi précieuse.

1- Multiplication

En fait j'ai un userform qui me permet de créer des feuilles. Pour chaque feuille créer, je prélève des données dans des cellules de la nouvelle feuille créer pour y effectuer des calculs dans la feuille de synthèse, ici nommée "Etats".
Chaque feuille créer incrémente la liste dans la feuille "Etats",
colonne ARTICLE (B), valeur = textbox1
colonne QUANTITÉ (C), valeur = textbox1!C4
colonne MONTANT (D), valeur = QUANTITÉ * ' " & TextBox1 & " '!D4"

2- Somme



J'espère avoir été un peu plus clair

A bientôt

[Gorfael]

Salut kedas et le forum

pas encore sur, mais ça se précise

colonne ARTICLE (B), valeur = textbox1
colonne QUANTITÉ (C), valeur = textbox1!C4
colonne MONTANT (D), valeur = QUANTITÉ * ' " & TextBox1 & " '!D4"

Ce que je comprends :
Textbox1 = nom de l'onglet que tu dois mettre en colonne B à la dernière ligne vide de B de Etats en partant du bas
à cette même ligne en C, une reprise de la valeur de C4 de l'onglet défini par TextBox1 (comme un collage avec liaison)
idem pour D4 en colonne D

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Cel as range
'.......
set Cel = Sheets("Etats").range("B65536").end(xlup).offset(1,0)
'cel à B première ligne vide
cel = TextBox1
'B
cel.offset(0,1).formulalocal = "='" & TextBox1 & "'!C4"
'C
cel.offset(0,2).formulalocal = "='" & TextBox1 & "'!D4*C" & cel.row
'D
'..............

Normalzmznt, ça fera ce que je crois avoir compris
A+

[kedas]

Salut Gorfael

Cette fois ci c'est la bonne.
J'ai essayé ton code avec une toute petite adaptation et tout
va mieux maintenant. You are the

Mais une toute petite précision. Comment faire une opération de soustraction entre deux cellules. J'ai essayé plusieurs combinaisons mais toujours rien.
Par exemple : cel.offset(0,7).formulalocal = "=G-H" & cel.row

Merci encore pour ton aide

[Jean-Philippe André]

bonjour,
il te manque le chiffre après le G
ca donnerait
cel.offset(0,7).formulalocal = "=G" & cel.row & "-H" & cel.row

[kedas]

Salut jpcheck

Merci pour le coup de pouce
Il m'a été d'une très grande utilité.

Merci encore à Gorfael
Tout va bien Maintenant
A+