XL 2010 Code d'extention de sélection sujet

Bonjour à tous!

J'effectue actuellement un premier stage en entreprise et un détail sur mon macro me laisse perplexe.
Après avoir écrit entièrement mon code permettant d'automatiser mon processus, la relecture montre que certains détails nécessitent une modification:

" ActiveSheet.Range("$A:$AG038").AutoFilter Field:=28, Criteria1:="N" "

Ce problème revient régulièrement, mon fichier comportant les données possède actuellement 11037lignes donc le code marche pour ce cas précis, cependant ce fichier varie je cherche donc a modifier mes lignes de code de sorte que le macro marche dans tous les cas possibles.

Je sais que mon code doit comporter des codes du type End(xlUp).Row (remonter ligne par ligne en partant de la dernière) mais je ne sais pas comment l'adapter à ce cas précis ni l'utilité de $.

Merci d'avance pour votre aide. :)

XL 2010 Centrer image sur cellules ou cellulles fusionnées avec sélection manuelle sujet

Bonjour à tous,

Je souhaite pouvoir centrer une image que je souhaite sélectionner à la souris sur une ou plusieurs cellules ou sur des cellules fusionnées sélectionnées aussi à la souris.

J'arrive à sélectionner les cellules mais j'ai l'impression que l'InputBox ne gère pas les cellules fusionnées.
J'aimerais également pouvoir sélectionner l'image que je souhaite centrer.

Quelqu'un pourrait m'aider?

Par avance merci.

Ci-dessous macro VBA chopée d'un autre forum.

Sub CentreImage()
Dim cel As Range, k1 As Double, k2 As Double
Set cel = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8) ' à modifier pour tenir compte des cellules fusionnées
With ActiveSheet.Shapes("Image 1") 'à modifier pour sélectionner l'image
k1 = .Width / cel.Width
k2 = .Height / cel.Height
If k1 > k2 Then
.Width = (.Width / k1) - 4
.Top = cel.Top + (cel.Height - .Height) / 2
.Left = cel.Left + 2
Else
.Width = .Width / k2 - 2
.Top = cel.Top + 1
.Left = cel.Left + (cel.Width - .Width) / 2
End If
End With
End Sub

Utiliser une fonction personnalisée dans une formule de selection d'enregistrement sujet

Bonjour.
J'ai besoin d'intégrer dans la formule de sélection de mon rapport Crystal une partie de la clause WHERE calculée dynamiquement à partir du contenu d'un champ paramètre du rapport.
J'ai donc créé une fonction personnalisée du rapport qui créée ma chaine sql mais je n'arrive pas à insérer l'appel de cette fonction dans ma formule de sélection. J'ai l'erreur systématique "Saisissez ici une valeur booléenne".
Ma fonction testée par ailleurs renvoie bien une chaine conforme..

Quelqu'un a-t-il une idée ? Est-ce seulement possible d'utiliser une fonction personnalisée du rapport dans la formule de selection ?

Merci d'avance;