Forums XLPages

Excel & VBA Forum principal [résolu] Préfixe/Suffixe Scan dans Excel

Préfixe/Suffixe Scan dans Excel
#1
jejesx114
Débutant XLPages

Inscription: 02/04/2012

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 02-04-2012 15h10

Bonjour à tous,

J’utilise actuellement Excel Version 2010, je scanne des codes-barres avec une douchette dans Excel, jusque-là tout va bien, mais je dois rajouter automatiquement une étoile devant et une étoile derrière le chiffre scanné par la douchette dans Excel. Je ne sais comment faire ! Surement avec une macro mais je ne connais pas bien le VB Script.

Merci de votre aide.

Jérémy

Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#2
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 02-04-2012 17h22
Bonjour Jérémy et bien venue à toi,

En attendant une meilleure proposition, peut-être avec ce code:
Private Sub Worksheet_Change(ByVal Target As Range)
'A adapter: la colonne remplie est la colonne A et une seule cellule sélectionnée
If Not Intersect(Target, Columns("A:A")) Is Nothing And Target.Count = 1 Then
    'Désactive la procédure évènementielle
    Application.EnableEvents = False
    'ajoute une * au début et fin du contenu de la cellule modifiée
    Target.Value = "*" & Target.Value & "*"
    'réactive la procédure évènementielle
    Application.EnableEvents = True
End If
End Sub
 
A placer dans le code de la feuille (clic droit sur l'onglet, puis  choisir "Visualiser le code")

Bonne soirée,

mth
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#3
jejesx114
Débutant XLPages

Inscription: 02/04/2012

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-04-2012 09h28
Un grand Merci à toi Mth je vais regarder ça.

Jérémy
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#4
jejesx114
Débutant XLPages

Inscription: 02/04/2012

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-04-2012 12h13
Mth j'ai un message d'erreur dans le code, je te l'ai mis en pièce jointe.

Merci de ta réponse.

Jérémy
Pièce jointe:
zip Sans titre.zip   [ Taille: 59.33 Ko - Téléchargements: 581 ]
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#5
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-04-2012 12h24
Bonjour,

Tu as un "End Sub" en trop à la fin de ton code, par ailleurs tu n'as pas placé le code au bon endroit. Là tu es dans un module standard, or il faut le mettre dans la feuille, comme je te l'ai indiqué clique avec le bouton droit de la souris sur le nom de l'onglet, puis copie le code à cet endroit.

J'ai l'impression que tu n'es pas du tout à l'aise avec le VBA, du coup cette solution risque de te faire perdre un peu de la maîtrise de ton fichier ce qui n'est pas satisfaisant.

Si cela te convient mieux, tu peux peut-être essayer une autre solution avec une formule, imaginons que tes codes soient remplis en colonne A, dans une autre colonne écris cette formule:

="*"&A1&"*"
à copier coller vers la bas

Très bonne journée,

mth
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#6
jejesx114
Débutant XLPages

Inscription: 02/04/2012

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 06-04-2012 14h21
Un grand merci Mth de me proposer des solutions mais concernant la copie du code VBA, où dois-je le coller ? Et dans qu'elle onglet de Excel ? Et dans qu'elle feuille ?


Jérémy
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#7
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 08-04-2012 16h53
Bonjour,


Imaginons que tu scannes tes codes dans un onglet nommé "Saisie", pour insérer le code, essaie en faisant un clic droit sur le nom de l'onglet, puis choisis "Visualiser le code", et colle le code dans la fenêtre Visual Basic qui s'ouvre:




Tu auras ceci:




Bien à toi,

mth
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#8
jejesx114
Débutant XLPages

Inscription: 02/04/2012

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 19-04-2012 13h44
Bonjour Mth, désolé pour ma réponse tardive mais j'étais en vacances je viens de suivre tes instructions et cela fonctionne à merveille.
Un grand merci pour ton aide.

Jérémy
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#9
jejesx114
Débutant XLPages

Inscription: 02/04/2012

Messages: 7

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 09-05-2012 15h25
Bonjour à tous,

Est-il possible que la Marco que tu m'as faite MTH mette aussi le champ à la police C39HrP48DhTt en taille 36.
Est-il possible aussi d'utiliser cette Macro dans Word ?

Merci pour vos réponses.
Jérémy
Hors Ligne
 Rapport   Haut 

Re: Préfixe/Suffixe Scan dans Excel
#10
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 09-05-2012 21h27
Bonsoir Jérémy,

Tu peux essayer en mofifiant le code comme ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
'A adapter: la colonne remplie est la colonne A et une seule cellule sélectionnée
If Not Intersect(Target, Columns("A:A")) Is Nothing And Target.Count = 1 Then
    'Désactive la procédure évènementielle
    Application.EnableEvents = False
    'ajoute une * au début et fin du contenu de la cellule modifiée
    With Target
        .Value = "*" & Target.Value & "*"
        .Font.Size = 36
        .Font.Name = "Arial"
    End With
    'réactive la procédure évènementielle
    Application.EnableEvents = True
End If
End Sub
 
 et en remplaçant "Arial" par le nom de la police que tu veux utiliser (C39HrP48DhTt c'est bizarre comme nom ? )

Ceci est totalement inutilisable dans Word ... que je ne connais malheureusement pas suffisamment pour te proposer un code.

Bonne soirée,

mth
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes