Microsoft 365 VBA: recherche 1ère valeur plage pour se caler

[Viro_Major]

Bonjour,

Pas trouvé via le moteur de recherche. Pourtant, ça m’a l’air commun.

J’aimerais un bout de code qui scan une plage verticale (exemple C3:C20) et calera le curseur sous la première valeur (qui sera du texte) non vide trouvée.

Merci. Bonne journée

 

[sylvanu]

Bonjour Viro_Major,
En formule :

=1+EQUIV("*";C3:C20;0)

En VBA :

Application.Match("*", Range("C3:C20"), 0)+1

Le "+1" pour être sous la cellule trouvée.

 

[Viro_Major]

Bonjour Viro_Major,
En formule :

=1+EQUIV("*";C3:C20;0)

En VBA :

Application.Match("*", Range("C3:C20"), 0)+1

Le "+1" pour être sous la cellule trouvée.

Merci. Pour une raison que j’ignore, votre code VBA est rejeté

 

[sylvanu]

Normal, la ligne :

Application.Match("*", Range("C3:C20"), 0)+1

doit être affecté à une variable par exemple PremLigneNonVide :

PremLigneNonVide  =Application.Match("*", Range("C3:C20"), 0)+1

ou dans un IF, tout dépend comment est structuré votre VBA.

 

[Viro_Major]

Ca tombe mal car je suis pas encore au top en déclaration de variables VBA

Dim PremLigneNinVide as Variant

???

 

[sylvanu]

ou "as integer" car le nombre remonté sera un entier ( si vous avez moins de 32768 lignes )

 

[Viro_Major]

Merci, J’ai créé une macro isolée pour la tester

Sub nLig()
Dim rc as Integer
rc = Application.Match("*", Range("O6:O533"), 0) + 1
End Sub

En la lançant, ça ne fonctionne pas

 

[sylvanu]

Essayez cette PJ avec :

Sub Place()
    Dim DL%
    DL = Application.CountIf(Range("C3:C20"), "*") + 3
    Cells(DL, "C").Select
End Sub

et s'il peut y avoir des "trous" dans la liste alors :

Sub Place()
    Dim DL%
    DL = 1 + Range("C20").End(xlUp).Row
    Cells(DL, "C").Select
End Sub

 

[Viro_Major]

Bien que pas de trous, seulement le second fonctionne comme escompté une fois intégré dans ma feuille.

Quoiqu’il en soit, merci de m’avoir débloqué !