OVH Cloud OVH Cloud

Selection d'une case bien précise- help!!

1 réponse
Avatar
boD Dob
Bonjour,
dans un classeur de plusieurs feuilles de formes identiques (format),
dans une colonne, toujours la même,
je cherche à sélectionner une cellule bien précise dont la position peut
varier dans cette colonne E24, E 56, E34 ...sur des feuilles consécutives.
cette colonne contient des cellules pleines et des cellules vides.
je veux sélectionner le contenu de la dernière cellule pleine avant la
première cellule vide et l'exporter vers une autre cellule.
Parmi les différentes données, cette dernière cellule n'est ni le maximum,
ni le minimum des données de la colonne.
J'aimerais savoir s'il existe une formule pour remédier à mon problème
Merci d'avance pour vos réponses
Benoît

1 réponse

Avatar
Jey
Salut,

J'ai pas compris exactement ce que tu veux faire, mais si tu veux
sélectionner la dernière cellule pleine, tu peux essayer un truc du style :

Sub TrouverDernierePleine()
Dim findrange As Range
Dim findcell As Range

Sheets("LaFeuilleOùChercher").Select

With ActiveSheet
Set findrange = .Range("E:E")
End With

For Each findcell In findrange
If findcell.Value <> "" Then lastrow = findcell.Row
Next findcell

Range("F" & lastrow).Select

End Sub

Bon y'a peut être plus simple, mais j'ai testé ça fonctionne...


"boD Dob" a écrit dans le message de news:
43c02f03$0$26396$
Bonjour,
dans un classeur de plusieurs feuilles de formes identiques (format),
dans une colonne, toujours la même,
je cherche à sélectionner une cellule bien précise dont la position peut
varier dans cette colonne E24, E 56, E34 ...sur des feuilles consécutives.
cette colonne contient des cellules pleines et des cellules vides.
je veux sélectionner le contenu de la dernière cellule pleine avant la
première cellule vide et l'exporter vers une autre cellule.
Parmi les différentes données, cette dernière cellule n'est ni le maximum,
ni le minimum des données de la colonne.
J'aimerais savoir s'il existe une formule pour remédier à mon problème
Merci d'avance pour vos réponses
Benoît