Rechercher dans une cellule en fonction de la taille du caractèr
Résolu/Fermé
louloutre1512
Messages postés
4
Date d'inscription
jeudi 21 novembre 2013
Statut
Membre
Dernière intervention
5 octobre 2015
-
5 oct. 2015 à 12:30
louloutre1512 Messages postés 4 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 5 octobre 2015 - 5 oct. 2015 à 15:50
louloutre1512 Messages postés 4 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 5 octobre 2015 - 5 oct. 2015 à 15:50
A voir également:
- Rechercher dans une cellule en fonction de la taille du caractèr
- Réduire la taille d'un pdf - Guide
- Taille 32x32 correspondance ✓ - Forum Loisirs / Divertissements
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Excel remplir une cellule en fonction d'une autre ✓ - Forum Excel
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
5 oct. 2015 à 12:43
5 oct. 2015 à 12:43
Bonjour,
Juste pour l'intérêt de la question, voici le code permettant de réaliser cela :
Maintenant, et si et seulement si les espaces sont toujours les mêmes (entre prénom et nom, entre nom et adresse etc...), regarde ce que peux faire la méthode Split :
Juste pour l'intérêt de la question, voici le code permettant de réaliser cela :
Sub test()
Dim i As Integer
For i = 1 To Range("F6").Characters.Count
Debug.Print Range("F6").Characters(i, 1).Font.Size
Next
End Sub
Maintenant, et si et seulement si les espaces sont toujours les mêmes (entre prénom et nom, entre nom et adresse etc...), regarde ce que peux faire la méthode Split :
Sub test_2()
Dim strSplit
strSplit = Split(Range("F6").Value, " ")
For i = LBound(strSplit) To UBound(strSplit)
Debug.Print strSplit(i)
Next i
End Sub
5 oct. 2015 à 15:50
Bonne fin de journée!