Autres (RESOLU)DERNIERE CELLULE NON VIDE

chaelie2015 · 3 Août 2021

Bonjour Forum
j'ai essayé d'adapter ce code pour
1. chercher la feuille selon le nom de la cellule H4 et H5 dans la feuille "Accueil" par exemple CHARLIE BELGE (c'est fait)
2. une fois la feuille CHARLIE BELGE trouvée ,chercher la dernière cellule non vide de la colonne I et l'afficher dans la feuille "Accueil" cellule H7 automatiquement

VB:

.....
Dim nf$
nf = Trim([H4] & " " & [H5])
If nf = "" Then MsgBox "Renseignez le nom de l'agent !", 48: [H4].Select: Exit Sub
On Error Resume Next
With Sheets(nf)
    If Err Then MsgBox "La feuille '" & nf & "' n'existe pas !", 48
    With .[B:B].Find(<>, .[I8], xlValues) '1ère cellule NON vide
       .......
End Sub

SALUTATIONS

fanfan38 · 3 Août 2021

Bonjour
Ci joint ma solution

A+ François

chaelie2015 · 4 Août 2021

Bonjour fanfan38
merci c'est parfait,
NB: est ce possible de le mettre automatiquement sans passer par un bouton ?
Merci encore une fois.

job75 · 4 Août 2021

Bonjour chaelie2015, fanfan38,

Pas besoin de VBA avec cette formule en H7 :

Code:

=SIERREUR(RECHERCHE("zzz";INDIRECT("'"&H4&" "&H5&"'!I:I"));"")

La recherche concerne des textes.

A+

fanfan38 · 4 Août 2021

Sans bouton

A+ François

job75 · 4 Août 2021

Si l'on tient absolument au VBA et aux messages c'est quand même laborieux :

VB:

Private Sub Worksheet_Activate()
Worksheet_Change [H7] 'lance la macro, pour le cas où la feuille source a été modifiée
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col$, nf$
col = "I" 'colonne de la recherche, à adapter
nf = Application.Trim([H4] & " " & [H5])
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next
[H7] = "" 'RAZ
If nf = "" Then
    [H4].Select
    MsgBox "Renseignez au moins H4 !", 48
Else
    With Sheets(nf)
        If Err Then MsgBox "La feuille '" & nf & "' n'existe pas !", 48
        If .FilterMode Then .ShowAllData 'si la feuille est filtrée
        [H7] = .Cells(.Rows.Count, col).End(xlUp)
    End With
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

chaelie2015 · 4 Août 2021

Bonjour tout le monde
merci François , merci job, c'est excellent.
SOUCI RESOLU
A+

chaelie2015 · 4 Août 2021

Bonsoir FORUM, François , JOB
je reviens a vous poser un autre souci,
après avoir développer le ficher j'ai modifié la colonne I des feuilles (j'ai mets des formules de calcule), donc j'ai constaté avec ces code rien ne s'affiche dans la celluleH7 de la feuille "Accueil" ???
merci par avance

job75 · 4 Août 2021

Nous comprenons votre angoisse mais pas le problème.

chaelie2015 · 4 Août 2021

job75 à dit:
Nous comprenons votre angoisse mais pas le problème.

Re JOB
j'ai mets dans la colonne I une formule de calcule (a titre exemple =SI(ET(H9<>"";G9>=0);G9-H9;"") )
C-A-D les cellule de la colonne I contient des formules ,quand j'exécute ton code il ne s'affiche rien dans la cellule H7

job75 · 4 Août 2021

Cette formule crée des nombres en colonne I donc la formule du post #4 ne s'applique pas.

Elle ne recherche que des textes, pour des nombres utiliser :

Code:

=SIERREUR(RECHERCHE(9^99;INDIRECT("'"&H4&" "&H5&"'!I:I"));"")

Le code VBA du post #6 ne doit pas poser de problème.

patricktoulon · 4 Août 2021

re
Bonsoir
ça aussi c'est une discussion recente qui a été mené me semble t il
a savoir comment considérer la cellule (la derniere ) non vide si dans le lot il y a des formules qui ne ramenne rien

chaelie2015 · 4 Août 2021

job75 à dit:
Cette formule crée des nombres en colonne I donc la formule du post #4 ne s'applique pas.

Elle ne recherche que des textes, pour des nombres utiliser :

Code:

=SIERREUR(RECHERCHE(9^99;INDIRECT("'"&H4&" "&H5&"'!I:I"));"")

Le code VBA du post #6 ne doit pas poser de problème.

Re
Super , merci job
bonne soirée

patricktoulon · 4 Août 2021

il me semble que mon model fonctionne

VB:

Sub test()
    MsgBox LatCellUsedInColumn([A1:A100])
    MsgBox LatCellUsedInColumn([A1:A100], True)
End Sub

Function LatCellUsedInColumn(ByVal Colonne As Range, Optional IsValued As Boolean = False) As Long
    Const ChaineMax As String = "zzzzzzzzzzzzzzzzzzzz"
    Const NombreMax As Double = (2 ^ 53 - 1) * 2 ^ 971
    If Not Colonne Is Nothing Then
        With Application
            If Not IsValued Then
                LatCellUsedInColumn = .Max(.IfError(.Match(ChaineMax, Colonne.Columns(1), 1), 0), .IfError(.Match(NombreMax, Colonne.Columns(1), 1), 0))
            Else
                c = Colonne.Address(0, 0)
                LatCellUsedInColumn = Evaluate("MAX(ROW(" & c & ")*(" & c & "<>""""))")
            End If
        End With
    End If
End Function

si il y a un nombre ou un texte ou une formule (meme si la formule ne ramene rien) la cellule est donc pris en compte
donc on a bien la derniere cellule utilisée

job75 · 4 Août 2021

Oui en effet patricktoulon, le code de mon post #6 ne trouvera pas le dernier nombre s'il est suivi par des textes vides "".

Par contre la formule de mon post #11 fonctionnera bien.

Autres (RESOLU)DERNIERE CELLULE NON VIDE

chaelie2015

XLDnaute Accro

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires