[VBA-E] Problème macro excel

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

Oui c'est possible...

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

Code:

---

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:

---

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

hello,

Citation:

---

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:

---

cel.value = "test"

---

par ca

Code:

---

cel.value = "test" & cel.value

---

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

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 ...

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) ...

Ok no prob résolu alors?

J'ai une question : pourquoi veux-tu séparer les différents éléments de ton N° de téléphone ?

Tu dis

A+

C'était un exemple pour le numéro de téléphone.
En fais j'ai un autre colonne qu'il faut que je sépare en 2 car elle contient le numéro de commande qui est composé de la date et du numéro de la commande dans la journée (ex : 1705200608 pour la 8e commande du 17/05/2006)

Ok. Tu n'as plus de pb ? Alors :resolu: ;)

Je n'aVAIS plus de problèmes !

Maintenant, j'ai encore une question ... (comme c'était prévisible, et prévu !)

Dans une colonne, j'ai le type de paiement : chq, cb ou prel
J'aimerais changé cette colonne pour mettre à la place Chèque, Carte Bleue ou Prélévement ...

Il faudrai quand meme que tu comprenne bien ce que tu fais alors je vais te l'expliquer en détails

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub RenommeCol () 'Ici j'ai pri de A1 a A1000 Mais fo mettre la bonne colonne 'Donc on parcoure toutes les cellules de la range   For Each cel In Feuil1.Range("A1:A10000").Cells 'Nouveau pour toi peu etre cette fonction 'Ca remplace 3 if ici ou on mettrait chaque fois le meme chose 'Donc en fct de ce que contien la cellule on fait ci ou ca   Select case cel.value ' Condition Case valeur : action a faire Case "chq: cel.value = "Cheque" Case "prel": cel.value = "Prélèvement" Case "cb": cel.value = "Carte Banquaire" 'Case Else si ce n"est aucun des trois 'Case Else: Debug.print "Parametre inconnu trouvé : " & cel.value End Select   Next cel end sub

---

Allé Hop Résolu lol

Si tu veux encore mieu, voila tu peux dire quelle colonne tu veux parcourir a la recherche de tes valeurs:

Code:

---

ReplaceValuesInColumn ("C")

---

ou encore

Code:

---

ReplaceValuesInColumn (3)

---

Ca fonctionnne aussi

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ReplaceValuesInColumn (ColumnName As Variant)   For Each cel In Feuil1.Columns(ColumnName).Cells Select case cel.value Case "chq": cel.value = "Cheque" Case "prel": cel.value = "Prélèvement" Case "cb": cel.value = "Carte Banquaire" End Select Next cel   End Sub

---

Oui, c'est mieux... Je trouvais ta méthode

Citation:

---

For Each cel In Feuil1.Range("A1:A10000").Cells

---

un peu bourrin mais bon...
Par contre ton Select case m'a assis par terre. Comme quoi les idées sont à prendre partout. ;)
L'inconvénient de la méthode est que tu visites 65535 lignes là ou un find ne "visiterait" que les cellules concernées... ;) Par contre, find serait à relancer pour chaque mot à remplacer... Je garde l'idée. Tout serait parfait si tu déterminais la dernière ligne renseignée.

A+

Oui, mais bon c'etait un exemple lol... Ca évitait de parcourir toute la colonne

ouskel'n'or je vais encore te mettre sur le cul alors MDR

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ReplaceValuesInColumn(ColumnName As Variant) Dim GotoLine As Integer     GotoLine = Feuil1.Cells(1, Feuil1.Columns(ColumnName).Column).CurrentRegion.Rows.Count     i = 0 For Each cel In Feuil1.Columns(ColumnName).Cells i = i + 1 Select Case cel.Value Case "chq": cel.Value = "Cheque" Case "prel": cel.Value = "Prélèvement" Case "cb": cel.Value = "Carte Banquaire" End Select If i > GotoLine Then Exit For Next cel   End Sub

---

Je viens de tester ton code, Vesta... Désolé mais il ne fonctionne pas chez moi. (VB97 ???)
Je l'ai modifié en retenant l'idée du select case

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub ReplaceValuesInColumn() 'Si A est la colonne visée DernièreLigne = Range("A65535").End(xlUp).Row For Each Cel In Feuil1.Range(Cells(1, 1).Address, Cells(DernièreLigne, 1).Address).Cells Select Case Cells(Cel.Row, 1).Value Case "chq" Cells(Cel.Row, 1).Value = "Cheque" Case "prel" Cells(Cel.Row, 1).Value = "Prélèvement" Case "cb" Cells(Cel.Row, 1).Value = "Carte Banquaire" End Select Next Cel End Sub

