lire les deux derniers caractère de la dernière cellule active

[RAPHOUPHOU]

Bonjour,

Je cherche a lire les deux derniers caractères de la dernière cellule active de la colonnes B

Set R = F.Range("B" & Rows.Count).End(xlUp).Select


Right(range("X").Value,2) => Set R =Right(F.Range("B" & Rows.Count).End(xlUp).value,2) ???

Je dois avoir une petite erreur dans mon code


Pour faire simple j'ai plusieurs REF VC2-P1,VC6-P1,VC2-P2,VC6-P2 ... et je veux juste lire le "PX" qui ce trouve dans la dernière cellule active de la colonnes B

Cela ce trouve dans l'userform 1


Merci

 

[vgendron]

hello

avec
Set R = F.Range("B" & Rows.Count).End(xlUp).Select
tu mixes deux opérations : Set. et select.. VBA n'aime pas

remplace par
Set R = F.Range("B" & Rows.Count).End(xlUp)
R.Select


ensuite.. pour le right... je ne vois pas ou ca se trouve dans ton code...
faudrait expliquer un peu plus

Set R = F.Range("B" & Rows.Count).End(xlUp)
R.Select ' SELECTION LA DERNIERE CELLULE NON VIDE
deux = Right(R, 2)
MsgBox deux

 

[RAPHOUPHOU]

Merci pour ta réponse rapide vgendron

ici avec le R je récupère la valeur de la dernière cellule active de ma colonne B

je cherche à lire seulement les 2 derniers caractères de cette cellule => P1,P2,P3,P4,P5 .....

 

[vgendron]

Cf mon dernier message que j'ai modifié entre temps.. ;-)

 

[RAPHOUPHOU]

Oui j'ai vu, cela fonctionne !!!


MERCI !!!!!!!!!!

 

[Bebere]

bonsoir

x= Right(f.Range("B" & Rows.Count).End(xlUp).Value, 2)