Transformer une colonne de données en un tableau

Bonjour à tous,

Malgré de longues recherches je n'arrive pas à trouver de solutions à mon problème. Je vais essayer d'être le plus clair possible : j'ai une base de données client qui est renseignée sur une seule colonne. Il y a 5 éléments différents : nom, mail, numéro 1, numéro2, un slash. J'ai rentré le slash automatiquement à chaque fois que le client change pour m'aider à délimiter. Je voudrais réussir à renseigner chaque client avec ses informations sur une ligne d'un tableau de 4 colonnes (nom, mail, numéro1, numéro2). Le problème étant que pour certains, je n'ai pas de mail ou de numéros, donc je n'arrive pas à faire ce tableau sans décaler les informations.

Des idées ?

Je vous joins un fichier exemple qui sera surement plus clair que moi, je reste disponible si vous avez la moindre question !

Merci beaucoup !!

60exemple.xlsx (60.00 Ko)

Salut,

Voici une proposition qui marche très bien sur l'exemple:

J'ai supposé que les infos client commencent à partir de A3 comme dans l'exemple

Option Explicit
Option Base 1

Sub remplissage_tab()

Dim nbreligne
Dim i
Dim lineres
Dim colres As Byte

nbreligne = Application.WorksheetFunction.CountA(Columns(1)) + 1
lineres = 3
colres = 3

For i = 3 To nbreligne
    If Range("A" & i).value <> "/" Then
        If InStr(1, Range("A" & i).value, "@", 1) <> 0 Then
        Cells(lineres, 4).value = Range("A" & i).value
        Else
            If InStr(1, Range("A" & i).value, "Tél.", 1) <> 0 Then
            Cells(lineres, 5).value = Range("A" & i).value
            Else
                If InStr(1, Range("A" & i).value, "Mob.", 1) <> 0 Then
                Cells(lineres, 6).value = Range("A" & i).value
                Else
                Cells(lineres, 3).value = Range("A" & i).value
                End If
            End If
        End If
    Else
    lineres = lineres + 1
    End If
Next i

End Sub

Impec' nono78 ça fonctionne parfaitement !

Un énorme merci !

Avec grand plaisir

Rechercher des sujets similaires à "transformer colonne donnees tableau"