Besoin d'aide !

[Zodiac35]

Bonjour à tous,

Je me creuse la tête sur un exo et impossible de le résoudre ...Quelqu'un serait-il le faire avec du VBA ??? SVP

'Ecrire une procédure qui permette de parcourir
'toutes les cellules sélectionnées, de manière
'à vérifier pour chacune d'elle si sa valeur est
'un nombre, et dans ce cas, d'ajouter la valeur à
'un total.

'Ce total devra ensuite être affiché dans la barre d'état
'd'Excel.

'Faire en sorte que cette opération se produise automatiquement
'à chaque changement de sélection dans la feuille de clacul
'Feuil1 de ce classeur

Merci beaucoup pour vos réponses !

 

[Modeste geedee]

Re : Besoin d'aide !

Bonsour®

Je me creuse la tête sur un exo et impossible de le résoudre ...Quelqu'un serait-il le faire avec du VBA ??? SVP

'Faire en sorte que cette opération se produise automatiquement
'à chaque changement de sélection dans la feuille de clacul
'Feuil1 de ce classeur

Il s'agit d'utiliser une procédure événementielle ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 '----- ici le code qui va bien
End Sub

'Ecrire une procédure qui permette de parcourir
'toutes les cellules sélectionnées, de manière
'à vérifier pour chacune d'elle si sa valeur est
'un nombre, et dans ce cas, d'ajouter la valeur à
'un total.

for each cell in Selection
'----- ici le contrôle +somme
'-----Total=total+xxx
next

'Ce total devra ensuite être affiché dans la barre d'état
'd'Excel.

application.statusbar=total

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = Application.Sum(Selection)
End Sub

 

[Modeste geedee]

Re : Besoin d'aide !

Bonsour®


cela existe en natif sans macro...
il suffit de regarder la barre d'état dés lors que l'on sélectionne plus d'une cellule

 

[Zodiac35]

Re : Besoin d'aide !

Merci pour votre aide !

Le but était de calculer une somme et si certains chiffres sont une date la macro ne les prend pas en compte.

Je vous joints la solution.

A bientôt

 

[Modeste geedee]

Re : Besoin d'aide !

Bonsour®

quelle solution ...???

https://www.excel-downloads.com/threads/besoin-daide.206538/

déplacer le curseur appuyé entre les 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = Application.Sum(Selection)
End Sub