Appliquer des instructions sur plusieurs feuilles en même temps

Fermé
Marie155 Messages postés 10 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 9 avril 2013 - Modifié par Marie155 le 26/03/2013 à 10:33
 Marie155 - 2 avril 2013 à 21:26
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 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
26 mars 2013 à 11:20
Bonjour

Il te manque un end if

bonne suite
1
Marie155 Messages postés 10 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 9 avril 2013
26 mars 2013 à 19:14
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 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
27 mars 2013 à 10:01
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
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 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
30 mars 2013 à 09:12
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
Désolé pour le retard. Je te remercie beaucoup !
0