Yat il un code pour rechercher le centre d'une série de numéros [Résolu]

[alidroos]

Bonjour génies

Je veux le code dans la recherche juste écrire les nombres à partir du centre de la chaîne du numérique

Par exemple

001-125639-1456

Écrivez ces nombres dans une cellule de recherche
125639

Résultats de la recherche sont
001-125639-1456

Est il un code qui effectue cette tâche

Et merci d'avance

[yorgh1234]

Bonjour,

Je crois que la communauté développez.com peut t'aider à résoudre ton problème, encore faut-il qu'on le comprenne. Peux-tu reformuler ton problème et essayer d'être plus clair ?

Je veux le code dans la recherche juste écrire les nombres à partir du centre de la chaîne du numérique

[jfontaine]

Bonjour,

C'est peut etre cela que tu souhaites !!

Code :

MsgBox Split("001-125639-1456", "-")(1)

[alidroos]

Ok, si la chaîne 0011256391456

[bbil]

Envoyé par yorgh1234

Bonjour,

Je crois que la communauté développez.com peut t'aider à résoudre ton problème, encore faut-il qu'on le comprenne. Peux-tu reformuler ton problème et essayer d'être plus clair ?

Envoyé par alidroos

Ok, si la chaîne 0011256391456

Et alors ? rien de plus clair ?


Fichier joint dans vos discussions

[alidroos]

Le même travail de ce code

Code :

MsgBox Split("001-125639-1456", "-")(1)

Je veux le code pour une colonne entière de cellules, non seulement le message

[jfontaine]

Eh ben, avec le fichier ca semble plus clair

Dis nous si c'est bien ce que tu attends.
sol_s.xls

[alidroos]

Merci professeur jfontaine
Yat-il un code au lieu de l'équation
Je suis reconnaissant à vous

[jfontaine]

C'est dommage de ne pas utiliser une formule

A mettre au niveau de la feuille 1

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
 
If Target.Column = 5 And Target.Count = 1 Then
    Set rg = Range("C:C").Find(what:=Target.Value, lookat:=xlWhole)
    If Not rg Is Nothing Then
        Target.Offset(0, -1).Value = rg.Offset(0, -1).Value
    Else
        Target.Offset(0, -1).Value = ""
    End If
End If
 
End Sub

[alidroos]

Merci professeur jfontaine
Modifié le code pour devenir comme suit et travaille efficacement

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E3:E101")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
E = Cells(Rows.Count, 1).End(xlUp).Row
Range("C3:C" & E).FormulaR1C1 = "=MID(RC[-2],4,6)"
ALI
Dim rg  As Range
Set rg = Range("C3:C101").Find(what:=Target, lookat:=xlWhole)
If Not rg Is Nothing Then
Target.Offset(0, -1).Value = rg.Offset(0, -1).Value
Else
Target.Offset(0, -1).Value = Empty
End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub ALI()
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each R In Range("C3:C101")
If R.Value <> Empty Then
R.Value = R.Value
End If
Next R
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

[Ormonth]

Envoyé par alidroos

Le même travail de ce code

Code :

MsgBox Split("001-125639-1456", "-")(1)

Je veux le code pour une colonne entière de cellules, non seulement le message

"le roi dit nous voulons" lui....

=> Par allusion à l'usage des rois, qui s'expriment à la première personne du pluriel, réponse qu'on fait aux enfants impérieux qui exigent en disant « Je veux … », pour les remettre à leur place. in Wikipedia

heureusement qu'il y a des contributeurs obéissants

-