Incrémenter une formule si une plage de cellule n'est pas vide [Résolu]
A voir également:
- Incrémenter une formule si une plage de cellule n'est pas vide
- [EXCEL] Protéger plage de cellules ✓ - Forum - Visual Basic 6
- Formule de multiplication entre deux cellules excel par VBnet ✓ - Forum - VB.NET
- Somme d'une plage de cellule variable ✓ - Forum - VBA Office (Excel, Word ...)
- Renvoie d'une plage de cellule dans une listbox ✓ - Forum - Visual Basic
- Sélection d'une plage de cellules variable en colonnes et lignes ✓ - Forum - VBA Office (Excel, Word ...)
6 réponses
Merci pour l'aide apportée ... je réponds tardivement mais en cherchant un peu + ton aide j'ai trouvé ma solution !
Merci encore !
Merci encore !
Salut
Tes explications ne veulent rien dire.
Relis-toi
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Tes explications ne veulent rien dire.
Relis-toi
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Bonsoir,
Effectivement y'a un bout de phrase qui manque ... donc je reprécise :
J'ai une plage de cellules, dans Excel, disons A2:A5 où l'utilisateur fait ou non une saisie.
Dans le cas où une saisie est faite dans la plage, je souhaite qu'en A1 soit incrementé la formule somme(A2:A5). Si la plage est vide, alors je souhaite que A1 soit également vide (et donc ne contenant pas de formule).
Ai je été suffisamment précis ? sinon faut me le dire et je re-préciserais
Merci de votre aide ....
A+
Effectivement y'a un bout de phrase qui manque ... donc je reprécise :
J'ai une plage de cellules, dans Excel, disons A2:A5 où l'utilisateur fait ou non une saisie.
Dans le cas où une saisie est faite dans la plage, je souhaite qu'en A1 soit incrementé la formule somme(A2:A5). Si la plage est vide, alors je souhaite que A1 soit également vide (et donc ne contenant pas de formule).
Ai je été suffisamment précis ? sinon faut me le dire et je re-préciserais
Merci de votre aide ....
A+
En tâtonnant un peu j'ai réussi à faire fonctionner cela :
Private Sub Worksheet_Change(ByVal Target As Range)
Set maplage=range("A2:A5")
If Application.CountA(maplage) <> 0 Then
Range("A1").Formula = "=sum(A2:A5)"
End If
End sub
... mais la solution n'est que partielle puisque si maplage devient vide, la formule reste incrémentée en A1 ...
Private Sub Worksheet_Change(ByVal Target As Range)
Set maplage=range("A2:A5")
If Application.CountA(maplage) <> 0 Then
Range("A1").Formula = "=sum(A2:A5)"
End If
End sub
... mais la solution n'est que partielle puisque si maplage devient vide, la formule reste incrémentée en A1 ...
"Dans le cas où une saisie est faite dans la plage"
Tu veux dire "Dans le cas où toutes les cellules de la plage ont été renseignées"
"je souhaite qu'en A1 soit incrementé la formule somme(A2:A5)"
Qu'est qu'une incrémentation vient faire la dedans ?
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Tu veux dire "Dans le cas où toutes les cellules de la plage ont été renseignées"
"je souhaite qu'en A1 soit incrementé la formule somme(A2:A5)"
Qu'est qu'une incrémentation vient faire la dedans ?
Dim maCellule As Range
Dim bFlag As Boolean
For Each maCellule In Range("A1:A5")
If maCellule.Value = "" Then
bFlag = True
Exit For
End If
Next
If bFlag Then
Range("A1").Value = ""
Else
Range("A1").Formula = "=tralala"
End If
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)