Sujet Précédent Sujet Suivant

Sauter une cellule sur une plage de donnée

Résolu/Fermé
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014 - 6 août 2014 à 10:58
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014 - 7 août 2014 à 16:14
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

Réponse 1 / 7
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
6 août 2014 à 12:05
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
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
6 août 2014 à 13:44
merci pour votre réponse voilà mon fichier:

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

désolé de ne pas utilisé ci-joint.com il est bloqué par mon portail internet
0
Réponse 2 / 7
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
Modifié par Iama le 6/08/2014 à 13:38
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
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
6 août 2014 à 13:39
Je viens d'ajouter quelques sécurité pour éviter des erreurs de manip
0
Réponse 3 / 7
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
6 août 2014 à 14:07
Ci-joint le fichier avec la macro


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

cordialement
1
Réponse 4 / 7
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
6 août 2014 à 13:45
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
7 août 2014 à 09:55
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
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
7 août 2014 à 12:55
Le voici
https://sendbox.fr/index.php?/pro/lj862c3ngbvz/Sauter_1_cellule_sur_1_plage.xlsm.html
0
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
7 août 2014 à 13:25
merci bien Iama c'est tres gentil de ta part!
0
Réponse 6 / 7
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
7 août 2014 à 11:47
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
Réponse 7 / 7
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
7 août 2014 à 12:14
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
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié par eriiic le 7/08/2014 à 13:13
=SI(MOD(LIGNE();2);DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/2;);18);"")
eric
0
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
7 août 2014 à 13:28
super!!! merci erric c'est exactement ce que je voulais
0
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
7 août 2014 à 13:35
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
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
7 août 2014 à 15:59
=SI(MOD(LIGNE();3)=1;DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/3;);18);"")
0
mr.denver Messages postés 31 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 7 août 2014
7 août 2014 à 16:14
merci infiniment ça marche à merveille.
0

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?
Raven -
bonjou -

9 réponses
Sur la plage...
kriiisss -
Utilisateur anonyme -

6 réponses
Dechiffrer une image caché
JACQUE -
Otomec -

1 réponse
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
Retrouver moi l'original
kornette87 -
rcdj79 -

3 réponses