afficher les cellules non vide

[Ilino]

BONJOUR FORUM ET JOYEUX NOEL
Je souhaiterai afficher sur la cellule Y31 toutes les Num lignes des cellules NON VIDE
De la colonne H33 au H 231
grazie

 

[CISCO]

Re : afficher les cellules non vide

Bonjour

Est-ce que tu veux que tous les n° de lignes soient affichés dans la même cellule, ou les uns en dessous des autres ?

@ plus

 

[Ilino]

Re : afficher les cellules non vide

Bonjour

Est-ce que tu veux que tous les n° de lignes soient affichés dans la même cellule, ou les uns en dessous des autres ?

@ plus

Bonjour CISCO
MERCI , je souhaiterai sur la meme cellule
A+

 

[job75]

Re : afficher les cellules non vide

Bonjour Ilino, CISCO, le forum,

Mettre dans un module standard ce code :

Function LignesNonVides$(r As Range, sep$)
For Each r In r
  If r <> "" Then LignesNonVides = LignesNonVides & sep & r.Row
Next
LignesNonVides = Mid(LignesNonVides, 2)
End Function

Et entrer en Y31 la formule :

=LignesNonVides(H31:H231;"-")

Ou avec le séparateur CAR(10) :

=LignesNonVides(H31:H231;CAR(10))

mettre la cellule Y31 au format "Renvoyer à la ligne automatiquement".

Joyeux Noël à tous.

Edit : joyeux Noël Jean-Marie 🙂

A+

 

[Staple1600]

Re : afficher les cellules non vide

Bonjour à tous


Ceci devrait faire l'affaire.

Sub Macro1()
Dim vide As Range, c As Range, x$
On Error Resume Next
Set vide = Range("H33:H231").SpecialCells(xlCellTypeBlanks)
For Each c In vide
x = x & c.Row & ";"
Next c
Range("Y31") = x
End Sub

EDITION: Bonjour Job75 😉

EDITION II: Je viens de m'apercevoir que mon code fait le contraire de la demande (sans doute un effet de lendemain de réveillon)
C'est pas grave la proposition de job75 étant là, je retourne me réveiller.

EDITION III: Par acquis de conscience, je publie quand même une macro corrective

Sub Macro2()
Dim plg As Range, c As Range, x$
Set plg = Range("H33:H231")
For Each c In plg
If Not IsEmpty(c) Then
x = x & c.Row & ";"
End If
Next c
Range("Y31") = Left(x, Len(x) - 1)
End Sub

 

[job75]

Re : afficher les cellules non vide

Re, j'ai déjà salué JM dans mon Edit,

Si la numérotation des lignes commence en H31 :

Function LignesNonVides$(r As Range, sep$)
Dim n&
n = r.Row - 1
For Each r In r
  If r <> "" Then LignesNonVides = LignesNonVides & sep & r.Row - n
Next
LignesNonVides = Mid(LignesNonVides, 2)
End Function

A+

 

[Ilino]

Re : afficher les cellules non vide

RE merci pour tous le monde
@ job : ça fonction tres bien mais je souhaiterai afficher le num de la ligne qui commence de 33 dans votre cas la numerotation elle commence de 1 ???
grazie

 

[Ilino]

Re : afficher les cellules non vide

re
j'ai modifié
" n = r.Row - 31" EST LE SOUCI REGLE
A+

 

[job75]

Re : afficher les cellules non vide

@ job : ça fonction tres bien mais je souhaiterai afficher le num de la ligne qui commence de 33 dans votre cas la numerotation elle commence de 1 ???

Ben j'ai donné 2 solutions Ilino 🙄

A+

 

[Ilino]

Re : afficher les cellules non vide

😱😱😱😱😱😱😱😱😱😱😱😱😱😱😱😱😱
😱😱😱😱😱😱😱 Joyeux Noël à tous.😱😱😱😱😱😱😱
😱😱😱😱😱😱😱😱😱😱😱😱😱😱😱😱😱