Ma macro ne fonctionne pas comme je l'entends
Bonjour à toutes et à tous,
Voilà le but de mon fichier est de multiplier des données par 1000 et en suite d'envoyer ces données qui viennent d'être multipliées dans un tableau.
Ma macro multiplier par 1000 fonctionne parfaitement, par contre ma macro copié-collé non.
Elle copie-colle au bonne endroit mais pas les bonnes données ( voir fichier, ci-joint)
Quelqu'un serait-il m'aider ?
Il manque je pense le système d'incrémentation.
Bonjour,
Je ne suis pas expert non plus, mais tu ne déclare nulle part les variables K et L, j'imagine que c'est de la que vient le problème.
Bonjour,
Même en déclarant mes variables cela ne fonctionne pas ! Merci néanmoins pour votre aide
Bonjour,
Si ma mémoire ne divague pas trop ...
Sub CopierColler()
Dim i As Long
Dim j As Long
Dim x As Long
Application.ScreenUpdating = False
x = Range("C65536").End(xlUp).Row
For j = 4 To 12 Step 2
For i = 2 To x
If IsNumeric(Cells(i, j)) And Not IsEmpty(Cells(i, j)) Then
Sheets("Feuil1").Cells(i, j).Copy Destination:=Sheets("Tableau Bon").Cells(i, (j / 2) + 1)
End If
Next i
Next j
End SubMerci James ! Je n'aurai pas du vouloir essayer de faire par moi-même !
Merci pour tes remerciements ...
Tu m'accorderas que tout cela ressemble furieusement à un sujet déjà traité ...
De rien
Oui oui je suis d'accord, c'est juste que j'ai voulu essayer de faire par moi-même et voilà le résultat
Re,
OK ...
La chose la plus utile à faire pour toi ... maintenant que ta macro fonctionne ... c'est de la décortiquer pour bien la comprendre