Trouve cell vide

Bonjour,

Svp,

dans la colonne 36 je cherche la 26 cell vide.

Je besoin son adresse.

Merci pour votre aide

Arnold

Bonjour,

je cherche la 26 cell vide.

A+

Merci

La "vingt sixième" cell dans la colonne;

Arnold

Une proposition avec une fonction personnalisée

Function LigVide26() As String
Dim Ligne As Long, Cptr As Long
    Application.Volatile
    Do While Cptr < 26 And Ligne < Rows.Count
        Ligne = Ligne + 1
        If Cells(Ligne, 36) = "" Then
            Cptr = Cptr + 1
        End If
    Loop
    If Cptr = 26 Then
        LigVide26 = Cells(Ligne, 36).Address
    Else
        LigVide26 = "Hors limite"
    End If
End Function

A+

Bonsoir Monsieur,

Merci pour votre rapidité!

Un petit test, est sa doit fonctionner...

Arnold

Nota Bene:

Si vous avait un petit temps, pouvez vous m'expliquer un petit peut......

Bonjour,

Je veux bien te donner quelques explications mais il faut me dire ce que tu ne comprends pas

Ne connaissant pas ton niveau, j'aurai du mal à savoir par quoi commencer

A+

Bonjour Monsieur,

J'ai bien compris que vous avez utiliser un "nesdet loop" avec un

compter dans la colonne.

Mais pour le moment je voir comme réponse qu'un "zéro",

a la place des cordonnée de la cellule souhaiter.

"=LigVide26(;;4)" ou similaire;

J'ai comme réponse "#val ...... "

Merci pour votre aide!

Arnold

Bonjour,

Peux-tu joindre un classeur exemple afin que je puisse comprendre ?

A+

Bonjour Monsieur,

Merci pour votre proposition!

ci-joint le fichier: test.file.xlsx

mes salutation,

Arnold

frangy a écrit :

Bonjour,

Peux-tu joindre un classeur exemple afin que je puisse comprendre ?

A+

Bonjour Monsieur,

Merci pour votre aide!

Que penser vous de VLOOKUP - HLOOKUP ou de FIND.

Mais ca seras pour une autre fois.

Arnold

NB:

Le scripte pour PowerShell:

(Un peut lent mais sa fonction ..... Je continue de chercher)

cls

$Xpath = "C:\MMC\Main.xlsx"
$Xxl = New-Object -com Excel.Application
$Xxl.DisplayAlerts = $False
$Xwb = $Xxl.WorkBooks.Open($Xpath)
$Xwb.ForceFullCalculation = $True

$Xt = "text"

$Xstart_row = 170
$Xrow = $Xstart_row
$Xcell_row = Do{$Xrow; $Xrow++} until ($Xwb.ActiveSheet.cells.Item($Xrow,35).$Xt -eq "")

$Xhead = "Lnr | Time | Txt ......"
$Xhead

for ($Xi = 1; $Xi -lt $Xcell_row.Count)
  {
        $Xstart_row..$Xrow | % {
                if ($Xi % 10 -eq 0)
                    {
                          $Xhead
                    }
        [string]$Xi+" "+($Xwb.ActiveSheet.Cells.Item(($_ -1),35).$t); $Xi ++ }
  }

$Xxl.WorkBooks.Close()

$Xxl.quit()
$Xxl = $null
[gc]::collect()
[gc]::WaitForPendingFinalizers()

clear-variable X* -scope global -f

<#
Lnr | Time | Txt ......
1 [23:20:26]
2 [16:28:13]
3 [16:29:17]
......
8 [14:28:47]
9 [12:09:51]
Lnr | Time | Txt ......
10 [12:11:03]
........
#>