Copier "certaines" données d'une colonne vers une autre

Bonjour,

Pour vous expliquer rapidement mon problème, j'ai une colonne comprenant des Adresses IP ainsi que des noms quelconques qui peuvent parfois avoir des chiffres.

Je voudrais pouvoir copier uniquement les Adresses Ip et les coller dans la colonne situé juste a la droite de celle ou ils sont ainsi que sur les cellules adjacentes. Soit pour être plus clair, si j'ai une Adresse IP dans la cellule A9 alors elle devra être copié dans la cellule B9.

Je pense qu'il faut effectuer une boucle for ce qui n'est vraiment pas mon fort (Sans mauvais jeux de mot) qui va donc examiner toutes les cellules de ma colonne A, déterminer si c'est une Adresse IP donc de type X.X.X.X ou un nom afin de copier et coller uniquement les Adresses IP vers leurs cellules adjacentes dans la colonne B.

Je vous joint un fichier Excel afin d'être le plus clair possible.

Vous remerciant par avance,

Cordialement,

Schop

Bonsoir le forum,

Peut-être ?

=SI(GAUCHE(A1;2)="10";A1;"")

A tirer vers le bas.

mbbp

Bonsoir

Essaye :

Sub Copier_Coller()
Dim Derlg As Integer
Dim c As Range

Derlg = Range("A65536").End(xlUp).Row
Range("B1:B" & Derlg).ClearContents

For Each c In Range("A1:A" & Derlg)
If IsNumeric(Replace(c, ".", "")) Then c.Offset(0, 1) = c
Next c
End Sub

Amicalement

Nad

Merci a vous deux d'avoir répondu si rapidement !!

Ta proposition Nad fonctionne merveilleusement bien !!!!

Je m'attendais à quelque chose de beaucoup plus conséquent

Merci encore d'avoir pris le temps de me répondre,

Amicalement,

Schop