Discussion :

[Yully]

Bonjour. Je suis NUL en VB je commence avec Excel, les lectures sont assez ardu pour mon âge, je suis une tite-grand-mère :-)

Je trouve le résultat voulu dans un msgbox mais j'aimerais copier le résultat dans une colonne par exemple la colonne C, je n'y arrive pas. J'ai essayé plein de truc sans résultat. Voici mon microscopique code... Quelqu'un peut m'aiguiller sur un résultat possible...

P.S. Ma colonne sera toujours la A mais avec beaucoup de données variable, je veux récupérer la section des caractères après le dernier "."

Exemple que j'ai pu créer:


Sub trouveApresPoint()

Dim ResultExt As String
Dim rng As Range: Set rng = Application.Range("Feuil2!A1:A4") 'Colonne qui VARIE en longueur A1 à A100 ou A1000
Dim cel As Range

For Each cel In rng.Cells
With cel


MsgBox Mid(cel, InStrRev(cel, ".") + 1)

End With

Next cel

End Sub

[Yully]

Bonjour. Pour ceux que cela intéresserait, comme une apprentie comme moi ;-)

Réponse:
Sub trouveApresPoint()
Dim ResultExt As String
Dim rng As Range
Dim cel As Variant 'Range
Dim lig As String
lig = 1
Set rng = Application.Range("A1:A25") 'Colonne qui VARIE en longueur A1 à A100 ou A1000
For Each cel In rng.Cells
With cel
ActiveSheet.Cells(lig, "C") = Mid(cel, InStrRev(cel, ".") + 1)
lig = lig + 1
'MsgBox Mid(cel, InStrRev(cel, ".") + 1)
End With
Next cel
End Sub