Identifier une liste de cellules différentes

PrinceCorwin

XLDnaute Occasionnel

• 14 Novembre 2012

• #2

Re : Identifier une liste de cellules différentes

Bonjour,

Le résultat attendu doit être concaténé dans une seule cellule ou dans autant de celulles (Haut-Bas; Gauche-Droite) que de valeurs non nulles ?

sinon une petite fonction

Code:

Function DenombreCellule(ByVal target As Range) As String
temp = ""
For Each xcel In target
    If Not IsEmpty(xcel) Then
        If temp = "" Then
            temp = xcel.Address
        Else
            temp = temp & ", " & xcel.Address
        End If
    End If
Next
DenombreCellule = temp
End Function

@+

 

Dernière édition: 14 Novembre 2012

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2012

• #3

Re : Identifier une liste de cellules différentes

Bonjour à tous,

une solution par macro

à+
Philippe

 

Pièces jointes

• 111.xlsm

  17.2 KB · Affichages: 53
• 111.xlsm

  17.2 KB · Affichages: 53
• 111.xlsm

  17.2 KB · Affichages: 59

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2012

• #4

Re : Identifier une liste de cellules différentes

Re,

une autre solution par mise en forme conditionnelle

à+
Philippe

 

Pièces jointes

• 111.xlsm

  17.7 KB · Affichages: 50
• 111.xlsm

  17.7 KB · Affichages: 57
• 111.xlsm

  17.7 KB · Affichages: 57

Vote positif 0 Vote négatif

cjob

XLDnaute Nouveau

• 14 Novembre 2012

• #5

Re : Identifier une liste de cellules différentes

Je vous remercie.
a+,
Cédric.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2012

• #6

Re : Identifier une liste de cellules différentes

Re,

avec ce code pour supprimer les signes "$" dans le message affiché

Code:

Sub Macro1()
Dim cellule As Range
Dim texte
texte = "les cellules contenant une valeur supérieure à zéro se situent en " & vbCr
For Each cellule In Range("A1:A" & Range("A65535").End(xlUp).Row)
If cellule > 0 Then texte = texte & Replace(cellule.Address, "$", "") & ", "
Next cellule
MsgBox (texte)
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

cjob

XLDnaute Nouveau

• 14 Novembre 2012

• #7

Re : Identifier une liste de cellules différentes

Comment as-tu paramétré la mise en forme conditionnelle pour que les cellules s'affichent en vert ?

 

Vote positif 0 Vote négatif

PrinceCorwin

XLDnaute Occasionnel

• 15 Novembre 2012

• #8

Re : Identifier une liste de cellules différentes

Bonjour,
phlaurent,

Tu sélectionne toutes tes valeurs, mise en forme conditionnelle et tu entres la formule :

Code:

=$A1>0

dans format tu mets une couleur de fond (Motif ou Remplissage) et le tour et joué

Bonne journée

 

Vote positif 0 Vote négatif