A voir également:
- Pb simple pr connaisseur en VBA
- Iphone 14 simple - Guide
- Simple pdf - Télécharger - PDF
- Simple ocr - Télécharger - Bureautique
- Simple file locker - Télécharger - Sécurité
- Simple comic - Télécharger - Vie quotidienne
2 réponses
Bonjour,
voici une suggestion :
Lupin
voici une suggestion :
Sub SelecNegatif()
Dim Plage As Range
Dim Cellule As Range
Dim Chaine As String
Set Plage = Range("A1:A10")
Chaine = ""
For Each Cellule In Plage
If (Cellule.Value < 0) Then
Chaine = Chaine & Cellule.Address & ","
End If
Next
Chaine = Mid(Chaine, 1, Len(Chaine) - 1)
Range(Chaine).Select
End Sub
Lupin
re :
n.b. ne savant pas s'il s'agissait d'entier ou de nombre réel,
j'ai typé la variable [ Somme] de type [ Double ]. S'il ne s'agit
que d'entier, le type [ Long] sera largement suffisant.
C'est toujours un plaisirs lorsqu'on reçoit une réponse positive.
Lupin
Gentleman non-cambrioleur
Poir vous servir :-)
Sub SelecNegatif()
Dim Plage As Range
Dim Cellule As Range
Dim Chaine As String
Dim Somme As Double
Set Plage = Range("A1:A10")
Somme = 0
Chaine = ""
For Each Cellule In Plage
If (Cellule.Value < 0) Then
Chaine = Chaine & Cellule.Address & ","
Somme = Somme + Cellule.Value
End If
Next
Chaine = Mid(Chaine, 1, Len(Chaine) - 1)
Range(Chaine).Select
MsgBox Somme
End Sub
n.b. ne savant pas s'il s'agissait d'entier ou de nombre réel,
j'ai typé la variable [ Somme] de type [ Double ]. S'il ne s'agit
que d'entier, le type [ Long] sera largement suffisant.
C'est toujours un plaisirs lorsqu'on reçoit une réponse positive.
Lupin
Gentleman non-cambrioleur
Poir vous servir :-)
ca marche G un peu galerer pour l'incorporer dans mon programme mais c'est bon
Encore un gd merci reste plus qu'a comprendre chaque ligne et le tour sera jouer.
Dis moi au passage tu saurais pas comment je pourrais faire pour additionner toutes les cellules selectionner?
Ca serais cool. Dure dure vba qd on en as jamias fait, c'est ps evident d'apprendre rien qu'avec des livres.
A plus et encore merci