aide sur VBA

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2016

• #2

Bonjour à tous


Il eut été plus judicieux que tu prennes le temps de mettre des données fictives dans ta feuille ffjda, non ?
Histoire qu'on puisse tester ta macro...
Là, on dispose juste d'un classeur vide avec du VBA dedans.🙄

 

Vote positif 0 Vote négatif

M

maspascal

XLDnaute Occasionnel

• 15 Octobre 2016

• #3

Bonjour
Dessolé fichier rectifie

Merci

 

Pièces jointes

• essai code vba.xls

  114 KB · Affichages: 32

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2016

• #4

Re

Ton nouveau fichier est toujours aussi vide...
same player shoot again 😉

En atteandant un fichier "rempli" de bidons 😉
Voici un essai de macro qui fonctionne

VB:

Sub a()
Dim Colonnes, i&, derlig&
'ici adapter avec le noms des vrais feuilles
derlig = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
Colonnes = Array("E", "F", "G", "C", "H", "I", "K", "L", "M", "O", "Q")
For i = LBound(Colonnes) To UBound(Colonnes)
'ici adapter avec le noms des vrais feuilles
Feuil2.Cells(2, Colonnes(i)).Resize(derlig).Copy Feuil1.Cells(5, i + 1)
Next
End Sub

 

Dernière édition: 15 Octobre 2016

Vote positif 0 Vote négatif

M

maspascal

XLDnaute Occasionnel

• 15 Octobre 2016

• #5

Bonjour
désolé fichier rectifie
Merci

 

Pièces jointes

• essai code vba.xls

  135.5 KB · Affichages: 36

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2016

• #6

Re

Et que donne ton test de macro sur ton PC?

 

Vote positif 0 Vote négatif

M

maspascal

XLDnaute Occasionnel

• 15 Octobre 2016

• #7

code erreur
Erreur d'exécution « 424 »:

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2016

• #8

Re

Bien sur tu as lu les commentaires en vert dans la macro et tu as fait les changements nécessaires?
Ou tu les as superbement ignoré, ce qui explique que cela bug chez toi alors que ça fonctionne chez moi 🙄

 

Vote positif 0 Vote négatif

M

maspascal

XLDnaute Occasionnel

• 15 Octobre 2016

• #9

Sub a()

Dim Colonnes, i&, derlig&

'ici adapter avec le noms des vrais feuilles

derlig = ffjda.Cells(Rows.Count, 1).End(xlUp).Row

Colonnes = Array("E", "F", "G", "C", "H", "I", "K", "L", "M", "O", "Q")

For i = LBound(Colonnes) To UBound(Colonnes)

'ici adapter avec le noms des vrais feuilles

ffjda.Cells(2, Colonnes(i)).Resize(derlig).Copy codevba.Cells(5, i + 1)

Next

End Sub

j'ai fait cela mais pas bon

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2016

• #10

Re

C'est presque cela
soit on met le codename des feuilles, soit le nom des feuilles
Avec le nom des feuilles, ce sera plus parlant pour toi
La bonne syntaxe est dans ce cas
derlig = Sheets("ffjda").Cells(Rows.Count, 1).End(xlUp).Row
Je te laisse faire les autres changements de nom de feuille sur le même principe de syntaxe

Et là ça devrait marcher sans bug 😉

 

Vote positif 0 Vote négatif

M

maspascal

XLDnaute Occasionnel

• 15 Octobre 2016

• #11

Re

ok super je commence a comprendre
merci pour ton aide

 

Vote positif 0 Vote négatif