Bonjour,

Je peine sur un double problème depuis 2 jours.

J'en fait deux posts pour plus de clarté:

Je souhaite trouver la dernière cellule d'une plage de cellules non contigues.

J'utilise la methode "SpecialCells(xlCellTypeLastCell)" comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Set RangeToImport = xlApp.Union(.Range("A4"), .Range("D4:D8"), .Range("D9:E10"), .Range("D11:D12"), .Range("D13:E13"), .Range("D14:D15"), .Range("E16:E24"), .Range("D25"), .Range("D26:E37")) 
 
'plage de test qui à terme sera passée argument de ma fonction
 
Set b = RangeToImport.SpecialCells(xlCellTypeLastCell)
 'j'attend ici la cellule d'adresse E37 mais j'obtiens ce qui semble être la dernière celulle existante de la feuille de calcul
Je commence à être à bout de ressources et de nerfs ....

Merci pour votre aide.

Je suis un développeur VBA très occasionnel. Je visite à ces occasions votre site depuis 2004 qui me permet toujours de me remettre dans le bain très rapidement. Merci à tous les contributeurs.

H.