pb simple pr connaisseur en VBA

Question

Slt 
Mon pb est simple pour ceux qui s'y connaisse en VBA

Une colonne de 10 case genre Range("A1:A10"), dans ces 10 cellules des valeurs positives ou negative.

Questions: comment selectionner que les valeurs negatives pour les avoir sur ma feuille excel comme si je les avais selectionner avec la touche CTRL en foncé.

Je débute en VBA.

Merci pour les reponse rapide car c'est pour le boulot et je suis limité dans les delais

Merci

Utilisateur anonyme · Answer

Bonjour,

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

Utilisateur anonyme · Answer

re :


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 :-)

Pb simple pr connaisseur en VBA

2 réponses

Discussions similaires

Newsletters