En fait je ne sais pas si tu fait ton action a partir d'un bouton, doit tu faire écrire le résultat de C de toutes les lignes correspondantes de A et B car si c'est oui.
Tu n'a pas besoin de VBA pour faire ça excel sait très bien le faire.
Mais si tu veux le faire a la demande avec une textbox par exemple alors c'est différent tu peux utiliser VBA.
Deux petits exemple :
Sans VBA :
il te suffit d'entrer cette formule dans la cellule de C puis de l'etendre dans les autres :
=SI(ESTVIDE(B!A1);0;A!A1-B!A1)
si c'est avec vba alors dis moi en plus sur la façon dont tu veux effectuer ce calcul et la rechercher.
Mais je te donnes un exemple quand meme :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
'ça c'est pout faire ta recherche a partir d'une combobox1 en tapant la valeur recherchée dedans
On Error Resume Next
With Sheets("A").Columns(1)
.Find(What:=TextBox1.Text, LookIn:=xlValues, SearchDirection:=xlNext, _
SearchOrder:=xlByRows, MatchCase:=False).Select
End With
On Error GoTo 0
'ça sa te donne le nbre de la ligne et de la colonne recherchée
L = ActiveCell.Row
c = ActiveCell.Column
Sheets("C").Select
'calcul en prenant en compte le fait que si la cellule concernée en B est vide alors en C = 0
If Sheets("B").Cells(L, c).Value = "" Then
Sheets("C").Cells(L, c).Value = 0
Else
Cells(L, c).Value = Sheets("A").Cells(L, c).Value - Sheets("B").Cells(L, c).Value
End If |
Voila
j'espère que sa t'aide plus
a+
Partager