Discussion :

[abdess18]

bonjour
je suis bloqué sur code de VBA je cherche a faire des somme à partir de leur date correspondante on utilisant la commande "cells.find" apres je fait la somme des cellules en ligne juste on bas de la cellule de la date chercher
le problème qui ce pose c'est après la recherche la cellule active c'est celle que XL trouve donc il me met la valeur de la somme dans cette cellule active et moi je veux cette somme dans une autre cellule.
voila mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton2_Click()
Dim x As Variant
Range("GW9").Activate
ActiveCell.FormulaR1C1 = InputBox("entrez la date de Révision (mm/aaaa)")
Cells.Find(What:=Range("GW09"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
x = ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[1]C[15])"
x = Range("GT09").Value
 
End Sub

j'espère que je suis clair
merci

[zyhack]

Bonjour abdess18

En utilisant ton code il faut que tu modifis cette ligne

Code :

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

x = ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[1]C[15])"

pour utiliser une instruction de décallage .Offset(ligne, colonne)

si tu veux décaler l'écriture de deux colonnes vers la doite

Code :

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

x = ActiveCell.Offset(0,2).FormulaR1C1 = "=SUM(R[1]C:R[1]C[15])"