Code VBA qui détecte cellule vide

Bonjour le forum

Je cherche à réaliser un code VBA qui me permette de détecter la première cellue vide d'un tableau.

Mon exemple en pièce jointe ..

Merci le forum

Rius

Bonjour,

Dim i As Integer
i = 0

While Not isEmpty([feuille].Cells(i, [colonne]))
      i = i + 1
      Wend

Ca devrait marcher, il faut juste l'adapter à ton programme !

Par exemple tu peux récupérer la colonne sélectionnée avec ActiveCell.Column

Bonjour

Merci pour ce retour

Mais connaissances en VBA étant très limité, j'essaie en vain d'intégrer ce code mais rien ne fonctionne

Bonjour,

Ci-joint ton fichier test ...

Sub placementCurseur()

    Dim classeur As Workbook, feuille As Worksheet
    Set classeur = Workbooks("Cellule videxlsx")
    Set feuille = classeur.Worksheets(1)

    Dim i As Integer
    i = 1

    While Not IsEmpty(feuille.Cells(i, 3))
        i = i + 1
        Wend

    Cells(i, 3).Select

End Sub

Met ce code là dans ton classeur (sinon télécharge le, ce sera plus rapide), fait bien attention à ce que le nom de "Workbooks("[NOM]") soit celui de ton classeur excel ! Si tu encore des questions hésite pas c;

Bonjour 007

Merci pour cette réponse.

Il semblerait cependant qu'il y ai un petit "bug". J'ai erreur de compilation , variable non définie avec "last"

??

Rius

Re,

Désolé ... ci-dessous la correction ...

Sub CelluleVide()
Dim der As Long
    der = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
    Application.Goto Range("C" & der + 1)
End Sub

Super, ça fonctionne à présent

Merci 007

Très bonne aprem

Content que tout fonctionne ...

Merci pour tes remerciements ...

J'ai une macro qui me déplace mon curseur dans une autre partie de mon classeur avec des colonnes assez large du coup quand je clique pour obtenir à nouveau la cellule vide , je ne vois pas plus la colonne avec les dates .....

Je ne sais pas s'il est possible de faire quelque chose.....

Je joins le fichier au cas ou .....

Re,

Pas certain de tout comprendre ....

Dans la version 3 jointe ... on oublie les boutons ...

Où que tu sois dans ta feuille ... tu fais un double-clic ...

En espèrant que cela t'aide