Discussion :

[iIncoming]

Bonjour,

Ma cellule A7 contient le lieu de naissance de personnes sous la forme :
Ville - N° département - Pays

Exemples :
Rennes - 35 - France
Montpellier - 34 - France
Fort de France - 974 - Tahiti

Comment puis-je récupérer uniquement les chiffres contenus dans cette cellule et les recopier automatiquement dans la cellule qui contient le code s'il vous plaît ?

La recopie se fait d'une feuille à l'autre. Pour la recopie simple j'utilise déjà :

Code :

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

=SI('Feuill1'!$R$1<>"";'Feuill1'!$R$1;"")

Merci pour votre aide !

[rvtoulon]

bonjour une idée à exploiter,
tu créer ta fonction de recherche des chiffre par exemple:

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
Function chiffre(mastring As Range) As String
Dim Cible As String
Cible = mastring.Value
 
 
    For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
        Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        resultat = resultat & Nombre & vbLf
        i = i + Len(Str(Nombre)) - 1
        End If
    Next
 
 chiffre = resultat
End Function

code à copier dans un module.
la fonction s'appelle chiffre().

ensuite par exemple dans la cellule A1 tu met:

Code :

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

=chiffre(A7)

si ta chaine de caractère est en A7

attention dans la formule mettre uniquement une cellule pas une plage de cellule

c'est un exemple, il doit certainement y avoir beaucoup mieux

[jfontaine]

Bonjour,

Avec une formule

Code :

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

=GAUCHE(DROITE(A7;NBCAR(A7)-TROUVE("-";A7)-1);2)

ou en VBA

Code :

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

Val(Split(Range("A1").Value, "-")(1))

[Invité]

Bonjour,

Ou une autre fonction également :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Function IsolerLeDepartement(Cellule As Range)
 
Dim I As Integer
Dim PositionTiretDebut As Integer
Dim PositionTiretFin As Integer
 
 
  IsolerLeDepartement = 0
  PositionTiretDebut = 0
  PositionTiretFin = 0
 
  For I = 1 To Len(Cellule)
    If Mid(Cellule, I, 1) = "-" Then
        PositionTiretDebut = I
        Exit For
    End If
  Next I
 
  If PositionTiretDebut > 0 Then
 
      If PositionTiretDebut + 2 <= Len(Cellule) Then
         For I = PositionTiretDebut + 1 To Len(Cellule)
                If Mid(Cellule, I, 1) = "-" Then
                  PositionTiretFin = I
                  Exit For
                End If
        Next I
      End If
 
      IsolerLeDepartement = Mid(Cellule, PositionTiretDebut + 2, PositionTiretFin - (PositionTiretDebut + 2))
 
  End If
 
 
End Function

Cordialement.

[jfontaine]

Pour remplacer les infos de la colonne A par le Dept

Attention, l'exécution de code est sans retour, faire une sauvegarde avant

Code :

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

1
2
3
4
5
6
7
8
9
Sub MaProc()
 
Dim i As Long
 
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & i).Value = Val(Split(Range("A" & i).Value, "-")(1))
Next i
 
End Sub

[iIncoming]

Bonjour,

Avec une formule

Code :

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

=GAUCHE(DROITE(A7;NBCAR(A7)-TROUVE("-";A7)-1);2)

ou en VBA

Code :

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

Val(Split(Range("A1").Value, "-")(1))

Merci beaucoup ! Ça marche bien. Et c'est la fonction formule qui m'intéresse.
En revanche, petit problème :

Chamonix Mont-Blanc - 74 - France... C'est "la" qui se recopie au lieu du 74... Comment corriger ça ?

[jfontaine]

Une petit amélioration, mais il ne faudrait pas que le pays comporte aussi un trait d'union

Code :

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

1
2
3
4
5
6
7
Dim i As Long
Dim str() As String
 
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    str = Split(Range("A" & i).Value, "-")
    Range("A" & i).Value = Val(str(UBound(str) - 1))
Next i

[iIncoming]

Merci mile fois... Mais sauriez vous m'indiquer le code non pas pour une macro mais pour une formule s'il vous plaît ?