Extraire et supprimer avec une fonction

R

reeves

Guest

• 6 Mars 2008

• #2

Re : Extraire et supprimer avec une fonction

Ou alors si c'est plus simple j'ai ma cellule avec l'adresse, et deux autre vide. Dans une je met les 44 premier et dans la seconde je met ce qui suit.

Ca sera peut etre plus simple mais toujours sans couper un mot en plein milieu

Merci d'avance

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 6 Mars 2008

• #3

Re : Extraire et supprimer avec une fonction

Bonjour,

Avec tes données en colonne A,

en B1, cette formule :

Code:

=SI(NBCAR(A1)>44;SI(STXT(A1;45;1)=" ";GAUCHE(A1;44);GAUCHE(A1;TROUVE("µ";
SUBSTITUE(GAUCHE(A1;44);" ";"µ";NBCAR(GAUCHE(A1;44))-NBCAR(SUBSTITUE(
GAUCHE(A1;44);" ";""))))));A1)

en C1, cette formule :

Code:

=SI(NBCAR(A1)>44;SI(STXT(A1;45;1)=" ";STXT(A1;46;9^9);1);"")

Formules à recopier vers le bas.

Sur 35000 lignes, ça risque de mettre un certain temps de recalcul...

Je te laisse tester en grand.

@+

 

Dernière édition: 6 Mars 2008

Vote positif 0 Vote négatif

R

reeves

Guest

• 6 Mars 2008

• #4

Re : Extraire et supprimer avec une fonction

Salut et surtout merci pour ta réponse et ton aide.
La première formule marche apparement bien par contre la deuxième m'affiche le chiffre 1 quand il est censé m'afficher quelque chose mais bizarrement celà fonctionne sur quelques cellules enfin sur 2 ou 3 🙂 .

C'est tu d'ou celà vient?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Mars 2008

• #5

Re : Extraire et supprimer avec une fonction

bonjour reeves

Salut Tibo 🙂 🙂

un essai en Vba

Code:

Sub decompose()
Application.ScreenUpdating = False
tablo = Range("A1:A" & Range("A65536").End(xlUp).Row)
For n = 1 To UBound(tablo)
  x = Split(tablo(n, 1), " ")
  For i = 0 To UBound(x)
      longueur = Len(Range("B" & n) & x(i))
    If longueur < 44 Or bplein = False Then
      Range("B" & n) = Range("B" & n) & x(i) & " "
      bplein = True
    Else
      Range("C" & n) = Range("C" & n) & x(i) & " "
    End If
  Next i
  bplein = False
Next n
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

R

reeves

Guest

• 6 Mars 2008

• #6

Re : Extraire et supprimer avec une fonction

Sinon j'aurai une idée de formule car des fois l'adresse va être Résidence bidule....12 rue machin chose. Et ca c'est attaché donc avec la formule que tu m'as fait des fois il va mal couper. Par exemple. 1er cellule = Résidence machin 12 rue pierre et 2ème cellule = mendès france

Et j'aimerai dans certain cas mettre une formule qui dirait, il extrait de gauche jusqu'a voir un chiffre et la deuxième cellule il extrait tout dès qu'il trouve le chiffre.

Avec ca, je pourrai avoir 1er cellule = Résidence machin 2ème cellules = 12 rue pierre mendès france

Merci d'avance car sinon je sais pas comment je ferai

 

Vote positif 0 Vote négatif

R

reeves

Guest

• 6 Mars 2008

• #7

Re : Extraire et supprimer avec une fonction

Merci à toi Pierrejean.
Par contre étant donné que ce language j'y comprend pas grand chose peux tu m'éxpliquer, s'il te plait, ligne par ligne ce que ca fait, afin que je puisse le bidouiller un peu. Car il m'extrait certaine chose mais je vois pas d'où il m'a extrait celà. Pourtant j'ai bien changer le A1 par F2 (puisque ca commence par F2) et B et C par M et N mais ce qui est extrait ne correspond pas à la cellule F qui est à coté.

Enfin je réessaye parceque certain filtre était activé, mais 34000 lignes c'est un peu long. 🙂

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Mars 2008

• #8

Re : Extraire et supprimer avec une fonction

Re

Voila pour tenir compte de la scission au 1er chiffre

Par contre pour ton fichier :
peux-tu enlever 33955 lignes (lol) et remplacer les autres par des exemples bidons et j'adapterais

 

Pièces jointes

• reeves.zip

  11.2 KB · Affichages: 27

Vote positif 0 Vote négatif

R

reeves

Guest

• 6 Mars 2008

• #9

Re : Extraire et supprimer avec une fonction

Merci pierrejean
Je pense arriver difficilement à mieux. Donc je te remerci ca va vraiment me faire gagner du temps. C'est sur que sur 34000 lignes c'est long même très long au moins 10 minutes mais il m'a bien séparé les adresses.

J'ai plus qu'un passage à faire pour "fignoller" le tout et c'est fini

Encore merci

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 6 Mars 2008

• #10

Re : Extraire et supprimer avec une fonction

Bonjour le fil
Bonjour Pierrejean

Ci joint un fichier avec une macro. Le texte est découpé en tranches au dernier espace se trouvant avant la position 44.
Le nombre de caractères n'a aucune importance.

Pour lancer la macro il faut cliquer sur la colonne A

A tester

JP

 

Pièces jointes

• couper un mot.zip

  9.7 KB · Affichages: 26

Vote positif 0 Vote négatif

R

reeves

Guest

• 7 Mars 2008

• #11

Re : Extraire et supprimer avec une fonction

Euh j'ai une autre petite question, je pense simple pour vous.

Voilà j'ai une première colonne avec des numéros (34000) et j'ai une autre colonne qui possède elle aussi des numéros (à peine 1000), je voudrais que dans une troisième colonne s'inscrive 1 ou 0 ou alors vrai ou faux lorsque il trouve un nombre identique dans les deux colonnes.

Exemple mes premiers nombres de la deuxième colonne sont 24,69,115,128,etc... ma première colonne elle commence de 1 jusqu'a plus de 30000, j'aimerai donc qu'il m'inscrive dans les 23 premières cellules de la troisième colonne faux ou 0 et à la 24ème il m'inscrit vrai ou 1. En gros il scan les deux colonnes et dès qu'il voit un chiffre identique dans les deux colonnes il met vrai ou 1.

Avez vous dans votre manche une petite fonction capable de faire ca?

Je vous remercie d'avance

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Mars 2008

• #12

Re : Extraire et supprimer avec une fonction

Re

la 1ere colonnne est-elle continue ?
c'est-a-dire numero identiques (ou decalés de meme valeur) au numero de ligne
auquel cas il suffit de savoir si en B il existe un numero < au plus grand de la colonne A
Sinon il faut verifier 1 a 1 tous les numeros de la 2eme colonne pour savoir s'ils existent dans la 1ere ?
peux-tu preciser ?? au besoin avec un fichier exemple (sans données confidentielles)

 

Vote positif 0 Vote négatif

R

reeves

Guest

• 7 Mars 2008

• #13

Re : Extraire et supprimer avec une fonction

Euh enfaite j'ai réussi à trouver un cas ressemblant au mien et en bidouillant un peu j'ai reussi à faire ce que je souhaitais.
En tout cas grand merci à pierrejean.

Bon weekend à tous.

Reeves

 

Vote positif 0 Vote négatif