Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1813 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Excel -> ajouter un caractère dans une cellule

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro Excel -> ajouter un caractère dans une cellule

n°2143399
cedricfili​en
Posté le 23-05-2012 à 13:15:29  profilanswer
 

Bonjour
Je me permets de poster ici car j'ai un souci avec un document Excel
J'ai un fichier qui représente une fiche de réception d'appareil dans laquelle j'ai 4 colonnes :  
 
Dans la première colonne, je remplirai une cellule sur 2 en flashant un code barre et dans cette cellule il faudrait par une macro que j'ajoute une "*" devant et derrière le texte inscrit.
 
De ce fait ce sera la même chose pour les autres colonnes
 
donc serait il possible par la macro demandée au dessus de rajouter les caractères sur la ligne complète
 
Mes lignes concernées : 10.12.14.16.18.20.22.24.26.28.30.32.34.36 et 38
 
J'ai trouvé des macros qui le faisait sur une colonne complète mais je n'arrive pas à l'adapter à mon projet
 
Merci d'avance
 
cordialement

mood
Publicité
Posté le 23-05-2012 à 13:15:29  profilanswer
 

n°2143456
otobox
Maison fondée en 2005
Posté le 23-05-2012 à 18:11:01  profilanswer
 

Il faut que tu testes le numéro de ligne de ta cellule active :


Dim NoLigne as Integer
NoLigne=activecells.rows
Select Case NoLigne
  Case 10, 12, 14, 16, etc.
     Faire l'action
End Select


Je n'ai pas Excel à disposition (je poste de mon portable Ubuntu) donc je ne peux pas te donner la syntaxe exacte, mais c'est quelque chose dans ce goût là.
 
Il faudrait que tu poste le code que tu utilise déjà pour qu'on puisse t'aider un peu plus.


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
n°2143649
cedricfili​en
Posté le 25-05-2012 à 12:23:57  profilanswer
 

Bonjour je te remercie de ta réponse rapide mais entre temps j'ai trouvé une solution à mon problème
 
voici la macro :  
Sub ETOILECODEBARRE()
Dim I As Long
    For I = 10 To 38 Step 2
        Cells(I, "A" ).EntireRow.NumberFormat = """*""@""*"""
    Next
End Sub
 
Merci encore
cordialement


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Excel -> ajouter un caractère dans une cellule

 

Sujets relatifs
Créer une fonction de recherche sur excellancer une application en VBA depuis Excel
Fusionner plusieurs fichiers CVS un seul fichier excelinserer une ligne grace a un bouton vba/excel
bug sur fichier excelFPDF et caractère spéciaux
Macro TCDMacro tableau croisé dynamique
Macro VBA sur catia / Contrainte entre 2 plansVBA excel, petite macro a reparer
Plus de sujets relatifs à : Macro Excel -> ajouter un caractère dans une cellule


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR