programmation vba

[fridrou]

bonjour,

je debute dans la programmation vba,

je cherche à realiser une macro qui me permettrait de transferer les cellules d'une premiere colonne dans celles d'une seconde mais espacées de 3 cellules vides.

je voudrais donc réaliser une itération du procédé seulement je ne parviens pas a definir mon argument ou objet de départ.(l'aide excel n'est pas top)

je vous met mes lignes:

Sub Macro2(i)
'
' Macro2 Macro
' Macro enregistrée le 11/04/2008 par S590631
'

'
Range("Bi").Select
Selection.Copy
Range("A(i+(i-1)*4").Select
ActiveSheet.Paste

End Sub

i n'est pas définit: comment faire?
le reste est-il suffisant?

 

[Guest]

Re : programmation vba

bonjour,

voici une approche

Sub Macro2(i)
'
' Macro2 Macro
' Macro enregistrée le 11/04/2008 par S590631
'

'
    Range("B" & i).Copy Destination:=Range("A" & (i + (i - 1) * 4))


End Sub

quant à la valeur de i, il faut la déterminer avant d'appeler la macro.

Bon courage

 

[fridrou]

Re : programmation vba

oui mais c'est la qu'appariat mon second probleme, comment demander à ce que i soit tout reel (en fait indicateur du no de la cellule) qui va de 1 à 500

 

[Guest]

Re : programmation vba

Une autre solution:

Sub Macro2(i)
'
' Macro2 Macro
' Macro enregistrée le 11/04/2008 par S590631
'

'   Copiera B i dans Trois colonnes à droite
    Range("B" & i).Copy Destination:=Range("B" & i).offset( , 3)

End Sub

bon appetit.

Je vais manger alors si je ne réponds pas tout de suite... d'autres le feront certainement

 

[fridrou]

Re : programmation vba

bon appetit et merci pour les conseils

 

[fanfan38]

Re : programmation vba

Bonjour
For i=1 to range("a65536").end(xlup).row
Range("B" & i).Copy Destination:=Range("A" & (i + (i - 1) * 4))
next

A+ François

 

[Spitnolan08]

Re : programmation vba

Bonjour,

En fait ton écriture suppose que tu appelles ta macro par une autre où tu définit i...

Autrement :
Pour déclarer i inscrire en tête de ta procédure :

Sub Macro2()
Dim i as long
ActiveCell.Copy Destination:=ActiveCell.Offset(0, 3)
End Sub

Cordialement

Edit: Bonjour à tous, téléphone quand tu nous tiens... pas rafraichi.

 

[Guest]

Re : programmation vba

Pour finir maintenant que le problème des lignes (i) est posé:

deux solutions:

1 de ligne à ligne ( prendra plus de temps)

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 11/04/2008 par S590631
'

'   Copiera B i dans Trois colonnes à droite c'est à dire dans colonne F
 For i= 1 to 500
    Range("B" & i).Copy Destination:=Range("F" & i)
 next i

End Sub

Deuxième solution plus rapide et plus simple, en copiant toute la plage d'un bloc:

Sub Macro2(i)
'
' Macro2 Macro
' Macro enregistrée le 11/04/2008 par S590631
'

'   Copiera B i dans Trois colonnes à droite
    Range("B1:500").Copy Destination:=Range("F1")

End Sub

Cette fois ci j'y vais

 

[fridrou]

Re : programmation vba

sur le programme de francois il apparait argument non facultatif lorsque je l'execute et c'est un probleme recurent sur presque tout ce que j'ai essayé.

sur celui qui suit, l'action ne se produit que sur une seul cellule et pas sur toute ma colonne?? comment faire pour généraliser l'action?

merci

 

[fridrou]

Re : programmation vba

merci beaucoup à vous tous, cela fonctionne, j'obtiens ce que je souhaitais.

vous pouvez etre fiers de vous, vous etes le spremiers qui me permettez de reussir un programme info en 23 ans en comprenant ce que je fais.

merci encore