programmation vba

G

Guest

Guest

• 11 Avril 2008

• #2

Re : programmation vba

bonjour,

voici une approche

Code:

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

 

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #3

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Avril 2008

• #4

Re : programmation vba

Une autre solution:

Code:

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

 

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #5

Re : programmation vba

bon appetit et merci pour les conseils

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 11 Avril 2008

• #6

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

 

Dernière édition: 11 Avril 2008

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 11 Avril 2008

• #7

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 :

Code:

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.

 

Dernière édition: 11 Avril 2008

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Avril 2008

• #8

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)

Code:

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:

Code:

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

 

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #9

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

 

Vote positif 0 Vote négatif

F

fridrou

XLDnaute Nouveau

• 11 Avril 2008

• #10

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

 

Vote positif 0 Vote négatif