Problème VBA reformulé

[Jeff]

Bonjour ,


j'ai une suite de nombre croissant de 1 à n
Je souhaiterais à partir de la colonne suivante (colonne A
plage de cellules A2:An)

1
2
3
4
5
6
7
8

...afficher une nouvelle colonne voisine (Colonne remplie
automatiquement de telle manière que les données apparaissent
comme celà:


1 1
2 2
3 1
4 2
5 1
6 2
7 1
8 2

ceci jusqu'à la dernière ligne de ma feuille excel


Comment réaliser celà en VBA?

D'avance, merci pour votre aide.

Jeff

 

[bertrand]

bonjour,

voici un petit code qui devrait répondre à ta question :

Sub test()
a = InputBox('donner le n° final')
For i = 1 To a
Range('a' & i).Value = i
Next i
For j = 1 To a Step 2
Range('b' & j).Value = 1
Next
For k = 2 To a Step 2
Range('b' & k).Value = 2
Next
End Sub


voili

@+

 

[heriss]

Salut Jeff,

Voici la réponse à ta question... La prochaine fois édite ton post pour le modifier, ça évite que l'on y réponde deux fois...

Heriss


Sub Macro2()
Dim C As Range

For Each C In Sheets('Feuil1').Range('B1:B65536')

C.FormulaR1C1 = '=IF(MOD(RC[-1],2)=0,2,1)'
Next C

End Sub

 

[Jeff]

Merci pour vos réponses
mais le code suivant ne fonctionne pas tout à fait

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
Sheets('Sheet2').Range('B:B').ClearContents
For i = 1 To Sheet3.Range('A1').Value
If Range('B1') <> '' Then
Sheets('Sheet2').Range('B' & i + 1) = i
End If
Next
For Each C In Sheets('Sheet2').Range('E2:E65536')
C.FormulaR1C1 = '=IF(MOD(RC[-1],2)=0,2,1)'
Next C
End Sub

Il semblerait bloquer sur l'instruction Next C..

J'ai sans doute oublié quelque chose..

Merci d'avance,