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 !  
 
EDIT : =DROITE(nom de ta cellule,7) en l'occurence

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.

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.

 
Bah t'en fais une, et ensuite : recopie incrémentée !

moi je veux bien Guru mais fo maide un peu plus because je pense pas q si je tape ca va marcher direct

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.

ca je sais bien !! mais je dois juste faire un copier coller ?? je pense pas qd meme ?

Si si parfois c'est simple l'informatique
 
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.

ben c pas pour etre relou mais ca ne marche pas !! aide moi stp

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 !

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

Ok ca part de suite...
 
Edit : faudra que tu m'expliques pourquoi ca marchait pas...

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 ??
 
 

Sauf erreur de ma part j'ai pas testé la tu remplaces Range("A" & i) par ActiveCell.

quand je remplace par activecell il me sors une erreur 400 ??

c bon !!!!!!!!!!!!!!!!    
merci beaucoup c trop forrrrrrrrrrt
 
merci au chez de l'excel !!!

 
C'était quoi l'erreur ?

pr l'erreur 400 c moi ki avais fait une connerie    
j'avais pas remplacer tout les range....
 
mais maintenant c ok    
 
merci beaucoup encore

sinon j'ai un autre truc encore plu balaize. au lieu de supprimer la partie, je voudrais la copier dans la cellule de droite ??

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

t trop un bossss !!!!!!!!!!!!!

et une tite question encore. si tu sais coupe tu sais surement ajouter un text en debut de cellule ??

Exemple :
 

c chiant ya un pb !!

Quoi donc ?

ca ne marche pas avec des chiffres, seulement avec du texte

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...

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  

guru un vrai guru
ca fait du bien de revoir des macros  
trop fort

Tu as essayé cela ca semble fonctionner :
 

si t'es pas un mec balaize toi !!!!!!!!!
MOi je dis vive GURU !!!!!!!!!