Modification macro "ajout nouelle ligne" dans un tabeau

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'074
Appréciations reçues : 900
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 24 août 2015, 13:54

Pour le reste, je vais voir ce soir, le mieux sera de bien nommer les tableaux

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'074
Appréciations reçues : 900
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 24 août 2015, 21:17

J'ai renommé tous les tableaux comme suit TableauMois1, TableauMois2, TableauMois3, ...

Change ta macro comme suit et essaie :
Sub ajouterunenfant()
For i = 1 To 12
Range("TableauMois" & i).Rows(Range("TableauMois" & i).Rows.Count).Insert shift:=xlDown
Next i
End Sub
BPJEPS.xlsm
(297.69 Kio) Téléchargé 19 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
n
nadia1235
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 28 juin 2015
Version d'Excel : 2010

Message par nadia1235 » 24 août 2015, 21:26

Je les ai renommé TableauJanvier, TableauFévrier etc !!
oupss chasser croisé !!
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'074
Appréciations reçues : 900
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 25 août 2015, 02:07

dans ce cas, écris :
Sub ajouterunenfant()
Range("TableauJanvier").Rows(Range("TableauJanvier").Rows.Count).Insert shift:=xlDown
Range("TableauFévrier").Rows(Range("TableauFévrier").Rows.Count).Insert shift:=xlDown
' etc.
End Sub

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
n
nadia1235
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 28 juin 2015
Version d'Excel : 2010

Message par nadia1235 » 25 août 2015, 10:59

Salut Steelson,
Oui les message c'était croisé donc ai modif a ta façon et pris la version TableauMois1 etc . en considérant Mois 1 septembre étant la rentrée et modif sur 11 Mois n'ayant pas Aout dedans.
Ça tourne impec et ai modif aussi la date anniversaire ça fais plus sérieux ta formule :o vais passer pour intelligente !!!!
Je regarde la pour utiliser cette formule d'ajout ligne pour que lorsque que j'ajoute un enfant via la liste de choix en septembre il s'ajoute donc pareillement sur les autres mois ainsi il reste qu'a pointer les présence a mesure sans avoir a ajouter mois par mois le même enfant !!!
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'074
Appréciations reçues : 900
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 25 août 2015, 11:21

Nadia,

content que cela te convienne
surtout heureux que tu saches prendre la main = la meilleure façon de progresser

:btres:

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
n
nadia1235
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 28 juin 2015
Version d'Excel : 2010

Message par nadia1235 » 25 août 2015, 13:03

oui c'est clair que je préfère comprendre plutôt que d'avoir tout tout cru bêtement car comme tu a vu y'a pas mal a faire et a apprendre avec mon projet donc utile a l'agréable !!!
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message