Rechercher dans une cellule en fonction de la taille du caractèr
Résolu
louloutre1512
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
louloutre1512 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
louloutre1512 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous!
Je suis face à un problème qui me tient en halène depuis un bout de temps...
Dans un fichier excel, chaque cellule contient une adresse sous la forme suivante:
Jean-Marc Truc chemin des arbres 12 12345 Ville
J'ai remarqué que "chemin des arbres" est écrit systématiquement plus petit (police 7 VS 8 ) que le reste.
Mon but étant de séparer mon adresse en plusieurs cellules: Prénom + nom, Adresse, ZIP, Ville, je me demandais s'il était possible de sélectionner seulement la partie plus petite pour la copier dans ma 2ème colonne.
J'ai essayé avec des fonctions du type If Mid(Cells(1,1),k,1).Font.Size = 7 then ... en faisant avancer k dans ma cellule pour trouver le premier caractère plus petit mais ça ne marche pas: Object required
Et je n'ai rien trouvé sur les forums... Est-ce que quelqu'un a une idée?
Merci d'avance pour votre aide!
Louloutre
Je suis face à un problème qui me tient en halène depuis un bout de temps...
Dans un fichier excel, chaque cellule contient une adresse sous la forme suivante:
Jean-Marc Truc chemin des arbres 12 12345 Ville
J'ai remarqué que "chemin des arbres" est écrit systématiquement plus petit (police 7 VS 8 ) que le reste.
Mon but étant de séparer mon adresse en plusieurs cellules: Prénom + nom, Adresse, ZIP, Ville, je me demandais s'il était possible de sélectionner seulement la partie plus petite pour la copier dans ma 2ème colonne.
J'ai essayé avec des fonctions du type If Mid(Cells(1,1),k,1).Font.Size = 7 then ... en faisant avancer k dans ma cellule pour trouver le premier caractère plus petit mais ça ne marche pas: Object required
Et je n'ai rien trouvé sur les forums... Est-ce que quelqu'un a une idée?
Merci d'avance pour votre aide!
Louloutre
A voir également:
- Rechercher dans une cellule en fonction de la taille du caractèr
- Comment réduire la taille d'un fichier - Guide
- Fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Rechercher ou saisir une url - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
1 réponse
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
Bonne fin de journée!