Pbleme a resoudre : creation macro somme de 2 colonnes en 1 ? ? ? Thx!

Pbleme a resoudre : creation macro somme de 2 colonnes en 1 ? ? ? Thx! - VB/VBA/VBS - Programmation

Marsh Posté le 18-08-2006 à 23:59:49    

Salut a tous,
J ai un leger probleme : j aimerais en appuyant sur un bouton unir 2 colonnes en 1
 
J ai fait un code permettant de faire la somme de chaque ligne des colonnes I et J sur I, la colonne J est ensuite masquée.
Ma macro permet qu en appuyant et en rappuyant sur ce bouton on fasse cette opération tout comme l opération inverse.
 
Le probleme c est qu excel me fait la somme des lignes a chaque fois que j appuie et rappuie sur le bouton pour masquer et afficher..
 
Voila mon code :
 
Sub colonne2()
Dim i As Integer
For i = 11 To 70
Range("I" & i).Value = Range("I" & i).Value + Range("J" & i).Value
Next i
    With Columns("J" )
        .Hidden = Not .Hidden
    End With
End Sub
 
 
je comprend qu produise cet effet puisque "range(.. " est  a l interieur de ma boucle. mais je sais pas comment faire... :s
 
Donc comment je peux faire pour qu en appuyant sur un bouton je puisse reunir 2 colonnes sur 1 et cacher la colonne alors inutile. Le probleme est que je voudrais aussi faire le sens inverse..  
 
vous pouvez m aider ? ? ?   merci

Reply

Marsh Posté le 18-08-2006 à 23:59:49   

Reply

Marsh Posté le 19-08-2006 à 07:14:26    

Bonjour,
c'est cela que tu veux?
Sub colonne2()
Dim i As Integer
For i = 11 To 70
If Columns("J" ).Hidden Then
Range("I" & i).Value = Range("I" & i).Value - Range("J" & i).Value
Else
Range("I" & i).Value = Range("I" & i).Value + Range("J" & i).Value
End If
Next i
    With Columns("J" )
        .Hidden = Not .Hidden
    End With
End Sub
Cordialement

Reply

Marsh Posté le 19-08-2006 à 13:24:30    

Oh genial :D lol merci !! je sais c etait pas tres compliké
 
en tout k merci bcp papou

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed