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
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
A voir également:
- Sauter une cellule sur une plage de donnée
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller une cellule excel - Guide
- Comment supprimer une page sur word avec un saut de page ? - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
7 réponses
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
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
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
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
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
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
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
6 août 2014 à 13:39
Je viens d'ajouter quelques sécurité pour éviter des erreurs de manip
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
6 août 2014 à 14:07
Ci-joint le fichier avec la macro
https://www.cjoint.com/?3HgohkAuHFt
cordialement
https://www.cjoint.com/?3HgohkAuHFt
cordialement
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
7 août 2014 à 12:55
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
7 août 2014 à 13:25
merci bien Iama c'est tres gentil de ta part!
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 249
7 août 2014 à 11:47
7 août 2014 à 11:47
Bonjour,
Une proposition par formule. En B1 :
à recopier vers le bas.
Terminer avec un copier collage spécial valeur de la colonne B.
eric
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
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
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
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
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 249
Modifié par eriiic le 7/08/2014 à 13:13
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
eric
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
7 août 2014 à 13:28
super!!! merci erric c'est exactement ce que je voulais
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
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
genre:
000000000010001865 000000000010001865
000000000010001866
000000000010001867
000000000010001868 000000000010001866
000000000010001869
000000000010001821
000000000010001822 000000000010001867
encore une fois merci
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 249
7 août 2014 à 15:59
7 août 2014 à 15:59
=SI(MOD(LIGNE();3)=1;DROITE(REPT("0";18)&DECALER($A$1;(LIGNE()-1)/3;);18);"")
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
7 août 2014 à 16:14
merci infiniment ça marche à merveille.
6 août 2014 à 13:44
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