jja2
XLDnaute Nouveau
Bonjour à tous
J’essaye de faire une boucle if then, mais pas moyens, je ne comprends rien.
Le but est de soustraire la valeur de la cellule "B8" à la sélection "B10:B25"
Sauf si la valeur est de 0.
Les cell "B10:B25" ne sont pas forcément toutes remplies, je veux donc éviter les nbrs négatifs pour ne pas fausser le total qui ce trouve en "B9".
code :
Sub CommandButton1_Click()
If Range("B10:B25") <= 0 Then
Range("B8").Select
Selection.Copy
Range("B10:B25").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract, _
SkipBlanks:=True, Transpose:=False
End If
End Sub
SI quelqu'un à une idée ce serais super !
jja
J’essaye de faire une boucle if then, mais pas moyens, je ne comprends rien.
Le but est de soustraire la valeur de la cellule "B8" à la sélection "B10:B25"
Sauf si la valeur est de 0.
Les cell "B10:B25" ne sont pas forcément toutes remplies, je veux donc éviter les nbrs négatifs pour ne pas fausser le total qui ce trouve en "B9".
code :
Sub CommandButton1_Click()
If Range("B10:B25") <= 0 Then
Range("B8").Select
Selection.Copy
Range("B10:B25").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract, _
SkipBlanks:=True, Transpose:=False
End If
End Sub
SI quelqu'un à une idée ce serais super !
jja