Integration de ligne
Résolu/Fermé
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
-
2 juil. 2015 à 15:31
victorgirault Messages postés 14 Date d'inscription jeudi 2 juillet 2015 Statut Membre Dernière intervention 3 juillet 2015 - 3 juil. 2015 à 10:51
victorgirault Messages postés 14 Date d'inscription jeudi 2 juillet 2015 Statut Membre Dernière intervention 3 juillet 2015 - 3 juil. 2015 à 10:51
A voir également:
- Integration de ligne
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Apparaitre hors ligne whatsapp - Guide
14 réponses
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
2 juil. 2015 à 15:41
2 juil. 2015 à 15:41
https://www.cjoint.com/c/EGcnPr3Y1yy
Voici un lien avec le fichier explicatif
Voici un lien avec le fichier explicatif
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
2 juil. 2015 à 15:45
2 juil. 2015 à 15:45
Bonjour
Peut être comme ça ?
http://www.cjoint.com/c/EGcnTqZsOdg
Cdlmnt
Peut être comme ça ?
http://www.cjoint.com/c/EGcnTqZsOdg
Cdlmnt
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
2 juil. 2015 à 15:58
2 juil. 2015 à 15:58
Merci beaucoup c'est exactement ma demande.
A défaut d'abuser, pourrais tu reproduire cette macro pour que cela agisse sur la colonne A et non C, et que un nombre soit inscrit sur la colonne suivante (B) pour chaque insertion de ligne.
Je reprend mon exemple:
Colonne A Colonne B
ligne 2 TOTO 4800
ligne 3 TOTO 4802
.
.
.
.
ligne 17 Maurice 4800
J'ai repris les nombres a intégrer dans mon exemple comme suit.
https://www.cjoint.com/c/EGcn3rHP3Uy
Merci ccm81 de ton aide
A défaut d'abuser, pourrais tu reproduire cette macro pour que cela agisse sur la colonne A et non C, et que un nombre soit inscrit sur la colonne suivante (B) pour chaque insertion de ligne.
Je reprend mon exemple:
Colonne A Colonne B
ligne 2 TOTO 4800
ligne 3 TOTO 4802
.
.
.
.
ligne 17 Maurice 4800
J'ai repris les nombres a intégrer dans mon exemple comme suit.
https://www.cjoint.com/c/EGcn3rHP3Uy
Merci ccm81 de ton aide
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
2 juil. 2015 à 16:07
2 juil. 2015 à 16:07
Comme ça ?
http://www.cjoint.com/c/EGcohD7q6dg
http://www.cjoint.com/c/EGcohD7q6dg
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
2 juil. 2015 à 16:18
2 juil. 2015 à 16:18
C'est parfait, nikel, je te remercie beaucoup ccm81^^
Je pense pas réussir à te dépanner un jour donc MERCI.
Je pense pas réussir à te dépanner un jour donc MERCI.
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
2 juil. 2015 à 16:30
2 juil. 2015 à 16:30
Par contre, pourrais tu me dire comment modifier ce bout de code pour que la plage sélectionner dans la constante soit en fait extrait d'une autre Feuille appelée "Table" toujours des lignes A1:A15 stp
Const plageTN = Sheets("Table").Range("A1:A15").Select
Const plageTN = Sheets("Table").Range("A1:A15").Select
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
2 juil. 2015 à 16:41
2 juil. 2015 à 16:41
Tu as deux solutions
1.
en début de code
Const plageTN = "A1:A15"
puis, dans la procedure
T(liT, 2) = Sheets("Table").Range(plageTN).Cells(k, 1).Value
2. Nommer la plage dans la feuille "Table", par exemple "TableNb"
puis en début de code
Const plageTN = "TableNb"
et dans la procedure (attention plus de point devant Range)
T(liT, 2) = Range(plageTN).Cells(k, 1).Value
A toi de voir
1.
en début de code
Const plageTN = "A1:A15"
puis, dans la procedure
T(liT, 2) = Sheets("Table").Range(plageTN).Cells(k, 1).Value
2. Nommer la plage dans la feuille "Table", par exemple "TableNb"
puis en début de code
Const plageTN = "TableNb"
et dans la procedure (attention plus de point devant Range)
T(liT, 2) = Range(plageTN).Cells(k, 1).Value
A toi de voir
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
Modifié par victorgirault le 2/07/2015 à 16:49
Modifié par victorgirault le 2/07/2015 à 16:49
J'ai choisi la 1ère solution cela fonctionne nikel.....merci.
Une dernière question après je te libère^^
A la place des noms donnés dans mon exemple (TOTO, Maurice,...), j'ai une série de chiffre sous ce format là ("00001681";"00000799";...).
Hors lorsque je lance la macro, cela me transforme directement ces nombres en chiffres ("1681";"799"), alors que je souhaite que le format précédent perdure.
Aurais tu un bout de code à me donner pour que j'intègre le format à la macro que tu m'as faite?
Une dernière question après je te libère^^
A la place des noms donnés dans mon exemple (TOTO, Maurice,...), j'ai une série de chiffre sous ce format là ("00001681";"00000799";...).
Hors lorsque je lance la macro, cela me transforme directement ces nombres en chiffres ("1681";"799"), alors que je souhaite que le format précédent perdure.
Aurais tu un bout de code à me donner pour que j'intègre le format à la macro que tu m'as faite?
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
2 juil. 2015 à 16:53
2 juil. 2015 à 16:53
Est ce que ces "nombres" sont des nombres au format personnalisé "00000000" ou bien sont du "texte"
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
Modifié par victorgirault le 2/07/2015 à 16:57
Modifié par victorgirault le 2/07/2015 à 16:57
Ils sont indiqués comme format "Standard".....?
Mais les transformer en format perso me va nikel ^^ si cela est ta question
Mais les transformer en format perso me va nikel ^^ si cela est ta question
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 2/07/2015 à 17:30
Modifié par ccm81 le 2/07/2015 à 17:30
Tu ajoutes la ligne entre .cells et End with
Cdlmnt
Next li .Cells(lideb, 5).Resize(nbliT, 2) = T .Range(.Cells(lideb, 5), .Cells(lideb + nbliT - 1, 5)).NumberFormat = "00000000" End With
Cdlmnt
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
2 juil. 2015 à 17:15
2 juil. 2015 à 17:15
Cela fonctionne parfaitement.
Un grand MERCIIII CCM81, tu viens de m'économiser un travail monstre.
Encore Merci et bon courage pour la suite.
Un grand MERCIIII CCM81, tu viens de m'économiser un travail monstre.
Encore Merci et bon courage pour la suite.
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
3 juil. 2015 à 09:26
3 juil. 2015 à 09:26
Pourrais je avoir le code pour le texte en fait stp?????^^
Merci
Merci
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 3/07/2015 à 10:41
Modifié par ccm81 le 3/07/2015 à 10:41
Il te suffit de mettre un apostrophe devant la ligne pour l'inhiber
Si tes noms sont des nombres et que ta colonne cible a été formatée "00000000" penses à la reformater en standard
Cdlmnt
'.Range(.Cells(lideb, 5), .Cells(lideb + nbliT - 1, 5)).NumberFormat = "00000000"
Si tes noms sont des nombres et que ta colonne cible a été formatée "00000000" penses à la reformater en standard
Cdlmnt
victorgirault
Messages postés
14
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
3 juillet 2015
3 juil. 2015 à 10:51
3 juil. 2015 à 10:51
Merci ccm81, enfin fini^^
Merci de ton aide.
Merci de ton aide.
