Sauter une cellule sur une plage de donnée

Résolu
mr.denver Messages postés 33 Statut Membre -  
mr.denver Messages postés 33 Statut Membre -
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. benol3 Messages postés 718 Statut Membre 87
     
    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
    1
  2. Iama Messages postés 324 Statut Membre 14
     
    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. Iama Messages postés 324 Statut Membre 14
       
      Je viens d'ajouter quelques sécurité pour éviter des erreurs de manip
      0
  3. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  4. mr.denver Messages postés 33 Statut Membre
     
    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. mr.denver Messages postés 33 Statut Membre
       
      merci bien Iama c'est tres gentil de ta part!
      0
  5. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  6. mr.denver Messages postés 33 Statut Membre
     
    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. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      =SI(MOD(LIGNE();2);DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/2;);18);"")
      eric
      0
    2. mr.denver Messages postés 33 Statut Membre
       
      super!!! merci erric c'est exactement ce que je voulais
      0
    3. mr.denver Messages postés 33 Statut Membre
       
      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. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      =SI(MOD(LIGNE();3)=1;DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/3;);18);"")
      0
    5. mr.denver Messages postés 33 Statut Membre
       
      merci infiniment ça marche à merveille.
      0