Discussion :

[Shaia79]

Bonjour,

Je souhaiterais "découper" une cellule qui est du format suivant

A :B 123456789

J'aurais juste besoin de B et du chiffre afin de les coller dans une autre cellule

Ce serait pour inclure dans une macro, avec plusieurs cellules à "découper", mais certaines différentes des autres:

par exemple:

A :B 123456789

E :F 1234

G : Date du jour

etc...

Est-ce que quelqu'un pourrait m'aider ?

Merci d'avance

[mathieu44800]

Bonjour,

Je n'ai pas vraiment compris la question, mais :

Si ton "découpage" est toujours effectué de la même manière, essayes :

Code :

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

Left(Ton_Champ, Ta_Valeur)

A+

[fring]

Bonjour tlm,

Résumons :

• si la cellule contient A : B 123456789
  on récupère B dans une cellule et 123456789 dans une autre
• si elle contient E : F 1234
  on récupère F dans une cellule et 1234 dans une autre
• si elle contient G : Date
  dans ce cas là on récupère quoi ?

[Shaia79]

pour g:date je voudrais récupérer g dans une cellule et la date dans l'autre


merci !

[nawake]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
If Left(Cells(X, Y).Value, 1) = "A" Or Left(Cells(X, Y).Value, 1) = "E" Then
	Cells(A, B).Value = Mid(Cells(X, Y).Value, 3, 1)
	Cells(A, B+1).Value = Right(Cells(X, Y).Value, Len(Cells(X, Y).Value - 3)
ElseIf Left(Cells(X, Y).Value = "G" Then
	Cells(C, D).Value = Left(Cells(X, Y).Value, 1)
	Cells(C, D+1).Value = Right(Cells(X, Y).Value, Len(Cells(X, Y).Value - 2)
Else
	MsgBox "Le contenu de la cellule ne commence pas par ""A"", ""E"" ou ""G""."
End If

pas test mais normalement c'est bon
y a plus qu'a gérer les X, Y, A, B, C, D pour définir les cellules de départ et d'arrivées

Ps : Méthodes de "découpage" :
- Left(Valeur, Nombre de caractère) prend X caractère en partant de la gauche
- Right(Valeur, Nombre de caractère) prend X caractère en partant de la droite
- Mid(Valeur, position du premier caractère à prendre, nombre de caractère) prend X caractère à partir de Y
- Split(Valeur, caractère) remplit un tableau

A = Left("Tata", 2) A:Ta
A = Right("Tata", 2) A:ta
A = Mid("Tata", 2, 2) A:at
A = Split("12;13;14", ";") A:Array("12","13","14")

++

[Shaia79]

Bonjour,


merci pour vos réponses !


Pour ma macro, la situation a un peu évolué; après une première manipulation, je retrouve une cellule qui contient le texte suivant:


JeConfirmel'achatde3500unitésdeXYZABCDEF12345


Ce que je veux: récupérer uniquement la quantité d'unités, ici le chiffre 3500


Au début de la cellule, 2 possibilités de texte uniquement:

JeConfirmel'achatde ou JeConfirmelaventede


En fin de cellule, le format du code XYZABCDEF12345 peut changer en longueur d'une cellule à l'autre; il y a donc à gauche de la cellule, 2 possibilités de texte seulement, achat ou vente, mais à droite, le texte est à longueur variable



effacer le texte à droite et à gauche de la quantité suffirait, c'est la seule information qui m'intéresse, quelqu'un saurait-il comment précisément sélectionner le texte alentour, quelle que soit sa longueur ?