Autres déterminer le rows.count pas si facile que ça

[patricktoulon]

bonjour à tous
je n'arrive pas à déterminer le rows.count d'une plage non contiguë afin de déterminer une variable
quand j'utilise une methode j'ai une sur deux et quand j'utilise la variable range j'ai aussi une sur deux mais pas le bon resultat

Sub testX()
    Dim examen$, rng As Range
    Set rng = [A1,E1,J1]
    'With Range(rng.Cells(1), rng.Cells(rng.Cells.Count))
   ' With Range(rng.Cells(1), rng.SpecialCells(xlLastCell))
     With rng
        If .Rows.Count = 1 Then examen = "par le top"
        If .Rows.Count > 1 Then examen = "par le coté":
        MsgBox .Address(0, 0) & "--->" & examen
    End With
End Sub
Sub testy()
    Dim examen$, rng As Range
    Set rng = [H6,H12,H18]
    'With Range(rng.Cells(1), rng.Cells(rng.Cells.Count))
    ' With Range(rng.Cells(1), rng.SpecialCells(xlLastCell))
    With rng
      If .Rows.Count = 1 Then examen = "par le top"
        If .Rows.Count > 1 Then examen = "par le coté":
        MsgBox .Address(0, 0) & "--->" & examen
    End With
End Sub

 

[patricktoulon]

re
j'ai bien trouvé ça mais ca ne fonctionne plus avec une plage contiguë

With Range(rng.Areas(1).Cells(1), rng.Areas(rng.Areas.Count).Cells(1))

 

[patricktoulon]

re
bon ben je crois que j'ai trouvé finalement

Sub testX()
    Dim examen$, rng As Range
    Set rng = [A1,E1,J1]
       With Range(rng.Areas(1).Cells(1), rng.Areas(rng.Areas.Count).Cells(rng.Areas(rng.Areas.Count).Cells.Count))
            If .Rows.Count = 1 Then examen = "par le top"
        If .Rows.Count > 1 Then examen = "par le coté":
        MsgBox .Address(0, 0) & "--->" & examen
    End With
End Sub
Sub testy()
    Dim examen$, rng As Range
    Set rng = [H6,H12,H18]
       With Range(rng.Areas(1).Cells(1), rng.Areas(rng.Areas.Count).Cells(rng.Areas(rng.Areas.Count).Cells.Count))
       If .Rows.Count = 1 Then examen = "par le top"
        If .Rows.Count > 1 Then examen = "par le coté":
        MsgBox .Address(0, 0) & "--->" & examen
    End With
End Sub

Sub testz()
    Dim examen$, rng As Range
    Set rng = [a6:A10]
        With Range(rng.Areas(1).Cells(1), rng.Areas(rng.Areas.Count).Cells(rng.Areas(rng.Areas.Count).Cells.Count))
     If .Rows.Count = 1 Then examen = "par le top"
        If .Rows.Count > 1 Then examen = "par le coté":
        MsgBox .Address(0, 0) & "--->" & examen
    End With
End Sub

 

[Efgé]

Bonjour @patricktoulon
Pas sûr que ce soit dans la ligne de tes recherches, mais nous avions avec @Pierrot93 fait un petit truc la dessus.

Dim x As Range, y As Range
Set x = Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 1, 2, 0)
Set y = Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0)
If Not x Is Nothing Then MsgBox Cells(x.Row, y.Column).Address

Cordialement

 

[patricktoulon]

bonjour @Efgé
ah c'est pas mal mais il me faut dans tout les sens et il me faut quand même bien déterminer la cells(1) et la dernière
c'est pour faire un placement intelligent de l'userform en fonction de la cellule que je rightclick
afin que la plage injectée contigue ou pas n'ai pas une seule cellule caché par le userform
cette nouvelle fonction va être injecté dans la futur version du calendar pour le mode multicell
voir dans cette discussion le fichier en exemple

Autres - déterminer un emplacement pour le userform en fonction des cellules désignées

Bonjour a tous j'ai fini la mise a jour de mon calendrier et j'ai encore eu une idée 😂😂😂😂 en effet j'ai ajouter le mode multi select dans le calendrier en mode non modal (je peux renseigner X cellule avec une date et fermer le calendrier ensuite ) sauf que j'ai d'en l'idée d'ajouter un mode...

www.excel-downloads.com

 

[job75]

Bonjour patricktoulon, Efgé,

Compter les cellules d'une colonne :

Sub CompteLignes()
Dim plage As Range, n&
Set plage = [A1:C1,D3:F3,G5:J5,7:7] 'pour tester
n = Intersect(plage.EntireRow, [A:A]).Count
MsgBox "Nombre de lignes : " & n
End Sub

A+

 

[Efgé]

Re, Bonjour @job75
Pour la première cellule, sans connaitre les plages utilisées, on pourrais voir quelque chose comme ça (A affiner) :

Sub premiere()
Dim x As Range, y As Range
Set x = Cells.Find("*", Cells(1, 1), xlValues, , 1, 1, 0)
Set y = Cells.Find("*", Cells(1, 1), xlValues, , 1, 1, 0)
If Cells(1, 1) = "" Then
    If Not x Is Nothing Then MsgBox Cells(x.Row, y.Column).Address
    Else
    MsgBox "$A$1"
End If
End Sub

 

[patricktoulon]

re
@job75
a h!...déjà ça ressemble beaucoup plus a ce que je souhaite mais en plus propre
c'est vrai finalement tester
le intersect de la plage a la colonne entiere de la cells(1) de la plage
et
le intersect de la plage a la ligne entière de la cells(1) de la plage
fait la même chose en plus clair
j'approuve je change ça des que je rentre je suis obligé de partir en inter là
surtout que là je peux même faire le multi rows et multi columns

je me suis vraiment pas bien levé ce matin ,c’était si simple
y a des jours comme ça

 

[patricktoulon]

@Efgé l'adresse de la plage est connue et le sera toujours c'est le but de la manœuvre

testez le userform pour comprendre ce que je veux faire

Autres - déterminer un emplacement pour le userform en fonction des cellules désignées

Bonjour a tous j'ai fini la mise a jour de mon calendrier et j'ai encore eu une idée 😂😂😂😂 en effet j'ai ajouter le mode multi select dans le calendrier en mode non modal (je peux renseigner X cellule avec une date et fermer le calendrier ensuite ) sauf que j'ai d'en l'idée d'ajouter un mode...

www.excel-downloads.com