> Tous les forums > Forum Bureautique
 Renvoi à la ligne dans une cell suivant caractèreSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Yaloo
  Posté le 17/04/2011 @ 08:31 
Aller en bas de la page 
Petit astucien

Bonjour,

En voyant ce post , je pense que Ferrand apporte une solution très proche de ma demande avec sa macro

Sub EpurerChaine()
Dim c As Range, ch$, h%
For Each c In Selection
ch = c.Value
h = InStr(ch, ";")
Do While h > 0
ch = Right(ch, Len(ch) - h)
h = InStr(ch, ";")
Loop
c.Value = Trim(ch)
Next c
End Sub

Je voudrait un retour à la ligne à chaque "standard" et à chaque "sur mesure", est-ce que le code de Ferrand peut être adapté ou est-ce possible autrement ?

Ci-dessous un exemple :

Merci d'avance



Modifié par Yaloo le 18/04/2011 23:17
Publicité
ferrand
 Posté le 17/04/2011 à 09:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

yaloo,

Pas tout à fait la même chose. Essaie celle-ci :

Sub CouperChaine()
Dim c As Range, ch$, h%
For Each c In Selection
ch = c.Value
h = InStr(ch, " sur mesure")
If h = 0 Then h = InStr(ch, " standard")
If h > 0 Then Mid(ch, h, 1) = Chr(10)
c.Value = ch
Next c
End Sub

Yaloo
 Posté le 17/04/2011 à 10:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut Ferrand,

{#} super comme d'hab.

Ca marche très bien.

{#}

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
179,99 €Tablette Lenovo TAB M10 Plus X606 (FullHD, 8 coeurs, 4 Go RAM, 64 Go stockage, Android 9) à 179,99 €
Valable jusqu'au 25 Avril

Amazon fait une promotion sur la tablette Lenovo M10 Plus qui passe à 179,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 210 €. Cette tablette possède un écran FullHD de 10,3 pouces IPS (1920x1200), un processeur octo-core MediaTek Helio P22T, 4 Go de mémoire vive, ainsi que 64 Go de stockage interne extensible par MicroSD. La tablette dispose d'une grande batterie de 7 000 mAh et d'un port USB-C, du Bluetooth 5.0 et du WiFi AC. Le tout tourne sous Android 9.0.


> Voir l'offre
25,49 €Casque sans fil Sony WH-CH500 Bluetooth à 25,49 € avec le code 15CASQUE
Valable jusqu'au 22 Avril

Cdiscount fait une promotion sur le casque sans fil Sony WH-CH500B Bluetooth qui passe à 25,49 € avec le code 15CASQUE alors qu'on le trouve ailleurs à plus de 60 €. Ce casque sans fil rechargeable (via USB-C) offre jusqu'à 35h d'autonomie. Il possède un microphone intégré et permet des appels mains libres avec annulation de l’écho et suppression des bruits extérieurs.


> Voir l'offre
324,55 €SSD SanDisk Ultra 3D 4 To à 324,55 € livré
Valable jusqu'au 21 Avril

Amazon Allemagne fait une belle promotion sur le SSD SanDisk Ultra 3D d'une capacité de 4 To qui passe à 3109,96 €. Comptez 4,59 € pour la livraison en France soit unt toal de 324,55 € livré. On le trouve ailleurs autour de 450 €. Une bonne affaire pour ce SSD performant qui offre des débits de 560 Mo/s en lecture et 530 Mo/s en écriture. Cette version est garantie 3 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre

Sujets relatifs
nb de liens dans une plage appartennant à la même ligne Horiz. ou verti...
Figer colonne ou ligne dans excell
doublons dans une ligne
Caractère invisible dans Excel et Word.
Distance texte et ligne hori dans Micro Word 03
ajouter automatiquement une ligne dans tableau
fonction LIGNE provoque une erreur dans SOMMEPROD
Si couleur dans ligne alors ....
Afficher ligne d'une ListView dans MsgBox
dans word, comment tracer ligne verticale
Plus de sujets relatifs à Renvoi à la ligne dans une cell suivant caractère
 > Tous les forums > Forum Bureautique