Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel sélection partielle

sélection partielle

11 réponses
Avatar
Mac Ab and O'Canada
Bonjour,
j'aimerais savoir s'il est possible de sélectionner par VBA une partie
seulement d'un contenu de cellule.
Par exemple, j'ai des codes du type: 45220173114
où 452 correspond à un fournisseur,
201 correspond au type de produit,
73 est la catégorie
et 114 le numéro du produit.
Mon problème est que certaint produits changent de fournisseurs et d'autres
changent de catégorie.
J'aimerais, si bien sur cela est possible, qu'en cliquant su un bouton vba
me sélectionne le 452 (pour que je tape le numéro nécessaire sans tout
retaper) puis le 73 s'il doit être changé.(peut être en deux étapes) puisque
mon code doit devenir 88720166114
Ces chiffres sont un exemple, ce n'est pas systématiquement un 452 et un 73
qui doivent être changés.
J'espère avoir été clair et je vous remercie pour votre aide.

Mac Ab, partiel...

--
Remplacez le 1 dans l'@ par un " i " pour répondre


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.507 / Virus Database: 304 - Release Date: 04/08/2003
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
FxM
Bonjour,

Instr te renvoit la position du premier caractère recherché. Avec ta
exemple (valeur en A1) et la macro ci-dessous, zz = 7 :

Sub test()
zz = InStr(1, ActiveSheet.Range("A1"), 73)
End Sub

Si ta référence est un nombre, tu peux toujours faire des opérations
mathématiques dessus pour obtenir le nombre que tu veux. Mais tu veas
vite rencontrer les limites (tq arrondis, plus de 14 chiffres,
entension à des lettres, ...)

Pour travailler sur des chaines de caractères tu as :

left("45220173114";4) -> "4522"
right("45220173114";4) -> "3114"
mid("45220173114", 2, 3) -> "522"

