Code VBA pour un copier coller particulier

[shindiana]

Bonjour!

J'aimerais copier le contenu des cellules B1, B9, B17, B25, B33, B41, B49 dans les cellules B3:I3 d'une autre feuille. (En gros on part de B1 on descend de 8 à chaque fois jusqu'à 49)

J'ai ce code qui ne fonctionne pas puisqu'il ne copie que B1. 🙁

Worksheets("Construction automobile").Range("B3,C3,D3,E3,F3,G3,H3,I3").Value = Worksheets("Feuil12").Range("B1,B9,B17,B25,B33,B41,B49").Value

Merci d'avance pour votre aide.

 

[Pierrot93]

Re : Code VBA pour un copier coller particulier

Bonsoir,

esssaye peut être le code ci-dessous si j'ai bien compris :

Dim i As Byte, j As Byte
j = 2
For i = 1 To 49 Step 8
    Sheets("Feuil1").Cells(i, 2).Copy Sheets("Feuil2").Cells(3, j)
    j = j + 1
Next i

bonne soirée
@+

 

[shindiana]

Re : Code VBA pour un copier coller particulier

Ca marche à la perfection. Merci beaucoup!

 

[shindiana]

Re : Code VBA pour un copier coller particulier

J'ai un autre soucis toujours dans cette même problématique.

En gros j'ai collé les cotations dans ma feuille de destination avec ton code. Maintenant j'aimerais que l'espace et le sigle monétaire qui suivent chaque cotation soit supprimés.

Pour cela on m'avait fourni ce code hier qui s'applique uniquement à la première cotation:
n = Sheets("Feuil12").Range("B1")
vn = Mid(n, 1, Len(n) - 2)
If IsNumeric(vn) Then Sheets("Construction automobile").Range("B3") = CDbl(vn)



Comment puis-je modifier la code pour que les cotations copiées depuis B1, B9, B17, B25, B33, B41, B49, B57 soit collées sans le symbole monétaire et l'espace??

 

[Pierrot93]

Re : Code VBA pour un copier coller particulier

Re,

essaye ainsi, attention code non testé...

Dim i As Byte, j As Byte
j = 2
For i = 1 To 49 Step 8
    Sheets("Feuil2").Cells(3, j) = Mid(Sheets("Feuil1").Cells(i, 2), 1, Len(Sheets("Feuil1").Cells(i, 2)) - 2)
    j = j + 1
Next i

@+

 

[shindiana]

Re : Code VBA pour un copier coller particulier

Il me met un message d'erreur "déclaration existante dans la portée en cours"

 

[shindiana]

Re : Code VBA pour un copier coller particulier

Pour que ce soit plus simple je te mets mon code complet ici:

Sub ImportationCotations()

'*************Copier coller la cellule contenant les cotations vers les tableaux secteurs***************

Dim i As Byte, j As Byte
j = 2
For i = 1 To 64 Step 8
Sheets("Feuil12").Cells(i, 2).Copy Sheets("Construction automobile").Cells(3, j)
j = j + 1
Next i

'Supression du sigle monétaire'


For i = 1 To 64 Step 8
Sheets("Construction automobile").Cells(3, j) = Mid(Sheets("Feuil12").Cells(i, 2), 1, Len(Sheets("Feuil12").Cells(i, 2)) - 2)
j = j + 1
Next i


End Sub

Avec ce code ça ne fonctionne pas. Il me copie les cotations sans le symbole monétaire à partir des cellules J

 

[Pierrot93]

Re : Code VBA pour un copier coller particulier

Re,

d'après le message d'erreur il y aurait une autre variable i ou j dans ton projet que cela ne m'étonnerait pas..... possible une variable public dans un autre module... a voir...

 

[shindiana]

Re : Code VBA pour un copier coller particulier

Oui effectivement, juste au dessus on définissait déjà une variable i et j. Donc j'ai supprimé ce doublon.

En revanche cela ne fonctionne toujours pas avec ce code:

Sub ImportationCotations()

'*************Copier coller la cellule contenant les cotations vers les tableaux secteurs***************

Dim i As Byte, j As Byte
j = 2
For i = 1 To 64 Step 8
Sheets("Feuil12").Cells(i, 2).Copy Sheets("Construction automobile").Cells(3, j)
j = j + 1
Next i

'Supression du sigle monétaire'


For i = 1 To 64 Step 8
Sheets("Construction automobile").Cells(3, j) = Mid(Sheets("Feuil12").Cells(i, 2), 1, Len(Sheets("Feuil12").Cells(i, 2)) - 2)
j = j + 1
Next i


End Sub

Il me copie les cellules n'importe où.😕

 

[Pierrot93]

Re : Code VBA pour un copier coller particulier

Re,

mets un peit fichier en pièce jointe avec modèle de donnée et résultat attendu, je regarderais demain matin, si tu n'as pas eus de réponse d'ici là....

 

[shindiana]

Re : Code VBA pour un copier coller particulier

Résultat attendu:

Que les cellules B1, B9, B17, B25, B33, B41, B49, B57 de la feuil12 soient copiés respectivement en B3, C3, D3, E3, F3, G3, H3, I3 de la feuille "Construction automobile" à l'exception des deux derniers caractère (qui sont un symbole monétaire et un espace).

Merci 🙂

 

[Pierrot93]

Re : Code VBA pour un copier coller particulier

Bonjour,

pas 2007, je ne peux donc pas ouvrir ton fichier...

A noter tout de même, si l'espace et le symbole monétaire sont issus du format, il n'y a pas lieu d'oter les 2 derniers caractères, enfin me semble t'il....

bonne journée
@+