si t'es pas un mec balaize toi !!!!!!!!!
MOi je dis vive GURU !!!!!!!!! :love: :love: :love:
Guru
Tu as essayé cela ca semble fonctionner :
Sub Macro1
ActiveCell.Value = "cd" + CStr(ActiveCell.Value)
End Sub
boisorbe
[:tracker] guru un vrai guru :D
ca fait du bien de revoir des macros trop fort
albatoriv
c complike par moi ca. j'en connais pas mal sous vb ms pas autant. la c trop hard. le truc a fre est pourtt pas dur. g une cellule avec un nombre et je veux ajouter "cd" devant :fou:
Guru
Si tu veux construire une chaine à partir du contenu d'une cellule de type numérique, il faut d'abord la transformer en chaine avec la fonction CStr...
albatoriv
ca ne marche pas avec des chiffres, seulement avec du texte
Guru
Quoi donc ?
albatoriv
c chiant ya un pb !!
Guru
Exemple :
ActiveCell.Value = "Du texte a ajouter" + ActiveCell.Value
albatoriv
et une tite question encore. si tu sais coupe tu sais surement ajouter un text en debut de cellule ??
albatoriv
t trop un bossss !!!!!!!!!!!!! :hap:
Guru
Le code suivant devrait convenir pour la celulle courante
Sub Macro1()
Dim tmpVal As String
tmpVal = Right(ActiveCell, NbCaractères)
ActiveCell.Value = Left(ActiveCell.Value, Len(ActiveCell.Value) - NbCaractères)
ActiveCell.Next.Value = tmpVal
End Sub
albatoriv
sinon j'ai un autre truc encore plu balaize. au lieu de supprimer la partie, je voudrais la copier dans la cellule de droite ??
albatoriv
pr l'erreur 400 c moi ki avais fait une connerie :pt1cable: j'avais pas remplacer tout les range....
mais maintenant c ok [:t3xla]
merci beaucoup encore
Guru
albatorIV a écrit a écrit :
quand je remplace par activecell il me sors une erreur 400 ??
C'était quoi l'erreur ?
albatoriv
c bon !!!!!!!!!!!!!!!! :pt1cable: merci beaucoup c trop forrrrrrrrrrt
merci au chez de l'excel !!!
albatoriv
quand je remplace par activecell il me sors une erreur 400 ??
Guru
Sauf erreur de ma part j'ai pas testé la tu remplaces Range("A" & i) par ActiveCell.
albatoriv
g compris dou vien la couille !!! en fait j'etais sur une cellule 200 et il a bien fait son boulot mais sur le 1erede la colonne. mais la 1ere elle est fusionnee !! comment faire pour appliquer ta superbe macro a la cellule active ??
[:elbibi]
Guru
Ok ca part de suite...
Edit : faudra que tu m'expliques pourquoi ca marchait pas... :D
albatoriv
g la version 2002 !! en fait il se passe rien. aucune modif !! tu peu pas me faire un exemple et me l'envoyer ?? albatoriv@hotmail.com
Guru
Quelle version d'Excel utilises tu ?
Quel message d'erreur obtiens tu ?
Edit : je l'ai testé avec Excel 97 FR et Excel 2002 US et ca marche !
albatoriv
ben c pas pour etre relou mais ca ne marche pas !! aide moi stp
Guru
Si si parfois c'est simple l'informatique :D
Tu prends le code que je t'ai donné en exemple, tu le copies où indiqué tu adaptes a ton besoin et tu disposes d'une macro dans ton fichier Excel qui fait a priori ce que tu souhaites.
albatoriv
ca je sais bien !! mais je dois juste faire un copier coller ?? je pense pas qd meme ?
Guru
Menu outils / macro / Editeur Visual Basic
Tu double cliques sur ThisWorkbook tu copies le code en modifiant éventuellement le nom. Tu fermes l'éditeur, et tu disposes alors de la macro correspondante dans Excel, menu outils / macro / exécuter.
albatoriv
moi je veux bien Guru mais fo maide un peu plus because je pense pas q si je tape ca va marcher direct
NINOH
albatorIV a écrit a écrit :
j'ai plus de 300 cellules alors je crois q ca va pas le faire !! en gros il me fo cette fonction sous Visual Basic.
Bah t'en fais une, et ensuite : recopie incrémentée !
Guru
Tu écris une macro dans Excel du genre
Sub Macro1()
For i = 1 To NbLignes
Range("A" & i).Value = Left(Range("A" & i).Value, Len(Range("A" & i).Value) - NbCaractères)
Next
End Sub
Edit : dans l'exemple précédent je pars du principe qu'il s'agit de la colonne A il faut adapter en conséquence et remplacer NbLignes et NbCaractères par les valeurs adéquates.
albatoriv
j'ai plus de 300 cellules alors je crois q ca va pas le faire !! en gros il me fo cette fonction sous Visual Basic.
babut26
albatorIV a écrit a écrit :
je voudrais savoir sil y a une option pr supprimer la fin dune cellule.
exemple : dans une cellule il y a ecrit "bonjour le forum 1" et dans une autre "bonjour le forum 2", je voudrais couper les cellules avant le mot "forum". en gros je veux tronquer des cellules d'un certain nombre de caractere (ici 7)!!
je pense q c faisable avec une tite macro en VB, mais je n'y arrive po.
Merci d'avance
tu mets dans ta cellule la formule "=GAUCHE(nom de ta cellule,7)"
c'est tout ! :hello:
EDIT : =DROITE(nom de ta cellule,7) en l'occurence
albatoriv
je voudrais savoir sil y a une option pr supprimer la fin dune cellule.
exemple : dans une cellule il y a ecrit "bonjour le forum 1" et dans une autre "bonjour le forum 2", je voudrais couper les cellules avant le mot "forum". en gros je veux tronquer des cellules d'un certain nombre de caractere (ici 7)!!
je pense q c faisable avec une tite macro en VB, mais je n'y arrive po.
