Référence du résultat d'une somme

[Vincent]

Bijour

Tout d'abord je tien a remercier thiery qui me répond régulièrement et grace a qui je progrese peu a peu en vba.

alors une nouvelle question pour parfaire une fois de plus mon niveau...

Lorsque je fait la somme de 3 cellules et que le resultat se place ds une qatrieme cellule, si je demande de verifier le resultat ds la 4eme cellule, la commande ne fonctionne pas.


Je ve faire la somme de 3 colonnes et ds la quatrieme j’obtiens le résultat. G réussi a faire une boucle pour cela.

Ms ensuite je voudrait que ds la quatrieme colonne, lorsqu’une cellule prend la valeur 3, cette valeure devienne le mot commun :

Voici ma procedure :

For j = 2 To 47
Cells(j, 5).FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
For x = 2 To 47
If Cells(x, 5).FormulaR1C1 = "3" Then
Cells(x, 5).FormulaR1C1 = "commun"
End If
Next x

ms ca ca marche pas....

Autre question :
Ds la réponse que ma fournit thierry concernant mon dernier post g bien compris la procédure qu'il ma fournit, seulement dans le cas exposé il n'y a qu'une variable "MaValeur" initialisé...

Mais dans mon cas je souhaite faire une boucle et qu' a chaque fois cette valeur change :

Sub BoucleVincent() '
' Macro2 Macro
' Macro enregistrée le 08/07/2003 par NEC Computers International
'


Dim MaValeur As String
Dim MaPlage As Range
Dim Cellule As Range
Dim i As Integer

Set MaPlage = Sheets("Visites.519").Range("B3:B9")

For i = 3 To 10
MaValeur = Sheets("comp").Cells(i, 1)



For Each Cellule In MaPlage
If UCase(MaValeur) = UCase(Cellule) Then
Sheets("comp").Select
Cells(i, 1).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("D47").Select
ActiveCell.FormulaR1C1 = "1"
End If
Next Cellule
Windows("projet21.xls").Activate
Next i

End Sub

et ca non plus ca ne marche pas...

Merci d'avance a thierry si il répond ou autres...

Vincent

 

[Ronan]

Bonsoir à tous,

Voici la réponse à ta première question :

Sub Menu()
For j = 2 To 47
Cells(j, 5) = Cells(j, 2) + Cells(j, 3) + Cells(j, 4)
Next j
For x = 2 To 47
If Cells(x, 5) = 3 Then
Cells(x, 5) = "commun"
End If
Next x
End Sub

@+

Ronan

 

[Ronan]

Encore + court

Sub Menu()
For j = 2 To 47
Cells(j, 5) = Cells(j, 2) + Cells(j, 3) + Cells(j, 4)
If Cells(j,5) = 3 Then Cells(j, 5) = "commun"
Next j
End Sub

@+

Ronan

 

[Ronan]

Pour le reste, ce n'est pas très compréhensible.