Discussion :

[taha-ba]

Bonjour j'espère que vous allez bien.

sur une feuille excel, dans une cellule j'ai un texte. je voudrais trouver les occurrences dans ce texte. J'ai utilisé une variable de type variant pour stocker les occurences.

la solution que je cherche est de copier chaque occurrence dans une cellule et non pas toutes les occurrences dans une seule cellule.
Le fichier de mon programme est ci-dessous.

Merci d'avance
.APP.xlsm

[Invité]

Bonjour,

Soit une variable Resultat, le code ci-dessous est ajouté à la fin de la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Range("H10") = affichage
With Range("H10")
     Resultat = Split(affichage, vbLf)
     For n = LBound(Resultat) To UBound(Resultat)
         'Debug.Print Resultat(n)
         'With .Offset(0, n + 1) ' Sur la même ligne
         With .Offset(n + 1, 0) ' Sur la même colonne
              .Value = Resultat(n)
              .HorizontalAlignment = xlLeft
              .VerticalAlignment = xlCenter
         End With
    Next n
End With

[taha-ba]

Merci beaucoup, ton code m'a vraiment aidé.