Format cellule

[djo973]

Bonjour,

J'ai un tableau dans lequel une des colonnes contient des adresses Mac sous le format xx.xx.xx.xx.xx.xx et je souhaiterai avoir le format suivant xxxx.xxxx.xxxx

J'aimerais introduire la solution dans une macro existante.

Merci de votre aide
🙂

 

[Softmama]

Re : Format cellule

un exemple avec ton entrée dans la colonne A sous la forme xx.xx.xx.xx.xx.xx :

Dim c as Range
set c=range("A1")
do while c<>""
  c= replace(c,".","")
  if len(c)=12 then c = left$(c,4) & "." & mid(c,5,4) & "." & right$(c,4)
  set c=c.offset(1,0)
loop

 

[djo973]

Re : Format cellule

Merci de ton aide mais il y a un petit soucis: ton code me renvoie seulement les 2 premiers caractères!

Je vais voir pour modifier ton code.

 

[Softmama]

Re : Format cellule

re,

oui j'avais dans un premier temps utilisé la fonction split au lieu de replace... une grossière erreur de ma part, que j'ai vite corrigée... pas assez vite apparemment 🙂

 

[djo973]

Re : Format cellule

Oui merci pour la modification!

Ton code fonctionne seulement je trouve dans certaines cellules un format de type "xxxxxxxxxx" ou encore "x,xxE+07...+10...".

Soit il me supprime les 2 premiers zéro soit il m'en ajoute à la fin.
J'ai ce soucis sur une centaine de cellules sur 1000. C'est assez aléatoire, j'ai des adresses Mac commençant par 00.0... et dans certains le changement se fait bien...

 

[djo973]

Re : Format cellule

J'ai résolu le problème en mettant un format "Text" par défaut avant d'exécuter ton code.

En tout cas, un grand merci pour ton aide 😉

 

[djo973]

Re : Format cellule

J'ai réutilisé ton code pour remplir les cellules d'une colonne :

Tant que les cellules de la colonne A contiennent le mot "address", écrire "vlan-name" dans les cellules de la colonne C...

Ma boucle fonctionne, seulement, "vlan-name" s'arrête à la 1ere cellule de la colonne C.

Voici mon code:

Sheets("Sheet3").Select
Dim v As Range
Dim colA As Range
Set v = Range("C1")
Set colA = Range("A1")
Do While colA = "address"
v = "vlan-name"
Set v = v.Offset(1, 0) --> erreur ici

Si quelqu'un peur m'aider...MERCI 😉

 

[Softmama]

Re : Format cellule

Bonjour,

essaie :

Dim colA As Range
  Set colA = Sheets("Sheet3").Range("A1")
  Do While colA = "address"
      ColA.offset(0,2) = "vlan-name"
      Set ColA = ColA.Offset(1, 0)
  Loop

Ceci dit, je ne suis pas certain que c'est bien ce que tu souhaitais faire. A ce moment là essaie ceci :

Dim c As Range
  For each c in Sheets("Sheet3").Range("A1:A" & Sheets("Sheet3").Range("A65536").End(xlup).row)
      if c = "address" then c.offset(0,2) = "vlan-name"
  Next c

 

[djo973]

Re : Format cellule

Si c'est parfait, ton 1ere code correspond bien à ce que je voulais!

Un grand merci pour ton aide 😉