Appliquer des instructions sur plusieurs feuilles en même temps

Marie155 Messages postés 11 Statut Membre -  
 Marie155 -
Bonjour,

Je voudrais savoir comment faire pour qu'une instruction s'appliquent à plusieurs feuilles en même temps j'ai essayé ce code :

For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil3" Then
With Ws.Shapes("Image")
.Left = Range("B5").Left
.PictureFormat.CropBottom = hauteur_ligne * valeur_deplacement + 1
End With
Next Ws

Il me met une erreur à la compilation : "Next sans For" pourtant il y est !!! je ne comprends pas

Mercii d'avance

6 réponses

ccm81 Messages postés 11033 Statut Membre 2 434
 
Bonjour

Il te manque un end if

bonne suite
1
Marie155 Messages postés 11 Statut Membre
 
Oui quelle erreur bête !!! Merci !!

J'ai une dernière question, j'aimerais prendre un ensemble de cellule et les transformer en image (pour pouvoir jouer avec comme je veux à l'aide de ma maccro) j'ai fait copier coller dans paint mais il y a un décalage par rapport aux vraies cellules je ne sais pas comment faire autrement
0
ccm81 Messages postés 11033 Statut Membre 2 434
 
Je ne sais pas si ça correspond à ton problème.
Dans cet exemple, j'ai fait un copier/coller en tant qu'image dans PhotoFiltre (gratuit) et enregistré l'image au format JPG, qu'il m'a suffi de mettre à l'échelle dans excel
https://www.cjoint.com/?3CBj63zcB13

ccm81
0
Marie155
 
C'est pas mal !! J'aimerai bien le faire avec ma figure... comment tu fais le déplacement? par macro ??

Merciii
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 11033 Statut Membre 2 434
 
Oui le déplacement st fait par macro via une toupie (objet activeX) prise dans la boite à outils contrôles
Tu as le code dans le module de la feuille (Clic-droit sur l'onglet/Visualiser le code)

bonne journée
0
Marie155
 
Désolé pour le retard. Je te remercie beaucoup !
0