Discussion :

[pontus21]

Bonjour,
Je ne vous le caches pas, je suis débutant en excel et j'ai jamais fait de macros de ma vie.

J'aimerais savoir s'il est possible de rajouter des caractères dans chaque case d'une colonne déterminée. Ces caractères étant les même pour toutes les cases et je veux les insérer au début du texte qui est dans chaque case.
Alors est-ce possible ?
Et si oui, comment ?

Sinon, tant que j'y suis, est-ce également possible de pouvoir séparer une colonne en plusieurs ?
Je m'explique, dans une colonne j'ai des nombres (style des numéros de téléphone) et je voudrais les séparer en plusieurs colonnes de la façon suivante : les 2 premiers chiffres restent dans la même colonne, par contre les 2 suivants vont dans la colonne d'après (cette colonne étant vide).
Est-ce que c'est réalisable ?

J'espère que j'ai été clair ...
J'ai vraiment besoin de ça pour pouvoir importer les données de mes fichiers excel dans ma base de données.
Merci d'avance

[Vesta]

Oui c'est possible...

Remplir toutes les cellules de la colonne A de la ligne 2 a 10000 par "TEST"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
sub ecritvaleurs()
For each cel in Feuil1.Range ("A1:A10000").cells
   cel.value = "test"
Next cel
end sub

Séparer une colonne en 2 A vers B 2 premiers caract

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Separe ()
For Each cel In Feuil1.Range("A1:A10000").Cells
   If Not (cel.Value = "") Then
   cel.Offset(0, 1) = Mid(cel.Value, 3, Len(cel.Value) - 2)
   cel.Value = Left(cel.Value, 2)
   End If
Next cel
end sub

Je te laisse chercher un peu pour le reste ok
Dans excel tape Alt+F11 et tu tombera dans un evironnement qui te permettra d'inscrire du code copie ces fonctions dans le code de la feuil1 et met tes valeurs dans la feuil1 et teste...

Bonne chance

[Elstak]

hello,

je veux les insérer au début du texte qui est dans chaque case

je pense que c'est plutot ca que tu cherches (reprend le code de vesta) et modifie ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cel.value = "test"

par ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cel.value = "test" & cel.value

apres pour ton N° de telephone, tout est collé? (0321 ...) ou separé par des . ou des espace (01 10 ...) ?

[pontus21]

Merci Elstak,
Tu as raison, c'est plutôt cela que je cherchais ...
Je viens de tester ce que m'avait répondu Vesta mais ça ne faisait pas ce que je désirais, c'est-à-dire ajouter du texte (en l'occurence des chiffres) au texte déjà présent dans chaque cellule.

Je vais donc essayer ce que tu m'as dit Elstak et puis j'essayerai la réponse 2 de Vesta.

Merci à tous les 2 pour le moment ...

[pontus21]

Bon voilà, j'ai testé !

Merci Elstak pour ta réponse à ma question 1 et Vesta pour ta réponse à ma question 2.

Restez dans les parages, je risque d'avoir d'autre(s) question(s) ...

[Vesta]

Ok no prob résolu alors?