Copier/coller ligne tableau
Ferméf894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 - 2 sept. 2022 à 08:01
- Copier/coller ligne tableau
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Tableau word - Guide
8 réponses
1 sept. 2022 à 10:58
Bonjour,
Pourquoi copier que D:G, les autres colonnes servent a quoi?
1 sept. 2022 à 15:41
Re,
Ok,
Connaissez vous les instructions relatives a la gestion des Tableaux (Table)?
1 sept. 2022 à 15:45
Pouvez-vous etre plus explicite...
Modifié le 1 sept. 2022 à 16:14
Re,
Vous avez deux tables ou plus exacement Tableaux
'test cellule "normale"
If .Cells(ligne, 3).Value = "TR-0000001" Then
'test cellule d'un tableau
If Tableau1.DataBodyRange.Item(n, 2).Value = "TR-0000001" Then
'ou sans accents pour les noms de colonne
If Range("table1[Pieces]").Item(i).Value = "TR-0000001" Then
1 sept. 2022 à 16:11
Re,
Oui je connais parfaitement les instructions relatives a la gestion d'un tableau... Pourquoi cette question?
Cordialement JSCH19
Modifié le 1 sept. 2022 à 16:28
Re,
Pourquoi ne les utilisez vous pas?
sans tableau:copie plage vers une autre plage:
Cells(10, 4).Resize(, 4) = Cells(4, 4).Resize(, 4).Value
Modifié le 1 sept. 2022 à 16:34
Re,
Laisse moi essaye avec ce que tu m as propose, avez-vous access au lien dont j'ai poste?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
1 sept. 2022 à 16:37
Re,
J'ai recupere votre fichier. C'est comme ca que j'ai constate que vous n'utilisez pas les instructions tableau
servira pas trop a grand chose que j'utilise les cells ou autres
Et que voulez vous utiliser pour completer votre table14?
1 sept. 2022 à 16:50
jlai modifie,jn'avais pas vue ta modification avant que je poste ce message,je travaille la-dessus,imaginez-vous que dans mon tableau reel j'ai 56 colonnes
je ne voulais pas me retrouver a ecrire:
Sheet2.cells(ligne, 4).Value = Sheet1.cells(ligne, 4).Value
Sheet2.cells(ligne, 5).Value = Sheet1.cells(ligne, 5).Value
Sheet2.cells(ligne, 6).Value = Sheet1.cells(ligne, 6).Value
Sheet2.cells(ligne, 7).Value = Sheet1.cells(ligne, 7).Value
1 sept. 2022 à 17:10
Re,
Donc c'est ok?
1 sept. 2022 à 17:19
Re,
Pas encore je cherche une solution beaucoup plus efficient et moins volumineux.
exemple:
Dim ligne%, X%
[B7].CurrentRegion.Sort , key1:=[B7], Header:=xlYes
ligne = 7: X = 4
While Sheet1.Cells(ligne, 3).Value <> Empty
If Sheet1.Cells(ligne, 3).Value = "TR-0000001" Then
Sheet2.Cells(ligne, X).Value = Sheet1.Cells(ligne, X).Value
Do Until X = 8
Sheet2.Cells(ligne, X).Value = Sheet1.Cells(ligne, X).Value
X = X + 1
Loop
End If
ligne = ligne + 1
Wend
mais ce code n'est pas encore a point,toute proposition est la bienvenue.
Cordialement JSCH19
1 sept. 2022 à 17:25
Re,
Je vous ai mis des exemples
Celle du post <7> est adoc
Vous voulez que jevous face la modif?
1 sept. 2022 à 17:27
Re,
Sans probleme.
1 sept. 2022 à 17:29
Vous avez bien 56 colonnes dans vos tableaux?
De B a ..........
1 sept. 2022 à 17:33
Re,
Oui exactement,vous avez essaye le dernier code dont j'ai poste?
je suis presque sur la bonne voie
1 sept. 2022 à 17:40
Re,
je suis presque sur la bonne voie
Ben non. C'est le meme style de code qu'au debut
Je vous arange la chose
1 sept. 2022 à 17:44
Re,
Ok! je vous attends!
1 sept. 2022 à 19:16
Re,
Une facon de faire: https://www.cjoint.com/c/LIbro770szg
2 sept. 2022 à 00:40
Re,
Tu l'as resolu avant moi... mais je n'y avais pas pensé a cette methode mais je vais l'adapter a mon fichier.
Un grand merci @f894009!!!
2 sept. 2022 à 08:01
Bonjour,
C'est ce qu'il y a de plus simple
1 sept. 2022 à 15:24
Bonjour ,
On copie a partir d' Article a Prix HT ("D:G") parce que la colonne piece sera rempli a partir d'un textbox.