---

Une précaution à prendre si des majuscules se sont glissées par inadvertance dans les chq, Prel ou Cb : Utiliser

Code:

---

1 2	Select Case lcase(Cells(Cel.Row, 1).Value)

---

A+

Edit : J'ai supprimé le case else qui fais un msgbox pour chaque ligne ne contenant pas l'une des données cherchées :mur:

ca marche mais faut préciser la colonne hein on est d'acord j'ai Exel 2003

ReplaceValuesInColumn(ColumnName As Variant)

donc

ReplaceValuesInColumn(1)


Mais c vrai que le xlupp c bon aussi hein...

J'ai encore une autre question mais qui me paraît ne pas avoir de réponse !

J'ai deux fichiers, avec dans chacun, au départ, nom et prénom dans la même colonne.
Dans le premier fichier, j'ai scinder cette colonne en 2 pour avoir nom et prénom séparément.
Je suis en train de faire pareil dans le second. Mais le problème, c'est que les noms n'ont pas été saisis tous de la même manière (enfin avec la même casse, les mêmes tirets, etc ...)
Le problème, c'est que j'ai des infos importantes dans chaque fichier et j'aimerais les regrouper en un seul ...

Vous avez une idée de comment je pourrais faire ?

Quel nombre de lignes, tes fichiers ?

A+

Un peu plus de 2000 ....

Tu peux déja associer les lignes ou les Prénoms et Noms sont identiques et laisser dans les originaux les non identiques... Compris?

Et l'améliorer en comparant des chaines sans accents, sans majuscules.

cad

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

if CompareM(String1, String2) = 1 then ... end if   Function CompareM(String1, String2) if len(String1) = Len(String2) then String1 = Replace(String1,"é", "e") String1 = Replace(String1,"è", "e") String2 = Replace(String1,"é", "e") String2 = Replace(String1,"è", "e") if String1 = String2 then CompareM=1 Else CompareM=0 end if end function

---

Le code est a optimiser, tu met les caractères accentués dans un tableau a 2 dimenstions et tu fais une boucle...

Code:

---

1 2 3 4 5

CharToReplace(0,0) = "é" CharToReplace(0,1) = "e" CharToReplace(1,0) = "è" CharToReplace(1,1) = "e" etc...

---

Déja la fonction de remplacement des accents.

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Function ReplaceChars(varStringToReplace As String) CHAINE_DEPART = "àäâãçéèêëìïîôöòûüùÿÁÀÄÂÃÉÈÊËÍÎÌÔÖÒÓÕÜÛÙÚÝ" CHAINE_ARRIVE = "aaaaceeeeiiiooouuyyAAAAAEEEEIIIOOOOOUUUUY"   For i = 1 To Len(CHAINE_DEPART) varStringToReplace = Replace(varStringToReplace, Mid(CHAINE_DEPART, i, 1), Mid(CHAINE_ARRIVE, i, 1)) Next i   ReplaceChars = varStringToReplace End Function

---

Citation:

---

Envoyé par Vesta

Tu peux déja associer les lignes ou les Prénoms et Noms sont identiques et laisser dans les originaux les non identiques... Compris?

---

Et je fais ça comment pour "regrouper", enfin, plutôt cumuler les cellules de mes 2 fichiers ?

Sans connaître la structure de tes données ta question n'aura qu'une réponse vague. Si tu veux quelque chose de précis, donne la structure de tes lignes pour chacune des feuilles que tu veux rassembler.

A+

