Sauter une cellule sur une plage de donnée

Résolu
bonjour,

en fait je voudrai laisser une cellule vide entre deux cellues rempli

000000000010001128
000000000010001129
000000000010001130
000000000010001131
000000000010001143
000000000010001144

le résultat que je voudrai avoir est comme ça :

000000000010001128

000000000010001129

000000000010001130

000000000010001131

000000000010001143

000000000010001144

y a t'il une formule qui peux faire ça pour moi.

je vous remercie par avance.

7 réponses

  1. 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
    1
    1. Je viens d'ajouter quelques sécurité pour éviter des erreurs de manip
      0
  2. 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
    0
    1. merci bien Iama c'est tres gentil de ta part!
      0
  3. Contributeur
    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
    0
    1. 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
      0
      1. Contributeur
        =SI(MOD(LIGNE();2);DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/2;);18);"")
        eric
        0
      2. super!!! merci erric c'est exactement ce que je voulais
        0
      3. et si je voudrai sauter deux cellules au lieu d'une seule , j'imagine qu'il fait changer juste un paramètre dans la formule précédant peu-tu m'indiquer stp

        genre:

        000000000010001865 000000000010001865
        000000000010001866
        000000000010001867
        000000000010001868 000000000010001866
        000000000010001869
        000000000010001821
        000000000010001822 000000000010001867

        encore une fois merci
        0
      4. Contributeur
        =SI(MOD(LIGNE();3)=1;DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/3;);18);"")
        0
      5. merci infiniment ça marche à merveille.
        0