Sélectionner cellule sans les derniers caractères vba
Résolu
Jane
-
Jane -
Jane -
Bonjour,
Dans mon classeur, il y a deux feuilles. Dans chaque feuille se trouve une colonne comportant des références.
Feuil1: colonne A Feuil2: colonne A
FG123456 (type A) FG123456(1) (type A)
TR456789 (type B) TR456789(1) (type B)
TR456789(2) (type B)
A chaque référence de la Feuil1 est associé un type.
J'aimerais pouvoir associer le même type aux références associées de la Feuil2 (voir exemple ci-dessus).
Pour ce faire, je cherche une commande qui prend la valeur des cellules de ma Feuil2 sans les (1) ou (2). Comme ça je pourrais faire mes boucles etc,.. Je pense qu'il y a du Right(cel,3) quelque part..
Quelqu'un aurait-il une solution à mon problème? svp
Dans mon classeur, il y a deux feuilles. Dans chaque feuille se trouve une colonne comportant des références.
Feuil1: colonne A Feuil2: colonne A
FG123456 (type A) FG123456(1) (type A)
TR456789 (type B) TR456789(1) (type B)
TR456789(2) (type B)
A chaque référence de la Feuil1 est associé un type.
J'aimerais pouvoir associer le même type aux références associées de la Feuil2 (voir exemple ci-dessus).
Pour ce faire, je cherche une commande qui prend la valeur des cellules de ma Feuil2 sans les (1) ou (2). Comme ça je pourrais faire mes boucles etc,.. Je pense qu'il y a du Right(cel,3) quelque part..
Quelqu'un aurait-il une solution à mon problème? svp
2 réponses
-
tu as juste as remplacé les "(1)" et les "(2)" par "" avec un petit CTRL+H enfin ce serait le plus simple, mais ça ne correspond peut être pas a ce que tu veux :)
-
nan pas tout à fait en effet. ^^
j'aimerais garder mes (1),(2) etc,.. visibles et ce que je voudrais c'est faire un If qui regarde si les valeurs d'une cellule de ma Feuil1 et les valeurs d'une cellule de ma Feuil2 sont égales. Pour ce faire, il ne faut pas que (1),(2),.. apparaissent dans mon If. je cherche donc une méthode qui permet de les exclure du If. -
-
-
En vb, si tu charge tes données de la feuille 2 (Avec le (1) ou le (2) ) dans une variable, tu peux utiliser la fonction replace :
Replace(Ta_Variable, "(1)", "")
Replace(Ta_Variable, "(2)", "")
Ou bien left :
Left(Ta_Variable, len(Ta_Variable) - 3) (Si ce sont bien les 3 derniers caractères de ta cellule) -
-
-
valeur1 = Sheets(1).Cells(1, 1) valeur2 = Sheets(2).Cells(1, 1) If valeur1 = Left(valeur2, Len(valeur2) - 3) Then MsgBox "gagné"
tu peux utiliser directement cells(x,y) sans passer par valeur1 et valeur2
