Discussion :

[kenobyalex]

Bonjour,

Ma question semble simple mais je ne trouve pas de réponse dans les tutoriaux.

Voila, je dois fabriquer une macro qui recherche le caractére "." en position 2.
C'est à dire que j'ai des références du style 5.9633.10 ou 5.96.33, donc de longueur différente, et je dois supprimer tout ce qui est derrière le deuxième "."

Si vous avez une idée.

Merci d'avance pour votre précieuse aide.

[jfontaine]

Une solution en utilisant split

Code :

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

1
2
3
4
5
6
 
dim str() as string
'insere dans le tableau les données entre les points
str = Split(Range("A1").Value, ".")
'renvoir la premiere et la deuxieme occurence
Range("B1").Value = str(0) & "." & str(1)

[kenobyalex]

Une solution en utilisant split

Code :

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

1
2
3
4
5
6
 
dim str() as string
'insere dans le tableau les données entre les points
str = Split(Range("A1").Value, ".")
'renvoir la premiere et la deuxieme occurence
Range("B1").Value = str(0) & "." & str(1)

Merci ça fonctionnne très bien, mais maintnant comment l'automatiser sur un tableau de 30 000 lignes

[jfontaine]

Il te faut boucler sur les lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
dim str() as string
dim i as long
 
'Ligne de démarrage
i=1
 
do while rage("A"&  i).value <>""
 
    'insere dans le tableau les données entre les points
    str = Split(Range("A" & i ).Value, ".")
 
    'renvoit la premiere et la deuxieme occurence
    Range("B" & i).Value = str(0) & "." & str(1)
 
    i=i+1
loop

[kenobyalex]

Il te faut boucler sur les lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
dim str() as string
dim i as long
 
'Ligne de démarrage
i=1
 
do while rage("A"&  i).value <>""
 
    'insere dans le tableau les données entre les points
    str = Split(Range("A" & i ).Value, ".")
 
    'renvoit la premiere et la deuxieme occurence
    Range("B" & i).Value = str(0) & "." & str(1)
 
    i=i+1
loop

Merci bcp Jerome, ça fonctionne niquel.
J'adore ce forum