× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Coller une image dans une autre feuille en VBA
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Saturnien
  Posté le 24/01/2011 @ 10:50 
Aller en bas de la page 
Astucien

Bonjour,

J'ai ce code qui me permets de copier les cellules de "O5 à AA5 de la feuille WS2300" à la feuille "Janvier" dans les cellules AF à AR, là je n'ai pas de problème.

Mais maintenant, il y a une image dans cellule Q5 et cette image ne ce copie pas dans la feuille "Janvier" en cellule AH

Sub WS_2300()

Dim FeWS230 As Worksheet
Dim FeJanvier As Worksheet
Dim Source As Range
Dim Colonne As String

Set FeWS2300 = Worksheets("WS2300")
Set FeJanvier = Worksheets("Janvier")

With FeWS2300

'Vent
Set Source = .Range("O5:AA5"): Colonne = "AF"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Sheets("Janvier").Select
End With
End Sub

En bref, je ne souhaite plus copier la valeur de la cellule Q5, mais l'image qui est à sa place.

Je n'arrive pas à trouver ce que je dois changer dans cette partie de code, j'ai remplacer value par Copy mais ça ne fait pas l'affaire.

Merci de votre aide
Cordialement



Modifié par Saturnien le 01/02/2011 19:59
Publicité
Bérylion
 Posté le 27/01/2011 à 21:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut

Sub WS_2300()

Dim FeWS230 As Worksheet
Dim FeJanvier As Worksheet
Dim Source As Range
Dim Colonne As String

Set Fews2300 = Worksheets("WS2300")
Set FeJanvier = Worksheets("Janvier")

Sheets("Janvier").Select ' à placer ici pour éviter les couinements

With Fews2300
'Pressions
Set Source = .Range("A5:G5"): Colonne = "F"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Températures
Set Source = .Range("H5:N5"): Colonne = "S"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Vent
Set Source = .Range("O5:AA5"): Colonne = "AF"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
Fews2300.Shapes(FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(0, 8).Text).Copy
With FeJanvier
With .Range(Colonne & 65535).End(xlUp).Offset(0, 10)
.Select
.ClearContents
y! = .Height
x! = .Width
End With
ActiveSheet.Paste
With .Shapes(.Shapes.Count)
.IncrementLeft (x - .Width) / 2
.IncrementTop (y - .Height) / 2
End With
.Range(Colonne & 65535).End(xlUp).Offset(0, 10).Select
End With

'Pluie
Set Source = .Range("AB5:AD5"): Colonne = "AY"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
'Heures Pluie et Soleil
Set Source = .Range("AH5:AK5"): Colonne = "CA"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
End With
End Sub

Enjoy !

Saturnien
 Posté le 28/01/2011 à 08:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Ok merci, je regarde ça et je te tiens au courant.

Saturnien
 Posté le 28/01/2011 à 17:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut,

Merci.

J'ai fais des essais, ça fonctionne impeccable.

J'ai trouvé un code beaucoup plus simple (surtout pour moi) pour faire tourner ma flèche, car il ne reste qu'une flèche, je pensais que cela ne changeais rien.

Apparemment si, ça change, je souhaiterais savoir pourquoi ça ne fonctionne pas avec ton code, je suppose que cela à un raport avec les flèches que j'ai supprimés ?

Fichier joint : http://www.cijoint.fr/cjlink.php?file=cj201101/cijc4DeLEr.xls

Merci de ton aide

Cordialement

Guy



Modifié par Saturnien le 30/01/2011 08:19
Saturnien
 Posté le 01/02/2011 à 19:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour,

Quelqu'un peut-il me donner une soltution ?

Merci de votre aide

Bérylion
 Posté le 08/02/2011 à 10:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

remplace

Fews2300.Shapes(FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(0, 8).Text).Copy

par

FeWS2300.Shapes("Girouette").Copy

Saturnien
 Posté le 08/02/2011 à 11:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut,

Impeccable !!! , ça fonctionne, merci beaucoup pour ton aide.



Modifié par Saturnien le 08/02/2011 15:00
Saturnien
 Posté le 08/02/2011 à 15:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

J'ai répondu trop vite, ça na fonctionne pas pareil sur EXCEL 2010, et je n'arrive pas à centrer les aiguilles.

Voir fichier joint : http://www.cijoint.fr/cjlink.php?file=cj201102/cij1abEzKW.xls

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
29,99 €SSD PNY CS900 240 Go à 29,99 €
Valable jusqu'au 28 Octobre

Amazon fait une promotion sur le SSD PNY CS900 240 Go qui passe à 29,99 €. Ce SSD offre des vitesses d'écriture de 515 Mo/s et de lecture à 550 Mo/s. Il est garanti 3 ans. La livraison est gratuite.


> Voir l'offre
11,97 €Chargeur Varta 4H LCD PLUG + USB + 4 piles rechargeables AA 2100 mAh à 11,97 €
Valable jusqu'au 28 Octobre

Amazon fait une promotion sur le chargeur Varta 4H LCD PLUG qui passe à 11,97 € au lieu de 25 €. Ce chargeur rapide peut charger jusqu'à 4 accus (AA, AAA et 9V) et dispose également d'un port USB pour recharger un appareil mobile ou une batterie externe. Un écran LCD vous indiquera l'avancé de la charge. Il est fourni avec 4 piles rechargeables AA 2100 mAh.


> Voir l'offre
25,99 €Carte mémoire MicroSDXC UHS-I U3 SanDisk Extreme Pro 128 Go (170 Mo/s) à 25,99 €
Valable jusqu'au 28 Octobre

Amazon fait une vente flash sur la carte mémoire MicroSDXC UHS-I U3 SanDisk Extreme Pro d'une capacité de 128 Go qui passe à 25,99 € livrée gratuitement alors qu'on trouve la carte ailleurs à partir de 50 €. Cette carte mémoire offre des vitesses jusqu'à 170 Mo/s en lecture et 90 Mo/s en écriture et intègre des mécanismes afin de gérer l'usure des cellules de la carte et augmenter ainsi sa durée de vie. Une valeur sûre pour les plus exigeants en FullHD et 4K.


> Voir l'offre

Sujets relatifs
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Garder la forme d'un texte répété dans une autre feuille
Copier & Coller une image dans Word
comment coller une image dans le corps d'un messag
Excel 2007 insérer image dans feuille technique
Déplacer une feuille dans un autre classeur
Feuille récap dans un autre répertoire!!!
activation feuille = écriture dans autre feuille
PB pou coller dans autre fichier (bitmap!)
Copier 1 feuille xls dans un autre fichier
Plus de sujets relatifs à Coller une image dans une autre feuille en VBA
 > Tous les forums > Forum Bureautique