Recuperer la valeur de la premier cellule non vide
Fermé
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
18 mai 2018 à 14:44
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 22 mai 2018 à 09:37
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 22 mai 2018 à 09:37
bonjour
jai cree un tableu par vba , remplit pas des valeur dans chaque cellules ( de ligne 7 jusque ligne X ca depend lemplacement de la derniere ligne )
ma question ; comment on peut recuperer la valeur de la prmiere cellule non vide , par exemple recuperer la valeur de cells(i,14)
merci
jai cree un tableu par vba , remplit pas des valeur dans chaque cellules ( de ligne 7 jusque ligne X ca depend lemplacement de la derniere ligne )
ma question ; comment on peut recuperer la valeur de la prmiere cellule non vide , par exemple recuperer la valeur de cells(i,14)
merci
A voir également:
- Recuperer la valeur de la premier cellule non vide
- Recuperer message whatsapp supprimé - Guide
- Aller à la ligne dans une cellule excel - Guide
- Recuperer video youtube - Guide
- Supprimer page word vide - Guide
- Impossible de récupérer mon compte gmail - Guide
1 réponse
f894009
Messages postés
17240
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 février 2025
1 713
19 mai 2018 à 07:51
19 mai 2018 à 07:51
Bonjour,
deux facons de faire
deux facons de faire
Sub test_for_next() With Worksheets("feuil1") 'reprise du code de Jordane45 i = .Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'retourne la dernière ligne non vide de la feuille Feuil1 '------------------------------------------------------- For c = 7 To i If .Cells(i, 14) <> "" Then valPremiereCel = .Cells(i, 14) Exit Sub End If Next c End With End Sub 'moins rapide que for_next si vraiment beaucoup de iterations Sub test_do_loop() With Worksheets("feuil1") i = 7 Do i = i + 1 Loop Until .Cells(i, 14) <> "" valPremiereCel = .Cells(i, 14) End With End Sub
22 mai 2018 à 09:37
je vous remercie