Rajouter une valeur juste avant la dernière parenthèse.

Fermé

Maxime - 23 févr. 2021 à 15:01
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 23 févr. 2021 à 17:57

Bonjour,

J'ai une formule du type:

=Data( ($AV244 ); ( $H244) )

J'aimerais pouvoir, à chaque fois que j'ai une cellule qui contient "Data((cellule1);(cellule2))" rajouter à la fin de la de la cellule 2 : -1,5
Ce qui donnerait : "Data((cellule1);(cellule2); -1,5)

J'imagine que cela doit être possible avec :

Selection.Replace What:=sAvant, Replacement:=sApres, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Mais je ne vois pas bien comment m'y prendre.

Merci d'avance pour votre aide.

Configuration: Windows / Edge 18.17763

A voir également:

Rajouter une valeur juste avant la dernière parenthèse.
Dernière version ccleaner gratuit français - Télécharger - Nettoyage
Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
Formule excel si contient texte alors valeur ✓ - Forum Excel
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels

2 réponses

Réponse 1 / 2

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
23 févr. 2021 à 15:13

bonjour,
ne devrais-tu pas commencer par faire une boucle pour parcourir toutes les cellules?

Réponse 2 / 2

Maxime
23 févr. 2021 à 15:33

Bonjour,

J'ai testé ceci, pour parcourir les cellules et effectuer la modification.
Je ne vois juste pas comment rajouter la valeur sur la dernière parenthèse.

Cells.Select
With ActiveCell
 
sAvant = "'=Data( ("
sApres = "" ' je ne vois pas comment rajouter la valeur à la fin. 


Selection.Replace What:=sAvant, Replacement:=sApres, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End With

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
23 févr. 2021 à 16:42

ne suffit-il pas de tester si cela commence par

=data(

, et, si oui, remplacer le dernier caractère par

-1,5)

Maxime > yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024
23 févr. 2021 à 17:10

Ca semble être la meilleur idée aussi, mais je ne vois pas comment lui demander de se baser sur le dernier caractère et d'appliquer derrière -1.5.

Si tu peux m'aguiller ?

Merci d'avance,

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471 > Maxime
23 févr. 2021 à 17:57

connais-tu les instructions de manipulation de chaines de caractère en VBA?

Discussions similaires

[clavier] parenthèses {}

Crochets carrés

chaima csc

parenthese crochet

Faire un crochet sur le clavier

Discussions similaires

Newsletters