Juste une indication. Tes feuilles doivent avoir la même structure. Mêmes colonnes, mêmes entêtes (pour les entêtes, c'est mieux)
Les N° de colonnes doivent correspondre pour le même type de données.
Si certaines colonnes n'existent pas dans l'une des feuilles, tu dois la créer, même si elle doit rester vide dans l'une des feuilles.
Une fois ceci fait, tu pourras cumuler les données des deux feuilles.

Tu dis

A+

Donc j'ai 2 fichiers excel avec dans le premier, le nom, le prénom + d'autres colonnes (texte et nombres) et dans le deuxième, nom prénom (mais pas forcément formattés de la même manière que dans le premier fichier) ainsi que d'autres colonnes de texte et de nombres (mais ce sont des données différentes de celles présentes dans le premier fichier).
Voilà, j'espère que j'ai été clair ...

ben ca je pense qu'on avait compris... Le nombre de colonnes du fichier 1 et celui du fichier 2. stp.

Ca ne doit etre fait qu'ine fois?
Tu peux mettre les deux feuilles dans un classeur avent de lancer la procédure de jointure? Ce sera plus facile???

As-tu lu mon mp ?

Je viens de lire ton MP, ouskel'n'or.
Ca peut m'intéresser. Je te redis.

Citation:

---

Envoyé par Vesta

ben ca je pense qu'on avait compris... Le nombre de colonnes du fichier 1 et celui du fichier 2. stp.

Ca ne doit etre fait qu'ine fois?
Tu peux mettre les deux feuilles dans un classeur avent de lancer la procédure de jointure? Ce sera plus facile???

---

8 colonnes dans le fichier 1.
7 colonnes dans le fichier 2.
(dont 'nom', 'prénom' et 'société' dans chaque fichier)

Oui, ça ne doit être fait qu'une fois, puisque je veux passer ces fichiers excel sous forme d'une base de données MySql.

Oui, bien sûr, je peux mettre les 2 feuilles dans le même classeur, un simple "copier-coller" suffit.
Maintenant, je ne sais pas si ce sera plus facile, c'est vous qui me dites. Je suis là pour avoir de l'aide ...

Envoie moi les deux feuilles ds un classeur, avec des données a la con mais les bons entetes de colonnes et je te fais un début apres tu l'ameliorera....

Ok.
Merci.
Je prépares ça et je t'envoies ...

Pour la routine supprimant les doublons, ce sera lundi, là je ne suis plus au boulot. Mais puisque tu ne vas faire ça qu'une fois, évite d'enlever les accentués, tu vas supprimer tous les accents pour quelques exceptions. Ça ne vaut pas la peine. Si tu fais de la recherche par la suite, que tu mets les accents, tu ne vas rien trouver. Et puis le français est une langue "accentuée" ;)

A+

Barbare mais ca marche...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Public Function ReplaceChars(varStringToReplace As String) CHAINE_DEPART = "àäâãçéèêëìïîôöòûüùÿÁÀÄÂÃÉÈÊËÍÎÌÔÖÒÓÕÜÛÙÚÝ" CHAINE_ARRIVE = "aaaaceeeeiiiooouuyyAAAAAEEEEIIIOOOOOUUUUY"   For i = 1 To Len(CHAINE_DEPART) varStringToReplace = Replace(varStringToReplace, Mid(CHAINE_DEPART, i, 1), Mid(CHAINE_ARRIVE, i, 1)) Next i   ReplaceChars = varStringToReplace End Function     Sub AssembleDonnes2() Feuil3.Cells.Clear   With Feuil1 .Columns("A:A").Insert Shift:=xlToRight   .Cells(1, 1) = "Key1" For i = 2 To .Range("A1").CurrentRegion.Rows.Count .Cells(i, 1) = UCase(ReplaceChars(Replace(Join( _ Array(.Cells(i, 3), .Cells(i, 4), .Cells(i, 5))), " ", ""))) Next i   .Range("A2").CurrentRegion.Sort Key1:=.Range("A2"), Header:= _ xlGuess .Columns("A:I").Copy Feuil3.Range("A1")   .Columns("A:A").Delete Shift:=xlToLeft End With   With Feuil2 .Columns("A:A").Insert Shift:=xlToRight   .Cells(1, 1) = "Key2" For i = 2 To .Range("A1").CurrentRegion.Rows.Count .Cells(i, 1) = UCase(ReplaceChars(Replace(Join( _ Array(.Cells(i, 2), .Cells(i, 3), .Cells(i, 4))), " ", ""))) Next i   .Range("A2").CurrentRegion.Sort Key1:=.Range("A2"), Header:= _ xlGuess .Columns("A:I").Copy Feuil3.Range("J1")   .Columns("A:A").Delete Shift:=xlToLeft End With End Sub

---

Seule condition mettre les 2 feuilles dans le meme fichier résultats en feuil3