Recuperer la valeur de la premier cellule non vide
blalaa
Messages postés
167
Date d'inscription
Statut
Membre
Dernière intervention
-
blalaa Messages postés 167 Date d'inscription Statut Membre Dernière intervention -
blalaa Messages postés 167 Date d'inscription Statut Membre Dernière intervention -
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
- Supprimer page word vide - Guide
- Aller à la ligne dans une cellule excel - Guide
- Impossible de récupérer mon compte gmail - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
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
je vous remercie