Ellipse

CISCO

XLDnaute Barbatruc

• 18 Octobre 2010

• #2

Re : Ellipse

Bonjour

Pourrais tu nous dire quel(s) critère(s) fait (font) que tu retiens tellle valeur et pas telle autre ?

@ plus

 

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 19 Octobre 2010

• #3

Bonjour!

La valeur à retenir est la valeur contenue dans l'Ellipse.
Chaque valeur contenue doit se retrouver sous la cellule qui précède l'Ellipse.
Une fois cette opération réalisée, l'Ellipse et son contenu sont à effacer.

JclSimon

 

Pièces jointes

• TEST_07B SV .xls

  25 KB · Affichages: 70
• TEST_07B SV .xls

  25 KB · Affichages: 69
• TEST_07B SV .xls

  25 KB · Affichages: 63

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 19 Octobre 2010

• #4

Re : Ellipse

Bonjour JclSimon,


Voici un code à adapter :

VB:

Sub test()
Dim laShape As Shape
    
    'boucler sur toutes les formes de la feuille
    For Each laShape In ActiveSheet.Shapes
        'si la forme est de type "ellipse"
        If laShape.AutoShapeType = 9 Then
            'écrire dans la cellule (décalée de 2 lignes et -2 colonnes par rapport à l'ellipse) la valeur saisie dans l'ellipse
            laShape.TopLeftCell.Offset(2, -2).Value = laShape.TextFrame2.TextRange.Characters
            'effacer l'élipse
            laShape.Delete
        End If
    Next laShape
End Sub

Par contre, il ne fonctionnera jamais correctement sur ton fichier (tel que tu nous l'a fourni) car chaque ellipse n'est pas à la même position par rapport à la cellule qu'elle renseigne.

Je te laisse faire les tests.

a+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 19 Octobre 2010

• #5

Re : Ellipse

Mromain bonjour!

Je regarde!

Merci dans l'instant.

JclSimon

 

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 19 Octobre 2010

• #6

Re : Ellipse

Mromain re-bonjour!

Pourrais-tu me faire parvenir "Ta" macro liée au fichier que j'ai transmis?

Merci!

Jean Claude

NB. J'ai pris note du décalage entre les Ellipses et le lieu de récupération.
I - Recopier les valeurs des Ellipse et effacer les Ellipses et leur contenu sera déjà un bel effort.
II - J'effectuerai manuellement les déplacements ou, je pense qu'il sera temps ensuite d'ajuster la position de chacune des cellules.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 19 Octobre 2010

• #7

Re : Ellipse

JclSimon à dit:

Pourrais-tu me faire parvenir "Ta" macro liée au fichier que j'ai transmis?

Cliquez pour agrandir...

Re bonjour JC,

Je ne comprend pas trop...
Je te renvoi ton fichier avec la macro (du précédent post) sur un bouton.

a+

 

Pièces jointes

• TEST_07B SV -2.zip

  38.2 KB · Affichages: 41

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 19 Octobre 2010

• #8

Re : Ellipse

Bonjour à tous

JclSimon à dit:

Bonjour!

La valeur à retenir est la valeur contenue dans l'Ellipse.

JclSimon

Cliquez pour agrandir...

Ca j'avais bien compris. J'espérais qu'il y ai une relation mathématique par rapport au contenu, ou à la position, à la colonne... qui expliquait pourquoi tu choisisais telle valeur et pas telle autre.

Toi, en pratique, pourquoi places tu une ellipse sur telle valeur, et pas sur telle autre, ou reçois tu les fichiers avec des ellipses déja positionnées ?

@ plus

 

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 19 Octobre 2010

• #9

Re : Ellipse

Re- et merci!
Ci-dessous message d'erreur et arrêt de la macro.
laShape.TopLeftCell.Offset(2, -2).Value = laShape.TextFrame2.TextRange.Characte

A+ JclSimon

 

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 19 Octobre 2010

• #10

Re : Ellipse

Cisco re-bonjour!

Toi, en pratique, pourquoi places tu une ellipse sur telle valeur, et pas sur telle autre, ou reçois tu les fichiers avec des ellipses déja positionnées ?

Je reçois les fichiers avec des ellipses déjà positionnées.

Bonne réception!

JclSimon

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 19 Octobre 2010

• #11

Re : Ellipse

JclSimon à dit:

Re- et merci!
Ci-dessous message d'erreur et arrêt de la macro.
laShape.TopLeftCell.Offset(2, -2).Value = laShape.TextFrame2.TextRange.Characte

A+ JclSimon

Cliquez pour agrandir...

Re,

Le code semble fonctionner sans soucis avec Excel2010.
Ne possédant plus Excel2003, je ne pourrai t'aider plus.

Bon courage

 

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 20 Octobre 2010

• #12

Re : Ellipse

Mromain bonjour!

Je regarde ce que je peux faire et te tiens au courant.
Merci pour ce bout de chemin!

JclSimon

 

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 22 Octobre 2010

• #13

Ellipses dans Excel

Bonjour à chacune et chacun!

Je suis toujours à la recherche d'une solution.

En résumé: Je reçois des fichiers excel (2003) dont une partie de l'information est matéialisée en Ellipse.

Je souhaite récupérer les informations (chiffres) contenues dans chaque Ellipse pour les utiliser ensuite comme base de RechercheV.

Comment puis-je en automatique récupérer ces informations?

Merci à l'avance de votre aide.

JclSimon

 

Pièces jointes

• TEST_07B SV .xls

  34 KB · Affichages: 62
• TEST_07B SV .xls

  34 KB · Affichages: 75
• TEST_07B SV .xls

  34 KB · Affichages: 71

Vote positif 0 Vote négatif

J

JclSimon

XLDnaute Nouveau

• 2 Décembre 2010

• #14

Re : Ellipse

Bonjour chacune et chacun!

Je souhaitais vous faire part d'une réponse positive reçue de Pierrejean, que je remercie de nouveau ici

Sub test()
Dim laShape As Shape
'boucler sur toutes les formes de la feuille
For Each laShape In ActiveSheet.Shapes
'si la forme est de type "ellipse"
If InStr(laShape.Name, "Oval") <> 0 And laShape.Height > 0.1 Then
'écrire dans la cellule (décalée de 2 lignes et -2 colonnes par rapport à l'ellipse) la valeur saisie dans l'ellipse
'laShape.TopLeftCell.Offset(2, 0).Value = laShape.TextFrame2.TextRange.Characters
laShape.Select
laShape.TopLeftCell.Offset(2, 0).Value = Selection.Characters.Text
'effacer l'élipse
laShape.Delete
End If
Next laShape
End Sub

Heureux d'avoir croisé des Downloadiens et 'Diennes et d'être sur Downloads, je vais dès maintenant, à cause de Pierrejean, me mettre au travail!

Je profite de cette réponse pour remercier également Mromain et CISCO

JclSimon


A bientôt!

 

Vote positif 0 Vote négatif