Macro qui plant sur la condition SINON

[rounil09]

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]

Re : Macro qui plant sur la condition SINON

Bonsoir,

Essaye peut-êre ça

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]

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]

Re : Macro qui plant sur la condition SINON

bonjour

je tente

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