Discussion :

[vincmer28]

Bonjour,

je cherche un moyen de rechercher une chaine de caractère définie dans une cellule. Je m'explique avec le contenu de la cellule en question:

Enrollment for 22AG-Organisation du vendeur Ag Session DEV-22-GA3#RNP#9 - 155746

J'ai de nombreux documents avec une chaine de ce type, et à chaque fois les seuls choses qui ne changent pas sont "Enrollment for" et "Session".

Je souhaite pouvoir supprimer automatiquement Enrollment for de chaque chaine, et faire un retour à la ligne juste avant "Session". Il me faut dont un moyen de trouver le mot Session dans ma chaine, et dés qu'il le trouve, faire un retour à la ligne juste avant. J'avais au départ penser à compter le nombre de caractère, mais il s'avère que en fonction du titre, ici par exemple "Organisation du vendeur Ag", la chaine ne fait jamais le même nombre de caractère. C'est donc vers une recherche du mot Session que je m'orienterais, mais sans savoir comment faire.

Je ne sais pas si je suis très claire, mais merci d'avance pour votre aide

[pc75]

Bonjour,

Tu peux faire comme ça :

Code :

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

1
2
3
4
5
6
 
Chaine = "Enrollment for 22AG-Organisation du vendeur Ag Session DEV-22-GA3#RNP#9 - 155746"
 
Chaine = mid(Chaine, 16) ' supprime les 15 premiers caractères
 
Chaine = Replace(Chaine, "Session", chr(13) & chr(10) & "Session") ' ajoute un crlf avant le mot Session

[vincmer28]

Merci, cela fonctionne parfaitement!.

Maintenant, si je ne souhaite que concerver que ce qu"il se trouve entre Enrollement for et session, c'est à dire "22AG-Organisation du Vendeur Ag", comment je peut faire?

[pc75]

Re,

Il faut que tu utilises la fonction Instr() qui te renvoie la position d'une sous-chaine dans une chaine.

Code :

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

1
2
3
 
Chaine = "Enrollment for 22AG-Organisation du vendeur Ag Session DEV-22-GA3#RNP#9 - 155746"
Position = Instr(Chaine, "Session")

Ensuite, tu utilises la fonction Mid() qui permet d'extraire une sous chaine en indiquant les positions de debut et fin de la sous-chaine.

Code :

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

1
2
3
4
 
Chaine = "Enrollment for 22AG-Organisation du vendeur Ag Session DEV-22-GA3#RNP#9 - 155746"
Position = Instr(Chaine, "Session")
Chaine = Mid(Chaine, 16, Position)

PS : PAS TESTE, mais c'est l'idée

[vincmer28]

Effectivement, j'ai fini par faire ça tout à l'heure, et ça marche parfaitement.

Je profite de vous avoir pour vous poser une dernière question, et ensuite je vous laisse tranquille :

J'ai une date de début en A1, une date de fin en A2, sous le format 00/00/0000.


Par exemple:
Date Debut: 20/04/2012
Date Fin: 24/04/2012

Je souhaite afficher chaque jour de cet intervalle sur une ligne.
J'aurais dans cet exemple de C1 à C5

C1
20/04/2012


C2
2104/2012


C3
22/04/2012


C4
23/04/2012


C5
24/04/2012

Comme vous avez du le remarquer, je début en Macro excel, et je ne trouve pas comment incrémenter la date dans cet intervalle.

[casefayere]

Bonjour,
si tu as pris la précaution de mettre le format "Date" en C :

exemple 1ere date en A1, 2eme en B1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub remplirdates()
Dim x As Long, tb(), y As Long
y = 0
For x = Range("A1") To Range("B1")
  y = y + 1
  ReDim Preserve tb(1 To y)
  tb(y) = x
Next x
Range("C1:C" & UBound(tb)) = WorksheetFunction.Transpose(tb)
 
End Sub