macro collage dans le mauvais sens

[fifi56]

bonjour

voila j'ai un bout de code

For j = 42 To 100
 
 
     If Cells(j, 13).Value = "1" Then
     Cells(j, 11).Select
     ActiveCell.FormulaR1C1 = "1"
 
      Range(Cells(j, 17), Cells(j, 18)).Copy
    
    
       
         
              If Range("f3").Value = "" Then
              Range("f3").Select
              Selection.PasteSpecial Paste:=xlPasteValues
              Else
              If Range("f4").Value = "" Then
              Range("f4").Select
              Selection.PasteSpecial Paste:=xlPasteValues
              Else
              Range("f3").End(xlDown).Offset(1, 0).Select
              Selection.PasteSpecial Paste:=xlPasteValues
 
              End If
              End If
        
      End If
            
    Next j

en gros je fais un copier coller
cela fonctionne sauf que les donnes une fois collees se remplisse par le bas
et non par le haut


exemple :
on va dire j'ai 4 cellules 1 cellule A, cellule B , cellule C , Cellule D

je veux copier ABCD sur une autre colonne
ma macro ecrit DCBA

or moi je voudrais coller ABCD

j'ai essayer de changer le xlDown en XLUp mais ca marche ni d'ailleurs mes autres tentatives !!

 

[Creepy]

Re : macro collage dans le mauvais sens

Bonjour,

Tu peux nous mettre un petit fichier en PJ stp ?

Merci

Creepy

 

[fifi56]

Re : macro collage dans le mauvais sens

euh ou j'ai comencer a faire un fichier plus simple mais ca fonctinne normal sur mon fichier simple mdr

je vais etudier ca