une cellule sur deux

[tiphanie]

Bonjour,

J'ai dans la colonne A 98cellules de 1 a 98.Je voudrais en copier une sur deux et la coller dans la colonne B avec un total de 49 cellules.

Pourriez-vous m'aider s'il vous plait

Merci d'avances

Tiphanie

 

[OnErrorResumeNext]

bonjour Tiphanie,

en B1, tu copies cette formule :

=SI(MOD(LIGNE();2)=0;A1;"")
que tu recopies vers le bas.

Si tu veux que ce soit les lignes impaires qui soient recopiées :

=SI(MOD(LIGNE();2)=1;A1;"")

amicalement

 

[Rai]

Bonjour Tiphanie,

Tu le veux en VBA ? Ou en Formule ?

Allez, j'te fais les 2 pour le prix d'un ;oP

Par formule
En B1 tu écris :
=INDIRECT("A"&LIGNE()*2-1)
et tu recopies vers le bas

En VBA
Sub unsurdeux()
For i% = 0 To 97 Step 2
Cells(i / 2 + 1, 2) = Cells(i + 1, 1)
Next i
End Sub


Ca te convient ??

Bonne fin de journée

Rai

 

[Monique]

Bonjour,

Quatre autres
1ère puis 3ème puis 5ème valeurs de la colonne A :
si tu démarres en ligne 1 :
=DECALER($A$1;(LIGNE()-1)*2;0)
si tu démarres en ligne 3 :
=DECALER($A$1;(LIGNE()-3)*2;0)

2ème puis 4ème puis 5ème valeurs :
si tu démarres en ligne 1 :
=DECALER($A$1;LIGNE()*2-1;0)
si tu démarres en ligne 3 :
=DECALER($A$1;(LIGNE()-2)*2-1;0)

 

[OnErrorResumeNext]

bonjour Rai,

bien joué ! ,
j'ai laissé honteusement une ligne vide entre chaque valeur, quel gâchis !

bon après-midi

amicalement