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.
j'espère que je suis clair
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
merci
Partager