XL 2010 [RESOLU] Placer le curseur sur la première cellule vide d'une plage définie

ralph45

XLDnaute Impliqué
Bonjour le Forum !

Dans mon exemple joint et à l'ouverture du fichier [Sub Auto_open ()], je voudrai placer le curseur automatiquement sur la première cellule vide de la plage ("B3:R12"), en respectant le sens de lecture classique*.

* Lecture classique : gauche vers la droite = colonnes B à R, puis haut vers le bas = lignes 3 à 12

Merci par avance de votre aide !
 

Pièces jointes

  • VBA_0005_PlacerCurseurPrmiereCelluleVide.xlsm
    10.8 KB · Affichages: 18

Lolote83

XLDnaute Barbatruc
Salut,
Peut être avec ce petit code
Code:
Sub Test()
    For Each xCell In Range("B3:R12")
        If xCell.Column <> 10 Then
            If IsEmpty(xCell) = True Then
                Range(xCell.Address).Select
                Exit For
            End If
        End If
    Next xCell
End Sub
En espérant avoir répondu à la demande
@+ Lolote83
 

Jacky67

XLDnaute Barbatruc
Bonjour le Forum !

Dans mon exemple joint et à l'ouverture du fichier [Sub Auto_open ()], je voudrai placer le curseur automatiquement sur la première cellule vide de la plage ("B3:R12"), en respectant le sens de lecture classique*.

* Lecture classique : gauche vers la droite = colonnes B à R, puis haut vers le bas = lignes 3 à 12

Merci par avance de votre aide !
Bonjour à tous
Autre proposition
Dans le ThisWorkbook
VB:
Private Sub Workbook_Open()
On Error Resume Next
Feuil1.Range("b3:r12").Cells.SpecialCells(xlCellTypeBlanks).Range("A1").Select
If Err <> 0 Then MsgBox "Plage entièrement complétée", , "Information"
End Sub
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16