@+
FxM
Avatar
Mac Ab and O'Canada
Merci, mais ce n'est pas exactement ça que je cherche.
Je voudrais que sur ma référence 45220173114 affichée à l'écran dans une
textbox le 452 soit sélectionné (je crois qu'on dit affichage négatif) afin
d'avoir juste à taper la nouvelle valeur sans avoir à utiliser d'autres
touches que celles du pavé numérique.
Idem pour le 73.
Le changement se fera "à vue", certains articles ne changeront pas. C'est
l'opérateur qui sait s'ils doivent changer ou pas.

--
Remplacez le 1 dans l'@ par un " i " pour répondre
"FxM" a écrit dans le message de news:

FxM wrote des betises !

left("45220173114";4) -> "4522"
left("45220173114",4) -> "4522"


right("45220173114";4) -> "3114"
right("45220173114",4) -> "3114"


mid("45220173114", 2, 3) -> "522"


VBA = version anglaise donc des , partout et non ;

@+
FxM




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.507 / Virus Database: 304 - Release Date: 04/08/2003


Avatar
michdenis
Bonjour Mac Ab and O'Canada,


Un fichier exemple dans ta bal.


Salutations!



"Mac Ab and O'Canada" a écrit dans le message de news:%
Merci, mais ce n'est pas exactement ça que je cherche.
Je voudrais que sur ma référence 45220173114 affichée à l'écran dans une
textbox le 452 soit sélectionné (je crois qu'on dit affichage négatif) afin
d'avoir juste à taper la nouvelle valeur sans avoir à utiliser d'autres
touches que celles du pavé numérique.
Idem pour le 73.
Le changement se fera "à vue", certains articles ne changeront pas. C'est
l'opérateur qui sait s'ils doivent changer ou pas.

--
Remplacez le 1 dans l'@ par un " i " pour répondre
"FxM" a écrit dans le message de news:

FxM wrote des betises !

left("45220173114";4) -> "4522"
left("45220173114",4) -> "4522"


right("45220173114";4) -> "3114"
right("45220173114",4) -> "3114"


mid("45220173114", 2, 3) -> "522"


VBA = version anglaise donc des , partout et non ;

@+
FxM




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.507 / Virus Database: 304 - Release Date: 04/08/2003


Avatar
FxM
textbox ? C'est quoi ça ;o)) Y'avait marqué 'cellule' avant ;o)
On rentre dans un domaine où je n'y connais que pouic. je vaid devoir
passer la main aux doués ...

@+
FxM


Mac Ab and O'Canada wrote:

Merci, mais ce n'est pas exactement ça que je cherche.
Je voudrais que sur ma référence 45220173114 affichée à l'écran dans une
textbox le 452 soit sélectionné (je crois qu'on dit affichage négatif) afin
d'avoir juste à taper la nouvelle valeur sans avoir à utiliser d'autres
touches que celles du pavé numérique.
Idem pour le 73.
Le changement se fera "à vue", certains articles ne changeront pas. C'est
l'opérateur qui sait s'ils doivent changer ou pas.

--
Remplacez le 1 dans l'@ par un " i " pour répondre
"FxM" a écrit dans le message de news:


FxM wrote des betises !


left("45220173114";4) -> "4522"


left("45220173114",4) -> "4522"


right("45220173114";4) -> "3114"


right("45220173114",4) -> "3114"


mid("45220173114", 2, 3) -> "522"


VBA = version anglaise donc des , partout et non ;

@+
FxM





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.507 / Virus Database: 304 - Release Date: 04/08/2003






Avatar
Mac Ab and O'Canada
Le contenu est dans une cellule, mais pour la modification je pense qu'on
passera par un formulaire afin que ce soit plus fiable. En effet, il y a
plus de 400 références à vérifier!

--
Remplacez le 1 dans l'@ par un " i " pour répondre
"FxM" a écrit dans le message de news:

textbox ? C'est quoi ça ;o)) Y'avait marqué 'cellule' avant ;o)
On rentre dans un domaine où je n'y connais que pouic. je vaid devoir
passer la main aux doués ...

@+
FxM


Avatar
michdenis
C'est reparti....


Salutations!



"Mac Ab and O'Canada" a écrit dans le message de news:%


"michdenis" a écrit dans le message de news:
#
Le Fichier ne s'est pas rendu... l'adresse n'est pas valide !!!


il faut remplacer le 1 de l'adresse par un i (antispam)
merci

Avatar
Mac Ab and O'Canada
Nikeeeeeeeeelll!
Merci, c'est exactement ça.
Tout simple, mais je ne l'aurais pas inventé. Et l'aide d'excel n'est pas
très explicite...Entout cas, j'ai pas compris ce qu'elle me racontait.
Mais je saurais l'adapter à mon cas.
Encore un grand merci!

Mac Ab,complété...

--
Remplacez le 1 dans l'@ par un " i " pour répondre
"michdenis" a écrit dans le message de news:
u$
C'est reparti....


Salutations!



"Mac Ab and O'Canada" a écrit dans le message de
news:%



"michdenis" a écrit dans le message de news:
#
Le Fichier ne s'est pas rendu... l'adresse n'est pas valide !!!


il faut remplacer le 1 de l'adresse par un i (antispam)
merci






Avatar
FxM
michdenis wrote:
C'est reparti....


Bonjour,

Pour ne pas rester idiot, puis-je requérir une copie ?

Merci
@+
FxM
(enlever le 1er x de mon adresse)

Avatar
FxM
michdenis wrote:

Bonjour FxM,

C'est parti.


Merci.

A moins que tu n'aies envoyé une pub pour agrandir mon 'kiki', rien
n'est arrivé. N'as-tu point eu de retour (adresse invalide) ?
(enlever le 1er x de mon adresse)


@+
FxM

Avatar
michdenis
Bonjour FxM,

C'est reparti ... mais je n'ai pas eu de retour d'adresse suite à mon premier message ... où il est rendu le fichier ?

;-))


Salutations!



"FxM" a écrit dans le message de news:OSiMmW$
michdenis wrote:

Bonjour FxM,

C'est parti.


Merci.

A moins que tu n'aies envoyé une pub pour agrandir mon 'kiki', rien
n'est arrivé. N'as-tu point eu de retour (adresse invalide) ?
(enlever le 1er x de mon adresse)


@+
FxM

1 2