Erreur 9 Excel VBA
Bonjour le forum,
J'ai un petit soucis qui me bloque depuis quelques jours, j'ai fait un VBA, celui ci s'exécute correctement mais l'erreur 9 apparaît lorsque je le teste.
Voici la parti du code ou j'ai mon problème:
Dim sl&, w, z, p As Byte
w = Array("D1")
z = Array("A")
sl = Sheets("Rappor").Cells(Rows.Count, "b").End(3).Row + 1
For p = 0 To 1
Sheets("rappor").Cells(sl, z(p)).Resize(1).Value = Sheets("journa").Range(w(p)).Value
Next
mes feuilles ce nomment bien "rappor" et "journa"
En vous remerciant.
Bonjour
Ton "erreur 9 : l'indice n'appartient pas à la sélection" est normale
Tu définis 1 dimension à tes tableaux W et Z et tu fais une boucle de 2 (0+1)
A+
Je suis novice dans ce milieu , vous pourriez plus m'éclaircir ?
En vous remerciant de votre réactivité.
Re, Bon un novice qui apprend vite
Mais la je bloque, vous auriez la solution en plus détaillé ?
Bonjour,
Il serait bien que tu expliques ce que tu cherches à élaborer avec ton usine à gaz
sinon, tu obtiens le même résultat avec
Sheets("Rappor").Cells(Rows.Count, "B").End(xlUp).Offset(1, -1) = Sheets("journa").Range("D1").ValueA+
Bonjour Frangy
Merci beaucoup de vous occuper de mon petit problème.
Le code marche a merveille un vrai bijoux, cependant je voudrais ajouter la cellules "K2" de "journa" la copier et la coller dans la feuille " Rappor" dans la colonne " I " de la même manière que le code que vous m'avez fait.
Pourriez vous me rendre ce dernier service ?
Cette usine va me servir à faire du gaz pour me rechauffer pendant l'hiver
Tout ça va me servir à copier mes ventes qui se trouve dans mon journal de vente et les coller dans une autres feuilles avec les détailles. C'est juste une petite partie du code complet
Merci beaucoup
Tu peux essayer
With Sheets("Rappor").Cells(Rows.Count, "B").End(xlUp)
.Offset(1, -1) = Sheets("journa").Range("D1").Value
.Offset(1, 7) = Sheets("journa").Range("K2").Value
End WithA+
Bonjour
C est parfait Merci beaucoup.