Recuperation d'info

[KAR-inette]

Bonjour à tous .....
J'ai un problème que je n'arrive pas à résoudre ....:-((
Comment récupérer la cellule non vide d’une colonne A sur une cellule B1 ….
Le problème c’est que cette cellule non vide n’est pas un chiffre, et que le mot change tout les jour, et se déplace de cellule en cellule (mais il reste toujours sur la colonne A) ….
Je ne peux pas utiliser la fonction MAX, du fait que ce n’est pas un chiffre …. Si quelqu’un peut m’aider ……
Merci à tous

 

[bertrand]

bonjour,

si ta colonne A est vide, le code suivant devrait resoudre ton souci.

Sub recup_val()
Range('b1').Value = Range('a1').End(xlDown).Value
End Sub

a+

 

[dg62]

Bonjour Kar-inette, Bertrand, Le Forum


ce petit bout de code trouve une cellule contenant du texte dans une colonne de chiffres.

Sub recup()
    Dim cel As Range
    For Each cel In Range('A:A')
        If (VarType(cel.Value)) = 8 Then
            Range('B1').Value = cel.Value
        End If
    Next
End Sub