V
Vincent
Guest
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
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
