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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Décembre 2020

• #2

Bonjour Viro_Major,
En formule :

VB:

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

En VBA :

Code:

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

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

 

Vote positif 0 Vote négatif

V

Viro_Major

Guest

• 8 Décembre 2020

• #3

sylvanu à dit:

Bonjour Viro_Major,
En formule :

VB:

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

En VBA :

Code:

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

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

Cliquez pour agrandir...

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

 

Dernière modification par un modérateur: 8 Décembre 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Décembre 2020

• #4

Normal, la ligne :

VB:

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

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

Code:

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

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

 

Vote positif 0 Vote négatif

V

Viro_Major

Guest

• 8 Décembre 2020

• #5

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

Dim PremLigneNinVide as Variant

???

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Décembre 2020

• #6

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

 

Vote positif 0 Vote négatif

V

Viro_Major

Guest

• 8 Décembre 2020

• #7

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

VB:

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

En la lançant, ça ne fonctionne pas

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Décembre 2020

• #8

Essayez cette PJ avec :

VB:

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 :

VB:

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

 

Pièces jointes

• Classeur2.xlsm

  13.1 KB · Affichages: 6

Dernière édition: 8 Décembre 2020

Vote positif 0 Vote négatif

V

Viro_Major

Guest

• 8 Décembre 2020

• #9

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é !

 

Vote positif 0 Vote négatif