Suppression de caractère

[ddcdam]

Bonjour,

Je vous expose mon problème en espérant que vous pourrez me venir en aide :

Dans un tableau, j'ai des adresses IP, il faut que je créer une formule afin de décliner les adresses avec les caractère de fin différents, je m'explique en image :

192.168.1.15
192.168.4.152
192.165.112.12

Exemple d'adresses IP :

Il faut qu'avec une formule, je puisse décliner ces adresses avec ce format :

192.168.1.50
192.168.4.50
192.165.112.50

et

192.168.1.110
192.168.4.110
192.165.112.110

En gros, il faut que je puisse supprimer tous les caractère après le dernier point, (variable, parfois 2 parfois 3) et les remplacer par des caractères fixe.

D'avance merci,

Cordialement,

 

[natorp]

Re : Suppression de caractère

Bjr ddcdam

Bienvenu sur XDL, un petit fichier exemple serait le bienvenu

est-ce que la fin des adresses IP est tjrs 50 et 110 ?

cordialement, Gérard

 

[mutzik]

Re : Suppression de caractère

bonjour

colle cette fonction dans un module standard

puis, si ton adr IP est en D5, en E5 tu mets RemplacerPar50(D5)

Function RemplacerPar50(cell As Range)
Dim cpt, nbcr, pos
For cpt = Len(cell) To 1 Step -1
If Mid(cell, cpt, 1) = "." Then pos = cpt - 1
Next
RemplacerPar50 = Left(cell, Len(cell) - pos)
RemplacerPar50 = RemplacerPar50 & ".50"

End Function

 

[JHA]

Re : Suppression de caractère

Bonjour à tous,

Un essai en pièce jointe si j'ai bien compris

=GAUCHE(A1;8+CHERCHE(".";STXT(A1;9;99);1))&"110"

JHA

 

[hoerwind]

Re : Suppression de caractère

Bonjour et bienvenu sur le forum, salut natorp,

A1 : Chaine de caractères

B1 : =GAUCHE(A1;CHERCHE("µ";SUBSTITUE(A1;".";"µ";3)))&50

Étant entendu qu'il y a toujours 3 points et que 50 est la valeur à ajouter

 

[mutzik]

Re : Suppression de caractère

re,

salut JHA, bonne formule que j'ai mis de coté, mais qui ne vaut qui si les deux premières parties de l'@ IP ont toutes les deux 3 caractères

 

[ddcdam]

Re : Suppression de caractère

Bonjour et bienvenu sur le forum, salut natorp,

A1 : Chaine de caractères

B1 : =GAUCHE(A1;CHERCHE("µ";SUBSTITUE(A1;".";"µ";3)))&50

Étant entendu qu'il y a toujours 3 points et que 50 est la valeur à ajouter

Tout simplement parfaite, j'ai tout de même une petite modification à apporter à cette formule,

En faite, dans mon tableau, certaines lignes ne font pas apparaître l'adresse IP initiale et c'est normale, mais le problème c'est qu'en déroulant la formule à l'ensemble d'une colonne (3500 lignes), j'ai des cellules qui apparaissent en #VALEUR! (logique), comment faire pour que la formule initiale donne l'ordre de laisser vide si la cellule source est vide ?

Cordialement,

 

[JHA]

Re : Suppression de caractère

Re,

avec 2007:

=sierreur(formule;"")

 

[ddcdam]

Re : Suppression de caractère

Merci pour votre précieuse aide, j'ai pu mettre correctement en forme mon tableau,

Je vous souhaite à tous une bonne continuation,

Cordialement,