Sauter une cellule sur une plage de donnée

merciiiiiii eriiic le résultat est parfait ,tu me sauve là:

000000000010001865 10001865
000000000010001866
000000000010001867 10001866
000000000010001868
000000000010001869 10001867
000000000010001821

ya juste un petit détail mais important pour mon fichier est ce que c'est possible
de garder les zéro à gauches qui precède les chiffres .
plutot comme ca.

000000000010001865 000000000010001865
000000000010001866
000000000010001867 000000000010001866
000000000010001868
000000000010001869 000000000010001867
000000000010001821

merci beaucoup. t'ai un AS

Bonjour,

Une proposition par formule. En B1 :

=SI(MOD(LIGNE();2);DECALER($A$1;(LIGNE()-1)/2;);"")

à recopier vers le bas.
Terminer avec un copier collage spécial valeur de la colonne B.

eric

Bonjour Iama,

merci beaucoup pour votre aide sauf que je n'arrive pas à récupérer le fichier que vous m'avais fait puisque mon pc filtre le site ci-joint est ce que c'est possible de me l'envoyer par
https://www.sendbox.fr/

ou mon mail: tresorisland@gmail.com.

merci par avance

Ci-joint le fichier avec la macro

https://www.cjoint.com/?3HgohkAuHFt

cordialement

merci pour votre réponse
mais le problème c'est que je ne sait pas utiliser VBA.

voici mon fichier

https://sendbox.fr/index.php?/pro/ylqtt0eqfdm5/Nouveau_Microsoft_Excel_Worksheet.xlsx.html

Bonjour mr.denver

Public Sub Saut_mouton()
'
' sélectionner la première cellule de la liste avant de lancer la macro
'(Conseil de bon sens faire une copie de la liste avant sur une autre feuille)

Dim stocK As Variant, feuLL
Dim derL As Long, preL As Long, coL As Long

If ActiveCell = Empty Then Exit Sub 'securité

feuLL = ActiveSheet.Name

With Selection
preL = .Row
coL = .Column
derL = .End(xlDown).Row
End With

If derL = ActiveSheet.Rows.Count Then Exit Sub 'securité

With ActiveSheet
stocK = .Range(.Cells(preL, coL), .Cells(derL, coL))
.Range(.Cells(preL, coL), .Cells(derL, coL)).Clear

Dim i
Dim y As Single: y = 0
For Each i In stocK
.Cells(preL + y, coL).Value = i
y = y + 2
Next i

End With
End Sub

Si tu as des question n'hésite pas

Bonjour,

Il n'existe pas de fomule, il faut passer par vba pour réaliser ce que tu veux faire...

Envoie ton fichier depuis cjoint.com