[VBA-E]transposer des données d'une feuille dans une autre

bonsoir,

j'ai un userform, appelé saisie, dedans j'ai dans la colonne B des dates et je voudrais extraire des dates à partir d'un critère >= et ensuite sélectionner la ligne de la colonne A a la colonne G et les recopier dans une autre feuille "controle1" en les transposant de la colonne(en partant de la 2ème ligne) B à H .

j'ai un bout de code mais ca ne recopie rien ou tjrs la meme chose et je suis coincé pour la suite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

noligne = Range("b1").End(xlDown).Row dim ladate as date ladate = [am4] For Each cell In Range("b:b") If cell.Value >= ladate Then   ActiveCell.EntireRow.Copy Sheets("feuil1").Select For z = 2 To 8 Selection.PasteSpecial Paste:=xlPasteAll, _ Transpose:=True

---

merci a+

salut lionel
c'est quoi ça, je connais pas

Code:

---

ladate = [am4]

---

et plus serieusement

Code:

---

1 2 3

For Each cell In Range("b:b") If cell.Value >= ladate Then ActiveCell.EntireRow.Copy

---

quand tu utilise celldans les deux premieres lignes, tu fais une confusion. merci les exemples clairs de F1. en fait dans ce cas cell est une variable qui dans ce cas là represente une cellule.
tu peux essayer
for each pingouin in Range("b:b") ça marchera aussi
et du coup dans la troisieme ligne quan tu utilise activecell, he ben c'est pas forcement la meme
perso pour me rappeler que je parle de cellule j'utilise cel ou juste C
for each cel ..
et donc pour copier la ligne qui correspond a cel, et pas forcement a activecell, il vaut mieux utiliser queque chose du genre
cel.row. ce qui donne dans ton cas

Code:

---

1 2 3

For Each c In Range("b:b") If c.Value >= ladate Then c.row.EntireRow.Copy

---

idem si par exemple, tu voulais une cellule de cette ligne
c.offset(0,2) ou cells(c.row,2)

Bonsoir et merci pour tes explication alsimbad,
ladate=[am4] me renvoie bien la valeur de la cellule am4 :oops:

je surnage tant bien que mal

merci beaucoup a+

au fait si tu connaissais un livre qui pourrait me faire progresser je suis preneur

bien sur pas sur le forum ... aps de pub :D
merci a+

les livres c'est bien, mais ce qui te fera progresser le plus, c'est exactement ce que tu es en train de faire. c'est a dire avoir un projet et chercher les infos un peu partout. c'est pas comme ça qu'on fais les plus jolis codes, mais c'est comme ça qu'on apprend quand on a pas de prof. moi perso, j'ai jamais lu un livre sur le sujet, je me trouve des projets, et je cherche comment y arriver. la plupart des solutions que je donne ici, je les calcule au fur et à mesure. un tiers de logique, un tiers de bon sens, un tiers de cogitation, un tiers d'esprit mathématique:D et beaucoup de " p***** de b***** de m****, pourquoi ça veut pas, m**** fais c**** !!!!!!
a plus. bonne continuation

bonsoir Alain

tout ce qui est avec des astérisques j'ai compris

c un bon début et j'ai les memes mots que toi

non de d**** de b****l de m****

mais c vraique c pas toujours évident et comme j'imprime tout ce que je trouve et qui pourrait m'être utile tu vois un peu !!!

Tais toi CIBOOX je t"entends déjà rire !!!!!!!

Hello lio, tu me fais de la peine :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

noligne = Range("b1").End(xlDown).Row dim ladate as date ladate = [am4] '1 - Instancie la feuille dans laquelle tu copies et la plage Set LaPlage = Activesheet.Range("b:b") 2- Place-toi dans la feuille où tu colles tes données sheets("feuil1").Select For Each cell In LaPlage If cell.Value >= ladate Then cell.EntireRow.Copy 'Comme tu transposes tes données, je suppose que z est ton N° de colonne For z = 2 To 8 Cells(1,z).PasteSpecial Paste:=xlPasteAll, Transpose:=True Next Next

---

Par contre, avec ce code, tu copies 8 fois la même ligne et autant de fois que tu as de colonnes
Je verrai donc plutôt un truc comme ça

Code:

---

1 2 3 4 5 6 7

For Each cell In LaPlage If cell.Value >= ladate Then cell.EntireRow.Copy z = z + 1 Cells(1,z).PasteSpecial Paste:=xlPasteAll, Transpose:=True endif Next

---

bonsoir ouskel

ouai je sais mais je suis pas calimero mais c vrai que c parfois dur de rechercher dans les forums pour avoir un truc qui correspond a peu près mais j'ai pas testé mais pour la transposition elle ne peut se faire qu'entre les colonnes et lignes 2 a 8 de la feuille controle1, controel2, controle 3.

oUF merci pour ton code j'ai galéré toute la journée et qu'est ce qui va dire mon patron :oops:

merci a+

Auquel cas tu n'as à instancier que la plage qui t'intéresse

Code:

---

Set LaPlage = Activesheet.Range("b2:b10")

---

sans rien changer à mon dernier code

sans rien changer à mon dernier code


ben pourquoi tu dis ca !!:oops: :D


merci et bonne journéee ousk
a+

Sans rien changer à mon dernier code. Ça veut dire ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

noligne = Range("b1").End(xlDown).Row dim ladate as date ladate = [am4] Set LaPlage = Activesheet.Range("b2:b10") sheets("feuil1").Select For Each cell In LaPlage If cDate(cell.Value) >= ladate Then cell.EntireRow.Copy z = z + 1 Cells(1,z).PasteSpecial Paste:=xlPasteAll, Transpose:=True endif Next

