Macro excel (supprimer une partie d'ecriture de cellule)
Résolu/Fermé
victor1900
Messages postés
3
Date d'inscription
jeudi 9 mai 2013
Statut
Membre
Dernière intervention
9 mai 2013
-
9 mai 2013 à 14:38
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 9 mai 2013 à 17:57
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 9 mai 2013 à 17:57
A voir également:
- Macro excel (supprimer une partie d'ecriture de cellule)
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
5 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 9/05/2013 à 16:48
Modifié par Mike-31 le 9/05/2013 à 16:48
Re,
Voila pour tes valeurs en colonne A à partir de A1 et extraction en colonne C
Sub ExtractionDroite()
Dim Deb As Byte
Dim Cell As Range
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Deb = InStr(1, Cell, ";")
If Not Deb = 0 Then
Cell.Offset(0, 2) = Right(Cell, Len(Cell) - Deb)
Cell = Left(Cell, Deb) & ""
End If
Next Cell
End Sub
ou colle le code dans les propriétés d'un bouton activex à part que tu préfères une fonction personnalisée
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Voila pour tes valeurs en colonne A à partir de A1 et extraction en colonne C
Sub ExtractionDroite()
Dim Deb As Byte
Dim Cell As Range
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Deb = InStr(1, Cell, ";")
If Not Deb = 0 Then
Cell.Offset(0, 2) = Right(Cell, Len(Cell) - Deb)
Cell = Left(Cell, Deb) & ""
End If
Next Cell
End Sub
ou colle le code dans les propriétés d'un bouton activex à part que tu préfères une fonction personnalisée
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 9/05/2013 à 14:56
Modifié par Mike-31 le 9/05/2013 à 14:56
Salut,
Oui tout à fait possible, veux tu supprimer sur place la partie de chaine, c'est à dire tes données son colonne A et on traite sur place pour ne conserver que la partie souhaitée ou veux tu copier par exemple la partie souhaitée colonne C
Le caractère commun qui limite l'extraction de la partie droite est bien le point virgule ou y a t il des variantes
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Oui tout à fait possible, veux tu supprimer sur place la partie de chaine, c'est à dire tes données son colonne A et on traite sur place pour ne conserver que la partie souhaitée ou veux tu copier par exemple la partie souhaitée colonne C
Le caractère commun qui limite l'extraction de la partie droite est bien le point virgule ou y a t il des variantes
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
victor1900
Messages postés
3
Date d'inscription
jeudi 9 mai 2013
Statut
Membre
Dernière intervention
9 mai 2013
9 mai 2013 à 15:35
9 mai 2013 à 15:35
bonjour Mike
j'aimerais voir la partie souhaitée lisible en colonne C ci possible
et c'est bien un point virgule qui est devant la partie souhaitée
mais ce ; j e n'en veux pas dans la colonne
voilà ce que j'aimerais avoir dans la colonne C
[ -387554016 ]
merci pour ton aide
j'aimerais voir la partie souhaitée lisible en colonne C ci possible
et c'est bien un point virgule qui est devant la partie souhaitée
mais ce ; j e n'en veux pas dans la colonne
voilà ce que j'aimerais avoir dans la colonne C
[ -387554016 ]
merci pour ton aide
victor1900
Messages postés
3
Date d'inscription
jeudi 9 mai 2013
Statut
Membre
Dernière intervention
9 mai 2013
9 mai 2013 à 17:56
9 mai 2013 à 17:56
merci MIKE
tu m'as enlevé une épine du pied
je vais gagner un temps précieux dans ce travail qui me prenais la tête
encore 1000fois merci
cordialement
tu m'as enlevé une épine du pied
je vais gagner un temps précieux dans ce travail qui me prenais la tête
encore 1000fois merci
cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 9/05/2013 à 17:57
Modifié par Mike-31 le 9/05/2013 à 17:57
Re
ok merci à toi, je mets la discussion en résolu, mais rien ne t'empêche de revenir si tu rencontres un problème
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
ok merci à toi, je mets la discussion en résolu, mais rien ne t'empêche de revenir si tu rencontres un problème
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
