Macro qui plant sur la condition SINON

rounil09 · 23 Septembre 2010

Bonsoir la liste,

Je ne comprend pas pourquoi cette macro fonctionne correctement s'il y a une image en cellule B5 et plante s'il y en a pas.

Si quelqu'un pouvait m'éclairer....

Sub Renommer_photo()
Dim Sh As Shape
For Each Sh In Me.Shapes

If Sh.TopLeftCell.Address = "$B$5" Then
Sh.Name = "Photo"
Else: Range("D4").Select

End If
Next

End Sub

Compte Supprimé 979 · 24 Septembre 2010

Re : Macro qui plant sur la condition SINON

Bonsoir,

Essaye peut-êre ça

VB:

Sub Renommer_photo()
Dim Sh As Shape
For Each Sh In Me.Shapes
On Error GoTo NextCel
If Sh.TopLeftCell.Address = "$B$5" Then
Sh.Name = "Photo"
End If
NextCel:
Range("D4").Select
Next
End Sub

A+

Gorfael · 24 Septembre 2010

Re : Macro qui plant sur la condition SINON

Salut rounil09 et le forum
Pas assez d'infos.
Il serait plus facile d'aider si on connaissaît le but à atteindre.

Ta macro fonctionne telle quelle. Mais comme je ne suis sûrement pas dans le mêm contexte...

Perso, j'ai relevé quelles anomalies de raisonnement sur ta macro :
- La logique voudrait qu'on verifie que le nom voulu n'est pas déjà utilisé dans les Shapes.
- En admettant qu'il y ait une centaine de Shapes après la ligne 5, pourquoi les parcourir, alors qu'on a déjà effectué le travail pour leqel la macro a été créé ?
- on resélectionne la cellule D4 x fois ((nombre de shapes)-1), alors qu'une seule fois suffirait (après next).

Mais corriger une macro demande de savoir de quoi on parle.
A+

tbft · 24 Septembre 2010

Re : Macro qui plant sur la condition SINON

bonjour

je tente

Code:

Sub Renommer_photo()
Dim Sh As Shape
For Each Sh In Me.Shapes
  If Sh.TopLeftCell.Address = "$B$5" Then Sh.Name = "Photo" Else Range("D4").Select
Next
End Sub

mais je n'ai pas essayé
tiens moi au courant

Macro qui plant sur la condition SINON

rounil09

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Gorfael

XLDnaute Barbatruc

tbft

XLDnaute Accro

Discussions similaires

Macro qui plant sur la condition SINON

rounil09

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Gorfael

XLDnaute Barbatruc

tbft

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency