Discussion :

[lio62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ladate = [am4]

[alsimbad]

et plus serieusement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[lio62]

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

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
merci a+

[alsimbad]

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 et beaucoup de " p***** de b***** de m****, pourquoi ça veut pas, m**** fais c**** !!!!!!
a plus. bonne continuation

[lio62]

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 !!!!!!!

[ouskel'n'or]

Hello lio, tu me fais de la peine

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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