[VBA] Détection cellule vide

Résolu

Excel
Vba

Doudou95 Messages postés 1561 Date d'inscription Statut Membre Dernière intervention -
narval - 24 mars 2010 à 17:04

Bonjour,

Je suis certain que c'est un truc tout bête mais je bloc...

Jaimerais faire une boucle qui compte le nombre de ligne (tableau excel) et qui, arrivé à une case vide, donc la dernière ligne met dans une variable le nombre de lignes
Merci pour ce ptit coup de pouce d'avance.

Afficher la suite

A voir également:

Vba test cellule vide
Vba cellule vide - Meilleures réponses
Vba différent de vide - Meilleures réponses
Test performance pc - Guide
Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
Test disque dur - Télécharger - Informations & Diagnostic
Test steam deck oled - Guide
Test composant pc - Guide

5 réponses

Réponse 1 / 5

onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120

' Selectionne la première cellule du tableau
Range("A1").Select

' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
    NbLigne = NbLigne + 1
    Selection.Offset(1, 0).Select
Loop

Réponse 2 / 5

Doudou95 Messages postés 1561 Date d'inscription Statut Membre Dernière intervention 275

Merci beaucoup seulement maintenant je veux écrire dans chacune des cellules jusqu'à NbLigne-1 dans la colonne en E une formule il me faut donc utiliser NbLigne mais je ne peux pas dans
[Selection.AutoFill Destination:=Range("E2:E37"), Type:=xlFillDefault] car à la place de E37 je n'arrive pas à placer NbLigne
Désolé je ne saisis pas encore très très bien le VBA :) je suis habitué au C++ et même le C++ j'ai du mal :D

onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention 120

Pas besoin de compter le nombre de ligne alors

' Selectionne la première cellule du tableau
Range("A1").Select

' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
    ' Inscrit une formule dans la cellule ayant pour référence
    ' la ligne active et la colonne 5 (colonne E)
    Cells(ActiveCell.Row, 5).Formula = "=NOW()"
    ' Passe à la ligne suivante
    Selection.Offset(1, 0).Select
Loop

zavenger Messages postés 811 Date d'inscription Statut Membre Dernière intervention 161 > onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention

Si je peux me permettre le fait que tu fasses un select a chaue fois ralentit enormemement la macro. Un truc du style

ii = 1
Do While Not (IsEmpty(ActiveSheet.Cells(ii,1)))
' Inscrit une formule dans la cellule ayant pour référence
' la ligne active et la colonne 5 (colonne E)
ActiveSheet.Cells(ii, 5).Formula = "=NOW()"
' Passe à la ligne suivante
ii = ii +1
Loop

Discussions similaires

[VBA] Interface graphique?

[Excel] Ligne inutile en bas de la feuille

La valeur d'une cellule dans une variable VBA

Revenir à la ligne dans code VBA

convertir plusieur feuilles excel en un pdf

[VBA] Variables globales

Votre réponse

Discussions similaires