[Excel] Remplir la prochaine cellule vide

bonjour

Comme je doute fort que find trouve une cellule vide, je propose :

Public Sub premvide()
Dim elm As Range
For Each elm In Cells.Range("B10:B30")
    If IsEmpty(elm.Value) Then
        elm.FormulaR1C1 = "=R[-1]C[1]+R2C15"
        Exit For
    End If
Next elm
End Sub

ainsi si je lance 3fois ma macro elle remplira B10, puis B11, puis B12

C'est ce qui devrait se dérouler comme fonctionnement.

>Bonbour
difficile en effet; sans la macro, de vous donner le libellé;
Peut être en essayez d'adapter cà à votre cas
Dim cellulevide As String
On Error Resume Next
Set celluletrouvé = [H11:H10000].Find(What:=cellulevide)Crdlmnt

Sub auto()
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=R[-1]C[1]+R2C15"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

C'est donc la première ligne "ActiveCell.Select" que je voudrais changer pour aller à la première cellule vide entre B10 et B30, ainsi si je lance 3fois ma macro elle remplira B10, puis B11, puis B12 indépendamment de la cellule déjà active.

Bonjour,
Essayez cette variante,

Sub auto()
Dim adr As String
With ActiveSheet.Range("B10:B30")
    Set c = .Find("", LookIn:=xlValues)
    If Not c Is Nothing Then
        Do
            adr = c.Address
' *** la cellule vide reçoit l'adresse et le mot vide.
            Range(adr).Value = adr & " est vide"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
   End If
End With
End Sub

Bonjour gbinforme,
Eh bien j'ai testée mon code et la fonction [FIND] fonctionne correctement.

Au passage je profite de votre réalisation différente.
Merci.

Merci beaucoup, j'ai essayé la seconde version, elle me semblait plus simple et toute faite.

Juste pour pas que tu m'ais maché tout le boulot et que je recopie betement, si tu pouvais m'expliquer le code ça serait vraiment sympa, comme ça si je dois refaire une macro qui y ressemble je pourrai me débrouiller.

Et encore merci, ça va me faciliter du boulot ...

bonjour Le Pingou et Vaucluse,

Eh bien j'ai testée mon code et la fonction [FIND] fonctionne correctement.

Désolé de n'avoir pas mieux précisé ma formulation car je ne mettais nullement en cause le codage de la fonction find qui était totalement correct dans les 2 formulations.

Cependant, comme d'autres fonctions ou propriétés sous excel, la recherche d'une cellule vide avec find n'est pas toujours assurée du résultat et présente quelques fonctionnements curieux qui inspirent ma méfiance car ils sont difficiles à comprendre lorsque l'on en est victime.

Vous pouvez le vérifier en mettant vos codes sur une plage totalement vide et non accédée, ce qui peut bien sûr être le cas dans la demande qui manifestement crée une formule sur une nouvelle ligne.

Effectivement ma phrase n'était pas compréhensive avec sa formulation succincte et je vous prie de m'en excuser.

bonjour betamorphe,

si tu pouvais m'expliquer le code ça serait vraiment sympa,

Le code est simpliste en effet et il consiste à parcourir avec la boucle For les cellules de la plage, et à tester si la cellule est vide (IsEmpty) en s'arrêtant sur la première trouvée après avoir inséré la formule. Comme excel balaye nativement de haut en bas, cela correspond à ta demande.

Bonjour gbinforme,
Merci infiniment pour l'explication concernant la fonction [FIND].
Je réalisé l'essai que vous proposé.
Eh bien si la plage est vide c'est surprenant il oublie la première cellule vide mais il la reprend après avoir traitée la dernière.

Note : qu'est ce que vous entendez par : plage vide non accédée !

Excellente semaine.

bonjour Le Pingou,

qu'est ce que vous entendez par : plage vide non accédée !

Peut-être pas clair effectivement. Si la dernière cellule utilisée (ctrl + fin) est par exemple F22 et que vous lanciez la macro sur B30:B40, il ne va pas y avoir de cellule vide dans la plage.

Cela fait partie des fonctions qui ont des résultats imprévus comme aussi UsedRange qui n'évolue pas en inférieur même si l'on supprime des lignes et cela peut parfois créer des migraines !

C'est uniquement pour ce comportement un peu imprévisible de la fonction find sur recherche de vides que j'émettais des doutes dans l'utilisation alors que pour rechercher des valeurs elle est très performante, bien paramétrable et facilement utilisable, même sur un classeur complet.

Bonne soirée et à bientôt sur un autre sujet.

Bonsoir gbinforme,
Merci infiniment pour l'explication, c'est super sympa, il est toujours profitable de vous lire.
A une prochaine