---

Essaie de comprendre ce que tu fais, sans ça, ton patron...
Et lis les réponses qu'on t'envoie

bonsoir Ousk

j'ai juste changé ca car je voulais qu'il me recopie qu'une partie de la ligne
et qu'il la recopie a partir de la cellule B2 sur l'autre feuille

Code:

---

1 2 3 4 5 6

cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy 'Comme tu transposes tes données, je suppose que z est ton N° de colonne ' z = z + 1   Cells(2, z + 1).PasteSpecial Paste:=xlValues, Transpose:=True

---

et là ca marche pas deproblème
Ensuite j'ai ajouté ca

et là ca coince un peu comment pourraije réinitialiser z

Code:

---

1 2 3 4 5 6 7 8 9 10

If z = 8 Then Sheets("CONTROLES2").Select Range("b2").Select z = 0     z = z + 1 Cells(2, z + 1).PasteSpecial Paste:=xlValues, Transpose:=True End If

---

et autre gros problème que je rencontre c'est ce lui du format date
dans une précédente discussion alain tech m'avait dit de mettre ce format

Code:

---

lf.Cells(noligne, 2).NumberFormat = "dd/mm/yyyy"

---

car j'avais les dates qui se recopiaient en mm/JJ/aaaa je pensais donc le problème résolu seulement lorsque je demande qu'il me recopie les données par rapport à une certaine date il me prend aussi bien le 10/03/2007 que le 03/10/2007 car dans la feuille da calcul la date est bien 10/03/2007 mais dans la barre de formules elle apparait 03/10/2007

merci a+

Citation:

---

lf.Cells(noligne, 2).NumberFormat = "dd/mm/yyyy"

---

..........................:pleure:
Tu es sûr ...
d'avoir quelque chose dans NoLigne ?
Que lf est bien instancié ?
Que la colonne 2 contient bien une date ?
..........................:cry:

bonsoir ousk

ben noligne pour moi c ca


noligne = Range("A1").End(xlDown).Row + 1
le lf ben pas de pb c workseheets("bd")
la colonne 2 de la feuille "bd" contient bien des dates


je vais te joindre le fichier mais comme j'ai fait pleins d'essais tu vas m' eng******* :oops:

non je t'assure ousk il tourne (enfin presque )et si tu veux ton vrai fichier je peux meme te le filer :oops:

allez je te le joins le tiens + mien
merci a++

Bonsoir

En fait en regardant la transposition il n'est pas tenu compte de "ladate"

excel recopie dès la première ligne de la base de données sans tenir compte de quoi que ce soit

il recopie bien également sur le 2eme feuille "CONTROLES2"amis apres pour la feuille "controles3" je ne sais plus quoi mettre comme condition car j'ai

Code:

---

1 2 3 4 5 6 7 8 9

If z = 8 Then Sheets("CONTROLES2").Select Range("b2").Select z = 0     z = z + 1 Cells(2, z + 1).PasteSpecial Paste:=xlValues, Transpose:=True End If

---

merci a+

bonsoir, j'ai ca comme code mais ca ne veut toujours pas boucler sur la 3eme feuille "CONTROLES"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Dim i As Byte Dim j As Byte, IndFeuil As Byte   For j = 1 To Sheets.Count With Sheets(j) If Left(.Name, 9) = "CONTROLES" And .Cells(2, 8) = "" Then IndFeuil = CByte(Mid(.Name, 10)) Exit For End If End With Next   Worksheets("bd").Select ladate = [am1] With Sheets("bd") Set LaPlage = .Range("b:b") End With i = IndFeuil Sheets("CONTROLES" & i).Select b = 1 For Each cell In LaPlage If cell.Value >= ladate Then cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy '   b = b + 1 Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True End If If b = 8 Then Sheets("CONTROLES" & i + 1).Select Range("b2").Select b = 1 b = b + 1 Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True End If   Next

---

merci a+

Mets le nom réèl de tes feuilles, tel qu'il se trouve dans l'onglet (copier/coller sur le forum

Bonsoir Ousk

j'ai la solution depuis cet apres midi mais je n'ai pas tout trouvé seul (en bleu clair)
l'autre parti qui ne voulait pas tourné j'ai changé le if b=8 par b>8 ce qui permet de ne pas recopier les meme données de la colonne 8 de la feuille controle1 sur la feuille controle2 en colonne 2 et ainsi de suite

ensuite pour l'incrémentation j'ai rajouté i=i+1
bon j'ai fait ca en décortiquant et en utilisant F8

par contre j'ai toujours ce oproblème de date avec la combobox comme je l'ai expliqué bien avant

j'ai envie de mettre une lisbox ? je vais essayer car là c trop galère j'ai essayé le code en tapant les dates (presque à la main):D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

ladate = [am1] With Sheets("bd") Set LaPlage = .Range("b:b") End With i = 1 b = 1 For Each cell In LaPlage If cell.Value >= ladate Then Sheets("CONTROLES" & i).Select cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy ' b = b + 1 Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True End If If b > 8 Then i = i + 1 Sheets("CONTROLES" & i).Select Range("b2").Select b = 1 b = b + 1 Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True End If Next

---

merci pour ton aide.... et aussi de m'avoir laisser chercher :furax: :sm: :zekill: :scarymov: :pan: :piou:


merci encore

bien cordialement lionel