Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ip+

ip+

3 réponses
Avatar
cybertiti
salut

dans mon champ a3 g une adresse ip ex 10.0.0.1 comment faire pour lui
ajouter 3 et avoir 10.0.0.4

merci
@+
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
cybertiti wrote:
salut

dans mon champ a3 g une adresse ip ex 10.0.0.1 comment faire pour lui
ajouter 3 et avoir 10.0.0.4

merci
@+




Bonsoir,

Sous forme d'une fonction perso (avec limitations!)

Alt-F11 | insertion | module
Y copier ce qui suit
'--- d'ici ---
Public Function ajoutip(ip1, nombre)
Dim tablo
tablo = Split(ip1, ".")
ajoutip = tablo(0) & "." & tablo(1) & "." & tablo(2) & _
"." & (CSng(tablo(3)) + nombre)
End Function
'--- jusque là ---

Usage :
ton adresse ip en cellule A3
=ajoutip(A3;3)
renvoie 10.0.0.4

@+
FxM

Avatar
cybertiti
merci fxm
@+
"FxM" a écrit dans le message de
news:
cybertiti wrote:
salut

dans mon champ a3 g une adresse ip ex 10.0.0.1 comment faire pour lui
ajouter 3 et avoir 10.0.0.4

merci
@+




Bonsoir,

Sous forme d'une fonction perso (avec limitations!)

Alt-F11 | insertion | module
Y copier ce qui suit
'--- d'ici ---
Public Function ajoutip(ip1, nombre)
Dim tablo
tablo = Split(ip1, ".")
ajoutip = tablo(0) & "." & tablo(1) & "." & tablo(2) & _
"." & (CSng(tablo(3)) + nombre)
End Function
'--- jusque là ---

Usage :
ton adresse ip en cellule A3
=ajoutip(A3;3)
renvoie 10.0.0.4

@+
FxM



Avatar
AV
dans mon champ a3 g une adresse ip ex 10.0.0.1 comment faire pour lui
ajouter 3 et avoir 10.0.0.4


=GAUCHE(A3;TROUVE("ÿ";SUBSTITUE(A3;".";"ÿ";NBCAR(A3)-NBCAR(SUBSTITUE(A3;".";""))
)))&DROITE(A3;NBCAR(A3)-TROUVE("ÿ";SUBSTITUE(A3;".";"ÿ";NBCAR(A3)-NBCAR(SUBSTITU
E(A3;".";"")))))+3

AV