Formule excel assez bizzard et compliquée :p
Résolu/Fermé
A voir également:
- Formule excel assez bizzard et compliquée :p
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule excel si et - Guide
- Formule moyenne excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
7 réponses
Utilisateur anonyme
1 nov. 2010 à 16:20
1 nov. 2010 à 16:20
heu ....... pourquoi pas faire simplement données ->convertir-> délimité ->mettre " dans autre -> fin et tout est séparé
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
1 nov. 2010 à 15:36
1 nov. 2010 à 15:36
Re, Finalement j'ai une solution..
A+
Sub Separe2()
Dim i As Integer, Deb As Integer, Fin As Integer, V As Double, L As Integer
Dim Lig As Long, Col As Integer
Dim R As Range
Lig = 3: Col = 1
Set R = Range("A1")
L = Len(R)
For i = 1 To L
If Mid(R, i, 1) = Chr(34) Or i = L Then
If Deb = 0 Then
Deb = i + 1
Else
Fin = i - IIf(i < L, 1, 0)
V = CDbl(Replace(Mid(R, Deb, Fin - Deb + 1), ".", ","))
Cells(Lig, Col) = V
Lig = Lig + 1
Deb = Fin + 2
End If
End If
Next i
End Sub
A+
oceathys
Messages postés
3
Date d'inscription
lundi 1 novembre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
1 nov. 2010 à 15:47
1 nov. 2010 à 15:47
Merci beaucoup, c'est c'est super sympa, mais comment je l'intègre ? :p
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
1 nov. 2010 à 16:13
1 nov. 2010 à 16:13
Tu as beaucoup de données à séparer ?
Si oui, donne la plage à traiter et la colonne et ligne où commnencer la transcription.
S'il n'y en a qu'une tu adapte la cellule A1 et Lig à la première ligne des résultat et idem pour Col.
Ensuite soit tu lie la sub à un bouton soit tu met le curseur dans la sub et tu tape F5
A+
Si oui, donne la plage à traiter et la colonne et ligne où commnencer la transcription.
S'il n'y en a qu'une tu adapte la cellule A1 et Lig à la première ligne des résultat et idem pour Col.
Ensuite soit tu lie la sub à un bouton soit tu met le curseur dans la sub et tu tape F5
A+
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
1 nov. 2010 à 16:09
1 nov. 2010 à 16:09
une autre solution a voir sur ce lien
http://www.cijoint.fr/cjlink.php?file=cj201011/cijtGogUEs.xls
la plage B1:B20 a été nommée Tab elle peut etre modifiée
cordialement
http://www.cijoint.fr/cjlink.php?file=cj201011/cijtGogUEs.xls
la plage B1:B20 a été nommée Tab elle peut etre modifiée
cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 1/11/2010 à 16:28
Modifié par michel_m le 1/11/2010 à 16:28
Bonjour,
peut-^tre + simple:
Michel
re,
et si tu en as toute une série dans la colonne A (sinon, c'est pas drôle)
peut-^tre + simple:
Sub separer_guillemet()
Dim tablo() As String
tablo = Split(Right(Range("A1"), Len(Range("A1")) - 1), Chr(34))
Range("B1").Resize(1, UBound(tablo) + 1) = tablo
End Sub
Michel
re,
et si tu en as toute une série dans la colonne A (sinon, c'est pas drôle)
Sub separer_guillemet(source, cible) Dim tablo() As String tablo = Split(Right(source, Len(source) - 1), Chr(34)) cible.Resize(1, UBound(tablo) + 1) = tablo End Sub Sub test() Dim derlig As Long, lig As Long derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For lig = 1 To derlig separer_guillemet Cells(lig, 1), Cells(lig, 2) Next End Sub
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
1 nov. 2010 à 16:21
1 nov. 2010 à 16:21
Salut michel... Bien vu.
oceathys
Messages postés
3
Date d'inscription
lundi 1 novembre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
Modifié par oceathys le 1/11/2010 à 16:46
Modifié par oceathys le 1/11/2010 à 16:46
HA wééééé c'est ce qu'on me dit aussi sur msn, mais j'ai excel sur mac, et je n'ai pas : donnée convertir (en plsu je l'ai en anglais :( )
http://cjoint.com/data3/3lbqAQunOVl.htm en B1 voila ce que ej veux que ca fasse
http://cjoint.com/data3/3lbqAQunOVl.htm en B1 voila ce que ej veux que ca fasse
oceathys
Messages postés
3
Date d'inscription
lundi 1 novembre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
1 nov. 2010 à 16:51
1 nov. 2010 à 16:51
c'est bon les gars, ca amrche !! merci beaucoup !! en fait c'est donc : data, text to collums ;) merci encore gg
1 nov. 2010 à 16:28
Heuuu... pourquoi faire simple quand ont peu faire compliquer (rire).
A+
1 nov. 2010 à 16:38
OK, hombourgeois. Ce qui m'avait emmener sur la macro est le guillemet au départ qui crée une case vide... bien que ca soit pas trop gênant car on peut s'en contenter ou supprimer la colonne
à oceathys de choisir
Bonne soirée à tous
:-)