je veux mettre mon tableau en structurer comme vous me le conseiller ^^
avec le CTRL + T non ?
Si oui , apres il demande une "reference"
Pièce jointe 568702
Pièce jointe 568703
Se positionner dans le tableau, à droite dans le ruban cliquer sur Création de tableau, changer le nom.
Pièce jointe 568707
excuser moi , je viens de comprendre ma betise haha
Par contre j'ai prit que 3 ligne pour le tableau (j'ai pas prit en compte les ligne qui serons ajouter quand jappuierais sur mon bouton ajout de ligne.
Du coup je sais pas si cela fonctionneras :/
Bonjour !
Merci beaucoup pour votre aide
Je dois la placer ou la ligne listObject dans la macro ?
Merci encore !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub NouveauContact() Dim i As Integer Dim DerLig As Integer Rows("12").Select Selection.Copy Rows(Range("A" & Rows.Count).End(xlUp).Row + 1).Select Selection.PasteSpecial Application.CutCopyMode = False DerLig = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To 15 Cells(DerLig, i).Value = "" Next i Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1).Select End Sub
Onglet fournisseurs , par contre nom de table ... apart A1 il ne me met pas de nom ^^ ou il est autre part ?
ha bien vu :p
nom de la table : Tableau2
onglet : Fournisseurs
merci :p
Il n'y a que cela à faire :
Une fois la ligne créée, changer le fournisseur et les cellules avec formules vont se compléter.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sub Test() Sheets("Fournisseurs").ListObjects("Tableau2").ListRows.Add End Sub
Sinon, s'il faut compléter les cellules dans la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub Test2() Dim MonFournisseur As String Dim MaNouvelleLigne As ListRow MonFournisseur = "TrucMuch" With Sheets("Fournisseurs").ListObjects("Tableau2") Set MaNouvelleLigne = .ListRows.Add With MaNouvelleLigne .Range(1, 1) = MonFournisseur '.Range(1,X)=... End With Set MaNouvelleLigne = Nothing End With End Sub
D'accord ,
Du coup dans mon code je dois inserer la ligne ou ?
et si je dois mettre le deuxieme code que vous avez fais dite moi si je dois aussi le mettre a un endroit specifique
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub NouveauContact() Dim i As Integer Dim DerLig As Integer Rows("12").Select Selection.Copy Rows(Range("A" & Rows.Count).End(xlUp).Row + 1).Select Selection.PasteSpecial Application.CutCopyMode = False DerLig = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To 15 Cells(DerLig, i).Value = "" Next i Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1).Select End Sub
Merxci encore
vous m'avez perdu la haha ^^
J'ai donc mit la ligne a la place de mon ancien code sa copie bien la ligne mais pas la formule ^^
Pour le 2eme code je le place n'importe ou aussi ou dans le sub en questioon?
dans la ligne qui est copié oui , en effet les formules se trouve en ligne 12 . Ligne qui est copier et inserer en ligne 13 (normalement)
mais pour l'instant mes formules ne se copie pas
Apres je n'es pas encore mit le 2eme code que vous m'avez envoyé ( je ne sais pas ou le mettre :/ )
Si votre tableau est toujours celui du message #1, les lignes 10 et 11 ont-elles aussi les formules ?
Logiquement, si les cellules sont homogènes dans une colonne, l'ajout d'une ligne reproduit les formules. Si les lignes 10 et 11 sont indispensables, je les sortirais quand même du tableau, sinon il vous faudra ajouter vos formules avec du code. Pour cela, il faut vous servir de l'enregistreur de macro et mettre en place vos formules à la main, fermer la macro et regarder le code qui a été généré.
L'autre solution est de faire ce que vous vouliez faire avec dans votre code, c'est à dire, une fois ajoutée la ligne avec la méthode que je vous ai donnée, faire une copie de la ligne précédente et la coller dans votre nouvelle ligne et modifier la société.
Sinon, je ne vais pas pouvoir continuer à votre répondre sur ce rythme... Si vous avez compris l'intérêt qu'il y avait à travailler avec des tableaux structurés, il vous faut maintenant regarder les tutos relatifs à cette technique. Pour cela regardez les billets consacrés à cela dans le blog de Pierre FAUCONNIER https://www.developpez.net/forums/bl...re-fauconnier/
ok je regarde ca !
Merci beaucoup pour votre aide et votre temps !
Bonne journée a vous et bon week end !!
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager