Sélection d'une cellule vide dans une plage de données déterminée

Bonsoir à tous,

J'apprécierais qu'on m'aide à concevoir deux macros qui permettraient de sélectionner des cellules vides dans une plage de données.

Dans le fichier "Exemple.xlsm" ci-joint, dans la plage "A5 @ A30" la première macro devra sélectionner la première cellule vide après les données entrées et ce à gauche du texte "NOUVEAU" (voir cellule bleue). Le nombre de données est variable et la cellule vide sélectionnée et toujours adjacente à une cellule contenant le texte "NOUVEAU".

Dans la plage "A35 @ A51", la deuxième macro devra sélectionner la première cellule vide après les données entrées (voir cellule verte). Le nombre de données est variable.

En vous remerciant par avance pour votre précieuse aide.

Salutations,

Renaud D.

Bonsoir, pour la cellule verte, s'il n'y a pas d'autre donnée en dessous de ce deuxième tableau alors cela est "simple", il suffit de trouver la dernière cellule "non vide" est d'ajouter 1 ligne pour trouver la première vide :

Sub LrdVert()
    DerCelPleine = Range("A" & Rows.Count).End(xlUp).Row
    ' première cellule vide
    Range("A" & DerCelPleine + 1).Select
End Sub

Pour la cellule bleue :

Vous pouvez utiliser la fonction FindNext qui permet de chercher dans une plage toutes les cellules correspondant à un critère les unes après les autres :

Sub LrdBleu()
    Set Trouve = Range("B5:B30").Find("Nouveau")
    If Not Trouve Is Nothing Then
        ADR = Trouve.Address
        Do
            If Trouve.Offset(, -1) = "" Then Exit Do
            Set Trouve = Range("B5:B30").FindNext(Trouve)
        Loop While Not Trouve Is Nothing And Trouve.Address <> ADR
        Trouve.Offset(, -1).Select
    End If
End Sub

@ bientôt

LouReeD

Merci beaucoup LouReeD pour votre aide.

Vos deux macros fonctionnent à merveille.

Sincères salutations,

Renaud D.

Bonsoir,

merci @ vous pour vos remerciements !

@ bientôt

LouReeD