Viro_Major XLDnaute Nouveau 8 Décembre 2020 #1 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
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 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
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.
Viro_Major XLDnaute Nouveau 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 édition: 8 Décembre 2020 Vote positif 0 Vote négatif
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é
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
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.
Viro_Major XLDnaute Nouveau 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
Ca tombe mal car je suis pas encore au top en déclaration de variables VBA Dim PremLigneNinVide as Variant ???
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
Viro_Major XLDnaute Nouveau 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
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
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
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
Viro_Major XLDnaute Nouveau 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
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é !